<% Categoria=Request("Categoria") Citta = replace(Request("CITTA"),"'","''") Nome = replace(Request("NOME"),"'","''") Indirizzo = replace(Request("Indirizzo"),"'","''") if ucase(citta)=ucase("Florence") then citta="Firenze" end if TipoRichiesta = Array("Categoria","Citta","Nome","Indirizzo") Richiesta = Array(Categoria,Citta,Nome,Indirizzo) Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "Provider=Microsoft.Jet.Oledb.4.0;data source=e:\arcanet130\Database\ristoranti.mdb" sql="SELECT * from ristoranti2010 where ((" for i = 0 to 3 altro=false If len(Richiesta(i)) > 0 then if i = 0 then sql = sql & TipoRichiesta(i) & "='" &Richiesta(i) &"'" else sql = sql & TipoRichiesta(i) & " like '%" & Richiesta(i) & "%' " end if for j=i+1 to 3 if len(Richiesta(j)) > 0 then altro = true end if next end if If altro then sql = sql & ") and (" end if next sql = sql & ")) order by raccomandato desc, nome" If (sql = "SELECT * from ristoranti where (()) order by nome") then Response.Redirect "http://www.yourwaytoflorence.com/tourism/restaurant.htm" else Set Lista = Conn.Execute(sql) end if if Categoria <>"" then titolo = Categoria else titolo = "Restaurants" end if if Citta <> "" then titolo = titolo & " in " & Citta end if %> Florence Restaurants. <%=Titolo%>

ywt florence: restaurants in florence italy, restaurants in florence surroundings


 A Place to Eat in Florence and its Surroundings 


Search your restaurant...
 
<% If Lista.EOF then %> No matches found <% End If %>
SEARCH RESULTS
<% n = 1 Do While not ((Lista.EOF) or (n > 75)) %> <%if Lista("Fax")<>"" then %><%End if%>
"><%= Lista("CATEGORIA")%><% = n%>
Name: <%= Lista("NOME")%>
Address: <% = Lista("INDIRIZZO")%>
City: "><% = Lista("CITTA")%>
Phone: <% = Lista("TELEFONO")%>
Fax: <% = Lista("FAX")%>
" target=mappa>Locate with Google Map            &Citta=<%=server.urlencode(Lista("citta"))%>">Search all <%=Lista("categoria") &" in " & Lista("citta")%>

<% n = n + 1 Lista.MoveNext loop %>