Kod:
<%=rastgelemetin%>
<%
function rastgelemetin
'günde bir defa almak için
if DateDiff("h", application("kontrol"), now) > 23 then
application("rastgelemetin") = verial
application("kontrol") = now
end if
rastgelemetin = application("rastgelemetin")
end function
function verial
set rs = server...........
SQL = "select * from.........
rs.open SQL, connect, 1
toplamsayi = rs.recordcount
randomize timer
rastgele = (rnd * toplamsayi) + 1
rs.move(rastgele)
verial = rs("metin")
rs.close
set rs = nothing
end function
%>