rasgele ırettiğim sayıyı veri tabanımdakiyle toplatamadım bi el atın neolur :(

arkadaslar urettiğim rasgele sayıyı veri tabanımdaki sayıyla topluyacagım ama olmuyor hatam nerede

<%
kadi = session("kadi")
if kadi=kadi then
%><%

sql = "Select * from saha Where kadi='"&kadi&"'"
Set thz = Server.CreateObject("Adodb.Recordset")
thz.Open sql,Baglanti,1,3


max = 100
min = 50
islem = (max - min) + 1
Randomize
rastgeleSayi = int((Rnd * islem)+min)

'response.write Int(rastgeleSayi)

thz("ulus")=ulus
thz("katad")=thz("katad")+1
thz("katay")=thz("katay")+0
thz("katat")=thz("katat")+1
thz("kataap")=thz("kataap")+Int(rastgeleSayi)
thz("katbd")=thz("katbd")+0
thz("kattopd")=thz("kattopd")+1
thz("kattopy")=thz("kattopy")+0
thz("kattopt")=thz("kattopt")+1
thz("kattopp")=thz("kattopp")+request.form("bekle")
thz("tar")=date
thz.Update
end if
end if
%>
<%
end if
%>

ne hatası veriyor

sanırım string ile number ı toplamaya calısıyorsun.
veritabanından çektiğin bilgiyi CLng parantezine al ve öyle topla bakalım sorun çözülecek mi
yani :
CLng(veritabanındanaldığınveri) + 1 gibi....
bu komut bir stringi long a(sayıya) çevirir böylece toplamayı sorunsuz yaparsın. clng yapmazsan string+ 1 gibi algılar asp yani "elma" + 1 gibi bişey olur