<% if request("table") = "" then tb = "Lodging" elseif request("table")="choose" then %> Please choose what you would like to search:
Attractions
Builders
Lodging
Residential
Restaurants
Services
Shopping

<% response.end else tb = request("table") end if %>
Search <%= tb %>



<% If request("mode") = "d" then%> <% End If %>
<%= tb %> Type <% If request("mode") = "d" then%>* fields are required.

<% End If %>

Drive traffic to your website email marketing@appnet.com for details on advertising and getting listed.
City
First Night:*
Last Night:*
 
 


<% SQL = "Select distinct type FROM "&tb&" ORDER BY type ASC" set r1 = connection.execute(SQL) while r1.eof = false %><% r1.movenext WEND %>
<%= r1("type") %>

<% SQLStmt = "SELECT id,name,url,description,address,city,state,zipcode,phone FROM "& tb SQLStmt = SQLStmt & " WHERE type= '"& r1("type") &"' Order by type asc, name asc" ' Response.write SQLStmt&"

" ' Response.end set r2 = connection.execute(SQLStmt) jme = 0 while r2.eof = false jme = jme +1 if jme = 1 then%> <%end if%> <% if jme = 2 then jme = 0 %> <%end if r2.movenext WEND if jme = 1 then %> <% End If %>
<% If r2("url") <> "" then %>"><%= r2("name") %><% Else %><%= r2("name") %><% End If %>
<% Connection.close set r1 = nothing %>