<% Totem = TotemFromUserAgent() If session("UserID") = "" Then If Totem <> "" then Utente = UserConnect(Totem) If Utente <> "" Then Utente = Split(utente,"|") session("UserID") = Utente(0) session("UserPWD") = Utente(1) End If End If End If %> <% 'chiamata al database per ottenere le news sull'include body. set RsNews = Server.CreateObject("ADODB.Recordset") sqlNews="SELECT * FROM news LEFT JOIN portalsNews ON news.id = portalsNews.id_news WHERE (visible = 1) AND (id_portals = 1) ORDER BY OrderNumber" RsNews.Open SqlNews,opendbcoreR,3,3 %>

style="width:518;">	<% if session("userId")= "" then %> U S E R accedi alla sezione per la gestione del tuo user Hai bisogno di aiuto? <% else %>     <%=session("userId")%>'s Homepage   logout <% end if %> <% 'chiamata al database per ottenere gli ultimi 5 hotspots set RsHotSpot = Server.CreateObject("ADODB.Recordset") SqlHotSpot = "SELECT TOP 5 dbo.Locations.descrizione AS locaton_desc, dbo.Locations.citta AS citta, dbo.Locations.provincia AS provincia FROM dbo.Locations LEFT OUTER JOIN (SELECT dbo.VW_passports.*, dbo.Lines.id_Location AS id_Location FROM dbo.VW_passports LEFT OUTER JOIN dbo.Lines ON dbo.Lines.id = dbo.VW_passports.id_line) Tmp ON dbo.Locations.id = Tmp.id_Location WHERE (NOT (Tmp.activationDate IS NULL)) AND (Tmp.wisp > 0) ORDER BY Tmp.activationDate DESC" RsHotSpot.Open SqlHotSpot,opendbcoreR,3,3 cnt = 1 if not RsHotSpot.EOF then do sLocation=RsHotSpot("locaton_desc") & " - " & RsHotSpot("citta") & " (" & RsHotSpot("provincia") & ")" %> <% RsHotSpot.MoveNext cnt = cnt+1 loop until RsHotSpot.eof end if %> <%if cnt=1 then Response.Write ("")%> <%Response.Write sLocation if cnt =0 then Response.Write ("")%>    CLICCA QUI per visualizzare    la mappa completa degli HOT SPOT