V
vertigo
I need to display the text banner inside the sub "credit" below.
I want to call the CGI file, test.cgi, from inside an HTML file.
I need this text banner displayed exactly where I call it in the
HTML file.
What else is need here? I get the error:
Premature end of script headers
Thanks!
vertigo
test.cgi file below:
#!/usr/bin/perl
#############################################
#############################################
($sec,$min,$hr,$mday,$mon,$year,$wday,$yday,$isdst) = gmtime(time);
&credit;
exit;
sub credit {
print "Content-type: text/html\n\n";
print"<center><table width="125" height=""
cellspacing="0" cellpadding="0" border="0" bgcolor="#f6f6f6">";
print "<tr><td width="125" height="240"
align="center" valign="middle" background="blue_lines_dark.gif">";
print "<table width="125" height="145"
cellspacing="0" cellpadding="1" border="2" bgcolor="#000000">";
print "<tr><td>";
print "<table width="100%" height="216"
cellspacing="0" cellpadding="0" border="0" bgcolor="#f6f6f6">";
print "<tr><td width="" height=""
align="center" valign="center" bgcolor="">";
print "<table width="95%" cellpadding="0"
cellspacing="0" border="0">";
print "<tr><td>";
print "<div style="overflow:hidden;
width:115px; padding-left:1px">";
print "<font size="+1" face="arial,sans-serif"
color="#0000ff">";
print "<a HREF=\"just a URL to be activated
when the text banner is clicked\" target=_top>";
print "<b>Pay Day Loans</b></a><br></font>";
print "<font size="+1" face="arial,sans-serif"
color="#000000"><b>Need Some Extra Money Until Payday\? ";
print "We Can Lend You Up to \$1000 <font
color=red>Today\!</font></b><br></font>";
print "</div>";
print "</td></tr></table>";
print "</td></tr></table>";
print "</td></tr></table>";
print "</td></tr>";
print "</table>";
}
I want to call the CGI file, test.cgi, from inside an HTML file.
I need this text banner displayed exactly where I call it in the
HTML file.
What else is need here? I get the error:
Premature end of script headers
Thanks!
vertigo
test.cgi file below:
#!/usr/bin/perl
#############################################
#############################################
($sec,$min,$hr,$mday,$mon,$year,$wday,$yday,$isdst) = gmtime(time);
&credit;
exit;
sub credit {
print "Content-type: text/html\n\n";
print"<center><table width="125" height=""
cellspacing="0" cellpadding="0" border="0" bgcolor="#f6f6f6">";
print "<tr><td width="125" height="240"
align="center" valign="middle" background="blue_lines_dark.gif">";
print "<table width="125" height="145"
cellspacing="0" cellpadding="1" border="2" bgcolor="#000000">";
print "<tr><td>";
print "<table width="100%" height="216"
cellspacing="0" cellpadding="0" border="0" bgcolor="#f6f6f6">";
print "<tr><td width="" height=""
align="center" valign="center" bgcolor="">";
print "<table width="95%" cellpadding="0"
cellspacing="0" border="0">";
print "<tr><td>";
print "<div style="overflow:hidden;
width:115px; padding-left:1px">";
print "<font size="+1" face="arial,sans-serif"
color="#0000ff">";
print "<a HREF=\"just a URL to be activated
when the text banner is clicked\" target=_top>";
print "<b>Pay Day Loans</b></a><br></font>";
print "<font size="+1" face="arial,sans-serif"
color="#000000"><b>Need Some Extra Money Until Payday\? ";
print "We Can Lend You Up to \$1000 <font
color=red>Today\!</font></b><br></font>";
print "</div>";
print "</td></tr></table>";
print "</td></tr></table>";
print "</td></tr></table>";
print "</td></tr>";
print "</table>";
}