The following script was working last night. But now only puts up my
error msg. It was putting up the error msg when I tried to run the
script via file path
(http://www.mariposanet.com/cgi-bin/contactnn.cgi) and continuing to
run the rest of the program if not. No longer...
Any thoughts?
my $form=$q->param('contactform');
#CHECK FOR FORM
unless (-e $form)
{print <<"PrintTag";
<html>
<head>
<title>Error!</title>
<STYLE type="text/css">
<!--
BODY {
background-color: #ffffcc;
font-size: 12pt;
color: #000066;
text-align: center
}
H1 {
font-size: 14pt
}
-->
</STYLE>
</head>
<body bgcolor="#ffffff">
<center>
<h2>Alert!</h2>
<h3>I'm sorry but you are forbidden to run this program without
filling out the form.</h3>
<p><a href="http://www.mariposanet.com/contactnn.html";>Contact Form</a></p>
</center>
</body>
</html>
PrintTag
exit(0);
}
--
-------------------------------
- Teresa Raymond -
- Mariposa Net -
- http://www.mariposanet.com -
-------------------------------
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
