02/09/2010, 15:44
melek1196
urettiğim sayı rast adındaki db im deki uye adındaki olusturdugum tabloya
eklenecek tablomdada alt_sınır adındaki bölümde sayım uye oldugunda kişi ilk "0" dan baslıycak ve her sayı urettiğimde sayı alt_sınır kısmındaki degerle toplanacak her sayfaya girişte bu tekrarlanıp en son eklenen sayıya rastgele sayı eklenecek
<%
if session("uyedurum") = True Then
%>
<%
Set Baglanti = Server.CreateObject("ADODB.Connection")
Baglanti.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("rast.mdb")
%>
<%
alt_sınır=request.form("alt_sınır")
%>
<%
sql = "Select * from uye WHERE kadi='"&session("kadi")&"'"
Set melek = Server.CreateObject("Adodb.Recordset")
melek.Open sql,Baglanti,1,3
If melek.eof then
End If
%>
<%
intLowerBound = 1
intUpperBound = 9
Randomize()
intRangeSize = intUpperBound - intLowerBound + 1
sngRandomValue = intRangeSize * Rnd()
sngRandomValue = sngRandomValue + intLowerBound
intRandomInteger = Int(sngRandomValue)
Response.Write intRandomInteger
%>
..............................................
diyorum ama herseyi ekledim bir turlu olmadı alt_sınır sutunu uye tablomun en sonunda arasında bayagı sutun var ...
eklenecek tablomdada alt_sınır adındaki bölümde sayım uye oldugunda kişi ilk "0" dan baslıycak ve her sayı urettiğimde sayı alt_sınır kısmındaki degerle toplanacak her sayfaya girişte bu tekrarlanıp en son eklenen sayıya rastgele sayı eklenecek
<%
if session("uyedurum") = True Then
%>
<%
Set Baglanti = Server.CreateObject("ADODB.Connection")
Baglanti.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("rast.mdb")
%>
<%
alt_sınır=request.form("alt_sınır")
%>
<%
sql = "Select * from uye WHERE kadi='"&session("kadi")&"'"
Set melek = Server.CreateObject("Adodb.Recordset")
melek.Open sql,Baglanti,1,3
If melek.eof then
End If
%>
<%
intLowerBound = 1
intUpperBound = 9
Randomize()
intRangeSize = intUpperBound - intLowerBound + 1
sngRandomValue = intRangeSize * Rnd()
sngRandomValue = sngRandomValue + intLowerBound
intRandomInteger = Int(sngRandomValue)
Response.Write intRandomInteger
%>
..............................................
diyorum ama herseyi ekledim bir turlu olmadı alt_sınır sutunu uye tablomun en sonunda arasında bayagı sutun var ...