Hazır Script – Hazır Kod

Rastgele yazi……

Rastgele yazi…..

codeDivStart()

<%

Set Kon = Server.CreateObject("ADODB.Connection" )

Kon.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("veritabani yolu" ))

Set Rs = Server.CreateObject("ADODB.Recordset" )

SQL = "SELECT * FROM TblYeni"

Rs.Open SQL,kon,1,3

Randomize

kac = Int((rs.RecordCount * Rnd)+ 0)

Rs.Move(kac)

Soz=Rs("Soz" )

Resim=Rs("Resim" )

AltYazi=Rs("AltYazi" )

Rs.Close

Kon.Close

Set Rs=Nothing

Set Kon=Nothing

%>