<%
mostradiv = false
Set ALLOTpop = Server.CreateObject("ADODB.Connection")
ALLOTpop.ConnectionTimeout = Application("ALLOT_ConnectionTimeout")
ALLOTpop.CommandTimeout = Application("ALLOT_CommandTimeout")
ALLOTpop.CursorLocation = Application("ALLOT_CursorLocation")
ALLOTpop.Open Application("ALLOT_ConnectionString"), Application("ALLOT_RuntimeUserName"), Application("ALLOT_RuntimePassword")
Set RSpop = Server.CreateObject("ADODB.Recordset")
RSpop.CursorType = adOpenDynamic
if session("popup") <> "yes" then
session("popup") = "yes"
pop = true
else
pop = false
end if
strdiv = "select * from messaggio_homepage where on_line = 'yes' order by recn"
'Response.Write strdiv
RSpop.Open strdiv,ALLOTpop
if not RSpop.EOF then
mostradiv = true
titolopop = RSpop("titolo")
messaggio_homepage = RSpop("messaggio_homepage")
immaginepop = RSpop("img_s_path")
else
mostradiv = false
end if
RSpop.Close
ALLOTpop.Close
Set RSpop = Nothing
Set ALLOTpop = Nothing
%>
<%
'mostradiv = true
'pop = true
if mostradiv and pop then 'new 22 giugno 2005 %>
