Rastgele yazi……
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
%>
