<% '########################################################################### '## Copyright (C) 2003-04 Ubaldo Pernigo '########################################################################### '## date who what '## 20040120 ubi Nuova versione funzionante '## 20040923 ubi Win 2003 server '########################################################################### Response.Buffer = true %> <% '########################################################################### '# MODIFICARE h1_pagina '########################################################################### titolo_it = strTitle_all_it titolo_en = strTitle_all_en h1_pagina_it = verona_it_00010 h1_pagina_en = verona_en_00010 tabella_from = "siti" where_campo = "ubi_area" where_valore = "Verona e non solo" order_by = "peso DESC, url DESC" %> <% lingua = left(Request.ServerVariables("HTTP_ACCEPT_LANGUAGE"),2) set SelectionRequest = Nothing '################################################################################# '## Apertura della connessione al database '################################################################################# Set strConn = Server.CreateObject("ADODB.Connection") strConn.Open StrConnString strsql = "SELECT * FROM " & tabella_from & " " strsql = strsql & "WHERE " & where_campo & "= " strsql = strsql & "'" & where_valore & "'" strsql = strsql & " ORDER BY " strsql = strsql & order_by strSQLrequest = strsql ' strSQLrequest = "SELECT * FROM siti WHERE ubi_area ='Agende' ORDER BY url DESC " Set rsSelectionRequest = Server.CreateObject("ADODB.Recordset") rsSelectionRequest.Open strSQLrequest, strConn, 1, 3 '################################################################################# '## Costruzione della pagina HTML vera e propria '################################################################################# TotalRecords = rsSelectionRequest.RecordCount Session ("TotalRecords") = rsSelectionRequest.RecordCount 'If TotalRecords = 0 then ' Response.Write "

zero record " & strIndex00010 & "

" ' Else ' Response.Write "

Trovate " & TotalRecords & " segnalazioni

" 'End if %> <% =strMeta_00010 %> <% =strMeta_00020 %> <% =strMeta_00030 %> <% =strMeta_00040 %> <% If lingua ="it" Then Response.write titolo_it Elseif lingua= "en" Then Response.write titolo_en Else Response.write titolo_en End If %>

<% If lingua ="it" Then %> <%=h1_pagina_it%> <%Elseif lingua= "en" Then Response.write h1_pagina_en Else Response.write h1_pagina_it End If %>


# <% conta = 0 %> <% Do While Not rsSelectionRequest.EOF %> <% conta = conta+1 if rsSelectionRequest("ubi_categoria")="Enti e istituzioni" then %> <% response.write rsSelectionRequest("url")%>"> <% response.write rsSelectionRequest("titolo") %> <% end if %> <% if TotalRecords <> (conta+1) AND (rsSelectionRequest("ubi_categoria")="Enti e istituzioni") then ' response.write conta 'if conta <> 1 then response.write " # " 'end if end if rsSelectionRequest.MoveNext Loop %> <% rsSelectionRequest.MoveFirst %> <% Do While Not rsSelectionRequest.EOF %> <% if rsSelectionRequest("ubi_categoria") <> "Enti e istituzioni" then %>

<% response.write rsSelectionRequest("url")%>"> <% response.write rsSelectionRequest("titolo") %> <% if len(rsSelectionRequest("descrizione")) >1 then response.write " (" response.write rsSelectionRequest("descrizione") response.write ")" end if if rsSelectionRequest("localita") <> "" then response.write " (sede " response.write rsSelectionRequest("localita") response.write ")" end if %>

<% end if %> <% rsSelectionRequest.MoveNext Loop %> <% '########################################################################### '## Chiusura delle connessioni che ho aperto '########################################################################### rsSelectionRequest.Close Set rsSelectionRequest = Nothing %>