<%
set rs = server.CreateObject("ADODB.Recordset")
connectdbHome
rs.open "select max(id) from promo",con
maxid = rs.fields(0)
rs.close
Randomize()
randNum = (CInt(maxid * Rnd))
'rs.open "select id,pname,des,price,plink, Rnd(-1 * " & randNum & " * id) from promo order by 6",con
'rs.open "select top 1 id,pname,des,price,plink from promo where id >= " & randNum & " order by id",con
rs.open "select * from promo order by id desc",con
if rs.eof = false then
id = rs("id")
pname = rs("pname")
des = rs("des")
price = rs("price")
plink = rs("plink")
end if
%>
<%=pname%>
<%=des%>
$<%=price%>
Our clients benefit from not only the expertise of our agents but from the knowledge that what they care about most in a vacation is what we care about most in fulfilling.
