<%
Set db = Server.CreateObject("ADODB.Connection")
db.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("veritabani.mdb")
set rnmks = server.createobject("ADODB.Recordset")
sql = "select * from tablo"
rnmks.open sql,vt,1,3
Randomize
rastgele = Int((Rnd*rnmks.RecordCount)+0)
rnmks.Move(rastgele)
%>Altta resim yazan yeri kendinize Göre ayarladıktan sonraresimler her girişte dewamlı değişecektir..
<img src="<%=rnmks("resim")%>" border= 1 class="border">