Banner Rotator Script - Need Target="_blank" inserted? 1

[jwkolker]

Hello - this script works well but I can't for the life of me figure out where to insert target="_blank" so that the url direct will pop a new window and the visitors won't leave my site after clicking on my advertisers banner...
The link where this script works is

http://www.adklix.com/testofbanner.shtml

(reload page to see the banner rotate)

The code that needs target="_blank" inserted (and I don't know where)

#!/usr/bin/perl
$|=1;
$mypic[0]="/personals/banners/AdKlix_468_MenuBanner.gif WIDTH=468 HEIGHT=60 border=0";
$myurl[0]="[URL unfurl="true"]http://www.cnn.com";[/URL]
$mypic[1]="/personals/banners/addesign.gif WIDTH=468 HEIGHT=60 border=0";
$myurl[1]="[URL unfurl="true"]http://www.foxnews.com";[/URL]
$mypic[2]="/personals/banners/gotcomp.gif WIDTH=468 HEIGHT=60 border=0";
$myurl[2]="[URL unfurl="true"]http://www.home2work.com";[/URL]
$mypic[3]="/personals/banners/Hand_Subtle_Ban.gif WIDTH=468 HEIGHT=60 border=0";
$myurl[3]="[URL unfurl="true"]http://www.adklix.com";[/URL]
srand(time ^ $$);
$pick = rand(@mypic);
print "Content-type: text/html\n\n";
print &quot;<A HREF=\&quot;$myurl[$pick]\&quot;><IMG SRC=$mypic[$pick]></A>&quot;;

Thank you.

John Kolker


John Kolker
Programmer
jwkolker@comcast.net

 

[usige]

Have you tried:

print &quot;<A HREF=\&quot;$myurl[$pick]\&quot; target=\&quot;_blank\&quot;><IMG SRC=$mypic[$pick]></a>&quot;;

- or the more readble version -

print qq(<A HREF=&quot;$myurl[$pick]&quot; target=&quot;_blank&quot;><IMG SRC=$mypic[$pick]></a>&quot;

 

[sulfericacid]

ick, I've had so many problems with escaping quotes I find it so much easier and cleaner to type and debug to use:

print qq(...oh wait, usige already came up with it Darn, I never get to help anyone lol

&quot;Age is nothing more than an inaccurate number bestowed upon each of us at birth as just another means for others to judge and classify us- sulfericacid

 

[jwkolker]

This is the final clean version:
I have it running at

http://www.adklix.com

#!/usr/bin/perl
$|=1;
$mypic[0]="/personals/banners/AdKlix_468_MenuBanner.gif WIDTH=468 HEIGHT=60 border=0 alt=\"First Banner\"";
$myurl[0]="[URL unfurl="true"]http://www.cnn.com";[/URL]
$mypic[1]="/personals/banners/addesign.gif WIDTH=468 HEIGHT=60 border=0 alt=\"Second Banner\"";
$myurl[1]="[URL unfurl="true"]http://www.foxnews.com";[/URL]
$mypic[2]="/personals/banners/gotcomp.gif WIDTH=468 HEIGHT=60 border=0 alt=\"Third Banner\"";
$myurl[2]="[URL unfurl="true"]http://www.home2work.com";[/URL]
$mypic[3]="/personals/banners/Hand_Subtle_Ban.gif WIDTH=468 HEIGHT=60 border=0 alt=\"Fourth Banner\"";
$myurl[3]="[URL unfurl="true"]http://www.adklix.com";[/URL]
srand(time ^ $$);
$pick = rand(@mypic);
print "Content-type: text/html\n\n";
print &quot;<A HREF=\&quot;$myurl[$pick]\&quot; target=\&quot;_blank\&quot;><IMG SRC=$mypic[$pick]></a>&quot;;

John Kolker
Programmer
jwkolker@comcast.net