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...