db bağlantınızı kendinize göre yapın

<% 
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 sonra
resimler her girişte dewamlı değişecektir..

<img src="<%=rnmks("resim")%>" border= 1 class="border">