Acil Yardim Lütfen

Merhaba bana www.funclup.net/link.php şeklindeki sitenin asp şekli lazım yardımcı olursanız sevinirim.. Aynı formatta çalışıcak

Link.asp

<%
Set bag = Server.CreateObject("ADODB.Connection")
bag.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("database.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM tablo"
rs.Open sql, bag, 1, 3 'db açtık devam edelim...
%>


<%
Kayitsay = Rs.RecordCount
Randomize
kayitsec = Int(Rnd*Kayitsay)
Rs.Move(KayitSec)
%>
<%=rs("link") %>

Mdb oluşturmalısın bir tane.
database ismi : database.mdb
tablo ismi : tablo
database alanları : link (text : 150 karakter) - id ( otomatik sayı )

Kolay gelsin.