|
|
<%
Dim ObjCon
Dim RS
Com = Ucase(Trim(Request.Form("localita")))
Cap = Ucase(Trim(Request.Form("cap")))
Pref = Ucase(Trim(Request.Form("prefisso")))
sql_string = "Where ("
if Len(Com) > 0 then
sql_string = sql_string & " Comune Like '" & Com & "%' AND "
end if
if Len(Cap) > 0 then
sql_string = sql_string & " Cap Like '" & Cap & "%' AND "
end if
if Len(Pref) > 0 then
sql_string = sql_string & " Prefisso = '" & Pref & "' AND "
end if
if Len(sql_string) > 7 then
sql_string = left(sql_string, len(sql_string)-5) & " )"
else
sql_string = sql_string & " ID = 0 )"
end if
Set ObjCon = Server.CreateObject("ADODB.Connection")
Set RS = Server.CreateObject("ADODB.RecordSet")
ObjCon.Open "Provider=Microsoft.jet.OLEDB.4.0;Data Source =" & Request.ServerVariables("APPL_PHYSICAL_PATH") & "mdb-database\citta.mdb"
sql_string = "SELECT Link, ProvEstesa, Comune, Cap, Prefisso, Prov, Reg FROM Comuni " & sql_string & " ORDER BY Comune"
RS.Open sql_string, ObjCon
%>
| ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
Tutte le
principali informazioni sui Comuni d'Italia, le Province, le Regioni.
Comunita' Montane, Parchi, Aree geografiche
Immettere solo uno dei seguenti 3 dati: