%
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