<%
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('[b]<a href="""& url &"redir.asp?id="& rs("bannerID") & "&url="& server.urlencode(rs("url ")) & """>[/b]');" & 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
%>
Brukar inte skriva länkar med hjälpa av ASP-kod, alltså typ Response.Write "länk", utan kör med att jag avslutar med ASP-block, och skriver i HTML-kod. Därav har jag inte satt ut target i din kod. Men det är där du skall sätta target. Det fetmarkerade...