banner rotation

4 svar · 217 visningar · startad av mikael_a 6 okt. 2000

mikael_aMedlem sedan mars 2000475 inlägg

Trådstart6 okt. 2000 10:05#1

är det någon som vet hur jag öppnar länken i ett nytt fönster?


<% Set AdRot = Server.CreateObject("MSWC.AdRotator") %>

<%	=AdRot.GetAdvertisement("adrot.txt") %>

adrot.txt

REDIRECT adredir.asp
WIDTH 468
HEIGHT 60
BORDER 1
* [url="http://www.video-center.nu/images/annonsera/ad1.gif"]http://www.video-center.nu/images/annonsera/ad1.gif[/url]  [url="http://www.micke-anna.nu/"]http://www.micke-anna.nu/[/url] 
Gör ett besök på [url="http://www.micke-anna.nu!"]www.micke-anna.nu![/url] 
50

adredir.asp

<% Response.Redirect(Request.QueryString("url")) %>

en kanske enkel fråga för er går det inte att använda sig av _self

PatrikBMedlem sedan mars 20002 836 inlägg

6 okt. 2000 13:25#2

Hello,

här får du lite kod som funkar:

Set AdRot = Server.CreateObject("MSWC.AdRotator") 
	AdRot.TargetFrame = " target=""_blank"""

cya,
PatrikB

mikael_aMedlem sedan mars 2000475 inlägg

6 okt. 2000 21:27#3

jag får följande fel:

Microsoft VBScript compilation error '800a0409'

Unterminated string constant

/main2.asp, line 291

AdRot.TargetFrame = " target=""_blank""
---------------------------------------^


<% Set AdRot = Server.CreateObject("MSWC.AdRotator") %>
<% AdRot.TargetFrame = " target=""_blank"" %>
<%=AdRot.GetAdvertisement("adrot.txt") %>

BenganMedlem sedan juni 2000690 inlägg

6 okt. 2000 21:39#4

Lägg till ett citattecken på slutet, alltså:

AdRot.TargetFrame = " target=""_blank"""

När man anger citattecken i aspsträngar så dubblar man dem annars tolkas det som slutet på strängen.

mikael_aMedlem sedan mars 2000475 inlägg

7 okt. 2000 12:54#5

tackar, det fungerar