<%response.buffer = "true" sessioneUtente = Request.QueryString ("outLogin") if sessioneUtente = 1 then Session.Abandon () Response.Redirect "index.asp" End if data_ultimo_aggiornamento = date() %>

»Canali <% sql = "Select Distinct rubriche.argomentoRubrica From rubriche, pubblicaRubriche where rubriche.IdRubriche = pubblicaRubriche.IdRubriche AND pubblicaRubriche.pontenellealpi = true" Set rs = Server.CreateObject("ADODB.Recordset") rs.CursorType = adOpenStatic rs.Open sql, conn, 3,3 do While not rs.EOF %> "> <%Response.Write rs("argomentoRubrica")%> <% rs.MoveNext Response.Write (" ") loop rs.Close set rs = Nothing %>   »Articoli <% sql = "Select Distinct articoli.argomentoArticoli From articoli, pubblicaArticoli Where articoli.IdArticoli = pubblicaArticoli.IdArticoli AND pubblicaArticoli.pontenellealpi = true" Set rs = Server.CreateObject("ADODB.Recordset") rs.CursorType = adOpenStatic rs.Open sql, conn, 3,3 do While not rs.EOF %> "> <%Response.Write rs("argomentoArticoli")%> <% rs.MoveNext Response.Write (" ") loop rs.Close set rs = Nothing %>   »Notizie <% sql = "Select Top 6 news.titolo, news.IdNews From news, pubblicaNews Where news.IdNews = pubblicaNews.IdNews AND pubblicaNews.pontenellealpi = true ORDER BY news.IdNews DESC" Set rs = Server.CreateObject("ADODB.Recordset") rs.CursorType = adOpenStatic rs.Open sql, conn, 3,3 do While not rs.EOF %> &titolo=<%=rs("titolo")%>"> <%Response.Write rs("titolo")%> <% rs.MoveNext Response.Write (" ") loop rs.Close set rs = Nothing Conn.Close set Conn = Nothing %>   »La tua sezione Iscrizione I vostri messaggi Invia il tuo articolo New* Promozioni   »Portali tematici

»COMUNE DI PONTE NELLE ALPI IN REAL TIME

<% if Session("Autenticato") = "OK" then %> <% else %> <%End if%>