Constantine

Konu : Veritabanından Rastgele Veri Okumak.
Seviye : Basit
Kaynak Dosyalar : Linkleri Üyelerimiz Görebilir. UslanmaM Üyeliği İçin Tıklayın


Kod:
<% @ Language=VBScript CodePage="1254" %>
<%

strConn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("veritabani.mdb")
set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open strConn

Response.Write "<table border=""1"" cellpadding=""0"" cellspacing=""0"" width=""250"">" & vbNewLine

set objRs=server.createobject("adodb.recordset")
strSql = "select * from tblSozler"
objRs.open strSql objConn 1 3

randomize
intRastgelenKayit = Int((objRs.RecordCount * Rnd)+ 0)
objRs.Move(intRastgelenKayit)

Response.Write "<tr>" & vbNewLine & _
"<td height=""100"" valign=""top"">" & objRs("soz") & "</td>" & vbNewLine & _
"</tr>" & vbNewLine & _
"<tr>" & vbNewLine & _
"<td align=""right"">" & objRs("yazar") & "</td>" & vbNewLine & _
"</tr>" & vbNewLine
objRs.close
set objRs = Nothing

Response.Write "</table>" & vbNewLine

objConn.close
set objConn = Nothing
%>