|
Hotel<%
rs.movenext
wend
rs.close
set rs=nothing
set conn=nothing
%><%
sql = "select top 4 * from ratestogo where rating>1 and rating<=2 order by minrate"
Set rs = GetMdbRecordset( "hotels.mdb", SQL )
While not rs.eof
suburb=replace(rs("suburb")," ","-")
hotelname=replace(rs("hotelname")," ","-")
%><%
rs.movenext
wend
rs.close
set rs=nothing
set conn=nothing
%><%
sql = "select top 4 * from ratestogo where rating>2 and rating<=3 order by minrate"
Set rs = GetMdbRecordset( "hotels.mdb", SQL )
While not rs.eof
suburb=replace(rs("suburb")," ","-")
hotelname=replace(rs("hotelname")," ","-")
%><%
rs.movenext
wend
rs.close
set rs=nothing
set conn=nothing
%><%
sql = "select top 4 * from ratestogo where rating>3 and rating<=4 order by minrate"
Set rs = GetMdbRecordset( "hotels.mdb", SQL )
While not rs.eof
suburb=replace(rs("suburb")," ","-")
hotelname=replace(rs("hotelname")," ","-")
%><%
rs.movenext
wend
rs.close
set rs=nothing
set conn=nothing
%><%
sql = "select top 4 * from ratestogo where rating>4 order by minrate"
Set rs = GetMdbRecordset( "hotels.mdb", SQL )
While not rs.eof
suburb=replace(rs("suburb")," ","-")
hotelname=replace(rs("hotelname")," ","-")
%><%
rs.movenext
wend
rs.close
set rs=nothing
set conn=nothing
%>
|