<!--#include file="connectionstring.inc"-->
<!--#include virtual="/_ini/banner.ini.asp"-->
<%
'Set BanConn = Server.Createobject("ADODB.Connection")
'BanConn.Open ini_DSN_BANNER,"",""
If ZonaBanner <> "" Then
QueryZone = "SELECT * FROM Zona WHERE NomeZona ='" & ZonaBanner & "'"
set RsZone=server.CreateObject("ADODB.recordset")
rsZone.open QueryZone,Conn,1,2
'Set RsZone = Conn.execute(QueryZone)
If NOT RsZone.EOF Then
nZona = RsZone("IDZona")
Else
nZona = Ini_strNomeADROTFileDef
End If
RsZone.Close
Set RsZone = Nothing
Else
nZona = Ini_strNomeADROTFileDef
End If
Set Ad = Server.CreateObject("MSWC.Adrotator")
If Ini_boolADROTBanTarget Then
Ad.TargetFrame = "target=_NEW"
End If
strAdrotFile = ini_strPathADROTFiles & "adrot" & nZona & ".txt"
strBanner = Ad.GetAdvertisement(strAdrotFile)
Response.Write strBanner
numStartNomeBanner = InstrRev(strBanner,"/",Len(strBanner)-4,1)
numEndNomeBanner = Instr(1,strBanner,"ALT=",1)-3
numLungNomeBanner = Len(Left(strBanner,numEndNomeBanner)) - numStartNomeBanner
strNomeBanner = Mid(strBanner, numStartNomeBanner+1, numLungNomeBanner)
QueryUpdateBanner = "UPDATE Banner SET Impression = Impression + 1 WHERE NomeFile ='" & strNomeBanner & "' AND IDZona = " & nZona
set RsBanner=server.CreateObject("ADODB.recordset")
rsBanner.open QueryUpdateBanner,Conn,1,2
'Set RsBanner = Conn.execute(QueryUpdateBanner)
'rsBanner.close
'set rsBanner=nothing
'BanConn.Close
'Set BanConn = Nothing
Session(ini_BANNER_ZONA) = nZona
%>
il conentuto del file che da errore (vedi prima pagina del topic)