<% quale = request.querystring("quale") select case quale case "1" regione = "PIEMONTE" img = lcase(regione) case "2" regione = "VALLE D''AOSTA" img = "valle" case "3" regione = "LIGURIA" img = lcase(regione) case "4" regione = "LOMBARDIA" img = lcase(regione) case "5" regione = "TRENTINO ALTO ADIGE" img = lcase("TRENTINO") case "6" regione = "FRIULI VENEZIA GIULIA" img = lcase("FRIULI") case "7" regione = "VENETO" img = lcase(regione) case "8" regione = "EMILIA ROMAGNA" img = lcase("EMILIA") case "9" regione = "TOSCANA" img = lcase(regione) case "10" regione = "MARCHE" img = lcase(regione) case "11" regione = "UMBRIA" img = lcase(regione) case "12" regione = "LAZIO" img = lcase(regione) case "13" regione = "ABRUZZO" img = lcase(regione) case "14" regione = "SVIZZERA" img = lcase("CANTON") case "15" regione = "CAMPANIA" img = lcase(regione) case "16" regione = "PUGLIA" img = lcase(regione) case "17" regione = "BASILICATA" img = lcase(regione) case "18" regione = "CALABRIA" img = lcase(regione) case "19" regione = "SICILIA" img = lcase(regione) case "20" regione = "SARDEGNA" img = lcase(regione) end select sql = "select id, nome, insegna from affiliati where regione = '" & regione & "' order by provincia, nome" set rs1 = connection.execute(sql) sql = "select localita from affiliati where regione = '" & regione & "' order by provincia, nome" set rs2 = connection.execute(sql) sql = "select provincia from affiliati where regione = '" & regione & "' order by provincia, nome" set rs3= connection.execute(sql) %> OCCHIALERIA ITALIANA
 
 
 
Cerca il distributore Occhialeria Italiana nella tua regione.
 


Punto Vendita Comune Prov
<% do while not rs1.eof %> ','','width=249,height=223')" class="grigio10_link"><%=rs1("insegna")%>
<% rs1.movenext loop rs1.close set rs1=nothing %>

<% do while not rs2.eof response.write rs2("localita") & "
" rs2.movenext loop rs2.close set rs2=nothing %>

<% do while not rs3.eof response.write rs3("provincia") & "
" rs3.movenext loop rs3.close set rs3=nothing %>