w@rriorhckr
🏅Acemi Tasarımcı🏅
- Katılım
- 9 Şub 2009
- Mesajlar
- 37
- Tepkime puanı
- 1
<%
'Tanımlamalarımızı yapalım.
strConn = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("db/myBanner.mdb")
'Nesnelerimizi tanımlayalım
SET objConn = Server.CreateObject("ADODB.Connection")
SET objRS = Server.CreateObject("ADODB.Recordset")
'Bağlanalım
objConn.Open strConn
'Sorgumuz da hazırlansın
strSQL = "SELECT * FROM tblMyBanner"
'Ve tabloyu sorgulayalım
objRS.Open strSQL, objConn, 1, 3
'Zamana göre bir rastgele sayı aldıralım
Randomize Timer
'Aklından sıfırdan recordcount'a kadar bir sayı tut
iGidilecek = Int(objRS.RecordCount * Rnd)
'Ve o sayıya git
objRS.Move(iGidilecek)
'Gerisi size kalmış
%>
'Tanımlamalarımızı yapalım.
strConn = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("db/myBanner.mdb")
'Nesnelerimizi tanımlayalım
SET objConn = Server.CreateObject("ADODB.Connection")
SET objRS = Server.CreateObject("ADODB.Recordset")
'Bağlanalım
objConn.Open strConn
'Sorgumuz da hazırlansın
strSQL = "SELECT * FROM tblMyBanner"
'Ve tabloyu sorgulayalım
objRS.Open strSQL, objConn, 1, 3
'Zamana göre bir rastgele sayı aldıralım
Randomize Timer
'Aklından sıfırdan recordcount'a kadar bir sayı tut
iGidilecek = Int(objRS.RecordCount * Rnd)
'Ve o sayıya git
objRS.Move(iGidilecek)
'Gerisi size kalmış
%>
