Comune della provincia di Treviso

<%@LANGUAGE="VBSCRIPT"%> <%response.expires=0 %> <%response.buffer=true %> <%Server.ScriptTimeOut=200000 %> <% MM_connComuni_STRING = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source='" & Server.MapPath("/")& "\dati\comune.mdb'" MM_connPubblicita_STRING = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source='" & Server.MapPath("/")& "\dati\pubblicita.mdb'" Dim IdComune IdComune= Request.QueryString("Comune") if IdComune = "" then IdComune = "0" Dim Comune Select case IdComune case 1 comune = "camposampiero" case 2 comune = "casalesulsile" case 3 comune = "meolo" case 4 comune = "villorba" case 5 comune = "santaluciadipiave" case 6 comune = "quintoditreviso" end select Count=0 if CurPage = "" then CurPage=1 end if Dim BannerTop Dim BannerTopTipo Dim BannerTopLink set ConBanner = Server.CreateObject("ADODB.Recordset") ConBanner.ActiveConnection = MM_connPubblicita_STRING ConBanner.Source ="SELECT NomeFile, Link, Tipo FROM BannerTop WHERE (IdComune=0 OR IdComune=" & IDComune & ") ORDER BY IdComune DESC" ConBanner.Open() BannerTop = ConBanner("NomeFile") BannerTopLink = ConBanner("Link") BannerTopTipo = ConBanner("Tipo") ConBanner.Close() Dim BannerElite Dim BannerEliteTipo Dim BannerEliteLink set ConBanner = Server.CreateObject("ADODB.Recordset") ConBanner.ActiveConnection = MM_connPubblicita_STRING ConBanner.Source ="SELECT IdFinestra, NomeFile, Link FROM BannerElite WHERE IdComune=" & IDComune & " ORDER BY IdComune, IdFinestra" ConBanner.Open() Dim DatiComune set ConComune= Server.CreateObject("ADODB.Recordset") ConComune.ActiveConnection = MM_connComuni_STRING ConComune.Source ="SELECT DatiComune FROM Comune WHERE IdComune=" & IDComune ConComune.Open() DatiComune = ConComune("DatiComune") ConComune.Close() %> Comune della provincia di Treviso

  HOME PAGE

  Abbigliamento

  Agenzie

  Agricoltura

  Alberghi

  Arredamento

  Artigianato

  Auto e Moto

  Aziende

  Banche

  Edilizia

  Negozi

  Professionisti

  Ristorazione

  Servizi

  Trasporti

<% if Trim(BannerTopLink)>"" then %> <% end if %> <% if BannerTopTipo=0 then %>

<% end if %> <% if Trim(BannerTopLink)>"" then %> <% end if %>

	Visite: <%=objCounters.get(comune & "visitors")%>

	Comune
		Giunta Uffici Certificati G.U. Leggi G.U. Conc

	Cultura
<% if not (ConBanner.eof) then if ConBanner("IdFinestra")=12 then response.write "" ConBanner.MoveNext else response.write "" end if else %> <% end if %>		Turismo Arte-Cultura Storia Manifestazioni Foto
	Economia
<% if not (ConBanner.eof) then if ConBanner("IdFinestra")=13 then response.write "" ConBanner.MoveNext else response.write "" end if else %> <% end if %>		Immobili Lavoro Auto

informazioni

<% =DatiComune%>

Numeri utili

Telefoni utili Farmacie Sanità Sport Asili Scuole Biblioteca		Parrocchie Informagiovani Assistenza sociale Ass.ni di lavoro Ass.ni culturali Ass. combattenti Ass. volontariato Ass.ni Politiche
	Utilità
ABI - CAB Autocertificazione Auto-Moto rubate Bollo Auto Calcolo ICI Cambia-valute Codice Fiscale		Contravvenzioni E-mail persone Stasera in TV Tuttogratis Pagine bianche Pagine gialle Pagine utili

Mappa

	News
<% if not (ConBanner.eof) then if ConBanner("IdFinestra")=32 then response.write "" ConBanner.MoveNext else response.write "" end if else %> <% end if %>		Il Gazzettino La Tribuna Il Mattino Nuova Venezia La Gazzetta dello Sport
	Informazioni
<% if not (ConBanner.eof) then if ConBanner("IdFinestra")=32 then response.write "" ConBanner.MoveNext else response.write "" end if else %> <% end if %>		E-mail Promozione Siti web Software Corsi tech