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