random yapcan arkadaşım. misal rs diye kayıt setin olsun(seninki otel gerçi), recordcount ile toplam kaç kaydın olduğunu al, sonra...
Dim intRnd
Randomize Timer
intRnd = (Int(RND * rs.RecordCount))
' rastgele kayıta gidiyoz
rs.Move intRnd
' rastgele veriyi yazdır
Response.Write "<b>" & rs("tbl_bilgi") & "</b>"
tabi bununla rastgele bir id ile bilgi getirirsin, yani bütün bilgileri rastgele yazmaz. neyse...
bu "order by asc desc " gibi komutlar var ya.. illaki rastgele için de bir komut vardır ya