webForumDet fria alternativet

Nytt fönster var ska jag ...?

ASP

7 svar · 289 visningar · startad av jimbo

Medlem sedan feb. 2003185 inlägg
Frågan#1

Hejsan!

Kan någon berätta för mig var jag petar in target="blank" i den här koden så bannerna öppnar sig i ett nytt fönster ??

Tacksam för tips =)

<%
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

%>

Tack på förhand Mvh Jimmy

Medlem sedan mars 20033 686 inlägg
#2

Re: Nytt fönster var ska jag ...?

<%
	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...

Jag = :x

:)

Medlem sedan mars 20023 561 inlägg
#3
response.write "document.write('<a href="""& url &"redir.asp?id="& rs("bannerID") & "&url="& server.urlencode(rs("url ")) & """ target=""_blank"">');" & vbcrlf
Medlem sedan feb. 2003185 inlägg
#4

Tackar - sjysst snabbt svar
Har med listat ut att det är på den raden men det blir bara syntaxfel hela tiden, hmmmm jag klämmer in de på fel ställe :(

Medlem sedan feb. 2003185 inlägg
#5

Oj Josef hann imellan - verkligen sjysst killar =)
Tackar, jag kommer tillbaka =)

Mvh Jimmy

Medlem sedan feb. 2003185 inlägg
#6

Ah de blir syntaxfel ?

Medlem sedan mars 20033 686 inlägg
#7

Felmeddelande?

Medlem sedan feb. 2003185 inlägg
#8

Ah kom på det:

response.write "document.write('<a href="""& url &"redir.asp?id="& rs("bannerID") & "&url="& server.urlencode(rs("url")) & """ target=""_blank"">');" & vbcrlf

Det var ju ett mellanrum i ("url")) koden innan =)

Tack till er som hjälpte till !

662 ms totalt · 4 externa anrop · v20260731065814-full.a51de22e
523 ms — deklarationer (db)
0 ms — hämta statistik (cache)
132 ms — hämta tråd, inlägg och bilagor (db)
518 ms — ändringar (db)