02/09/2010, 21:38
melek1196
böyle bişey yapmaya kalktım ama olmadı
hata Sql satırı hata beceremedim
<%
if session("uyedurum") = True Then
%>
<%
Set Baglanti = Server.CreateObject("ADODB.Connection")
Baglanti.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("rast.mdb")
%>
<%
kadi=request.form("kadi")
yanlis=request.form("yanlis")
intLowerBound = 1
intUpperBound = 9
Randomize()
intRangeSize = intUpperBound - intLowerBound + 1
sngRandomValue = intRangeSize * Rnd()
sngRandomValue = sngRandomValue + intLowerBound
intRandomInteger = Int(sngRandomValue)
Response.Write intRandomInteger
%>
<%
sql = "UPDATE uye SET tablo_altsınır=tablo_altsınır+intRandomInteger WHERE session("kadi") = kadi"
Set kelebek = Server.CreateObject("Adodb.Recordset")
kelebek.Open sql,Baglanti,1,3
if not kelebek.eof then
response.redirect "toplam_puan.asp"
End If
%>
<%
if session("uyedurum") = True Then
%>
<%
Set Baglanti = Server.CreateObject("ADODB.Connection")
Baglanti.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("rast.mdb")
%>
<%
kadi=request.form("kadi")
yanlis=request.form("yanlis")
intLowerBound = 1
intUpperBound = 9
Randomize()
intRangeSize = intUpperBound - intLowerBound + 1
sngRandomValue = intRangeSize * Rnd()
sngRandomValue = sngRandomValue + intLowerBound
intRandomInteger = Int(sngRandomValue)
Response.Write intRandomInteger
%>
<%
sql = "UPDATE uye SET tablo_altsınır=tablo_altsınır+intRandomInteger WHERE session("kadi") = kadi"
Set kelebek = Server.CreateObject("Adodb.Recordset")
kelebek.Open sql,Baglanti,1,3
if not kelebek.eof then
response.redirect "toplam_puan.asp"
End If
%>