<%=request("name")%>
<% Set conn = Server.CreateObject("ADODB.Connection") conn.CommandTimeOut=0 conn.open "DSN=eGO_website","egoSQL","ego123" 'response.write "" sql = "SELECT * FROM lodging WHERE state = '" & request("state") & "' and name like '%Ramada%' ORDER by City,Name" 'response.write sql Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql, conn,0,1 If not rs.eof then do while not rs.eof if city<>rs("city") then response.write "" & rs("city") & "
" & vbcrlf response.write " " & vbcrlf if rs("url_more") <> "" then response.write "" response.write "" & rs("Name") & "" 'response.write "
" & rs("Description") & vbcrlf if rs("address") <> "" then response.write "
" & rs("address") & vbcrlf if rs("city") <> "" then response.write "
" & rs("city") & ", " & rs("state") & " " & rs("zipcode") & vbcrlf if rs("phone") <> "" then response.write "
" & rs("phone") & vbcrlf 'response.write "
" & vbcrlf if rs("url_reservation") <> "" then response.write "
Reservations" & vbcrlf end if response.write "
" & vbcrlf city=rs("city") rs.movenext loop end if rs.close set rs = nothing %>
