Salve
Ho inserito lo script Ikon Banner sul sito e devo dire che è ottimo.
Unica pecca è che i siti sponsorizzati non si aprono in una nuova finestra, ma nella stessa.
E' possibile farli aprire in una nuova finestra?
Posto qui lo script di Ikon Banner:
<%
set cn = server.createobject("adodb.connection")
cn.open strCon
sql = "select count(*) from banners"
set rc = cn.execute(sql)
countofBanners = rc(0)
Set rs = Server.CreateObject ("ADODB.Recordset")
Set rs.ActiveConnection = cn
rs.LockType = 2
sql =""
sql = "select * from banners"
rs.Open sql, cn, 3
randomize
rn = CInt(Int((countofBanners * Rnd()) + 1))
rs.absoluteposition = rn
id = rs("bannerID")
response.write "document.write('<a href="""& url &"redir.asp?id="& rs("bannerID") &"&url="& server.urlencode(rs("url")) & """>');" & vbcrlf
response.write "document.write('<img src="""& rs("image") & """ width=""468"" height=""60"" border=""0""></a>');" & vbcrlf
cn.execute("UPDATE banners set banners.imp = banners.imp + 1 where banners.bannerID = "& id &"")
cn.execute("INSERT INTO logs (logDate, bannerID) values (now(), '"& id &"')")
rs.close
set rs = nothing
rc.close
set rc = nothing
cn.close
set cn = nothing
%>
Grazie
Ho inserito lo script Ikon Banner sul sito e devo dire che è ottimo.
Unica pecca è che i siti sponsorizzati non si aprono in una nuova finestra, ma nella stessa.
E' possibile farli aprire in una nuova finestra?
Posto qui lo script di Ikon Banner:
<%
set cn = server.createobject("adodb.connection")
cn.open strCon
sql = "select count(*) from banners"
set rc = cn.execute(sql)
countofBanners = rc(0)
Set rs = Server.CreateObject ("ADODB.Recordset")
Set rs.ActiveConnection = cn
rs.LockType = 2
sql =""
sql = "select * from banners"
rs.Open sql, cn, 3
randomize
rn = CInt(Int((countofBanners * Rnd()) + 1))
rs.absoluteposition = rn
id = rs("bannerID")
response.write "document.write('<a href="""& url &"redir.asp?id="& rs("bannerID") &"&url="& server.urlencode(rs("url")) & """>');" & vbcrlf
response.write "document.write('<img src="""& rs("image") & """ width=""468"" height=""60"" border=""0""></a>');" & vbcrlf
cn.execute("UPDATE banners set banners.imp = banners.imp + 1 where banners.bannerID = "& id &"")
cn.execute("INSERT INTO logs (logDate, bannerID) values (now(), '"& id &"')")
rs.close
set rs = nothing
rc.close
set rc = nothing
cn.close
set cn = nothing
%>
Grazie