<%
' on error resume next
Dim ip
ip = Request.ServerVariables("REMOTE_ADDR")
SQLText = "SELECT * FROM News WHERE News.pubblicato = ON order by news.id_news DESC"
set rse = Server.CreateObject("ADODB.Recordset")
rse.Open SQLText, Session("dbconn")
if rse.EOF and rse.BOF then
EmptyRecordset = True
else
EmptyRecordset = False
end if
'if EmptyRecordset = True then
'response.redirect("errore.asp")
'end if
SQLText = "SELECT * FROM News WHERE News.evento = ON order by news.id_news DESC"
set rsu = Server.CreateObject("ADODB.Recordset")
rsu.Open SQLText, Session("dbconn")
if rsu.EOF and rsu.BOF then
EmptyRecordset2 = True
else
EmptyRecordset2 = False
end if
SQLText = "SELECT * FROM T_Editoriale order by T_editoriale.data DESC;"
set rsv = Server.CreateObject("ADODB.Recordset")
rsv.Open SQLText, Session("dbconn")
if rsv.EOF and rsv.BOF then
EmptyRecordset2 = True
else
EmptyRecordset2 = False
end if
%>
::: piuweb :::
.
.DISCOTECHE Speciale ore piccole, riduzioni e free pass
