Hi all,
Any idea how I pass variables from perl into an ASP code snippet with in a pl file ?
++++ Start Script ++++++++++++++++++++++++++++++++++++++
# script to send feedback
#
#
use CGI;
print("Content-type: text/html\n\n"
;
my($name, $email, $comments, $helper);
my $q = new CGI;
$name = $q->param('name');
$email = $q->param('email');
$comments = $q->param('comments');
$helper = $q->param('helper');
$remote_addr = $ENV{'REMOTE_ADDR'};
$recipiant = 'tarn@something.com';
$date = scalar localtime();
chop $date;
print "name\t$name<br> \n";
print "email:\t\t$email<br> \n";
print "comments?\t$comments<br> \n";
print "Helper?\t\t$helper<br> \n";
print "\n<br>";
print "IP\t\t\t$remote_addr\n<br>";
print "\n<br>";
print "Report entered on $date<br> \n";
print "<HTML>";
print "<HEAD>";
print "<TITLE>OUTPUT</TITLE>";
print '<link REL=stylesheet HREF=" TYPE="text/css">';
print "</head>";
print "<body>";
print "<H2>Feedback Form Confirmation</H2>";
print "<% \@LANGUAGE = VBScript %>";
print "<% Option Explicit Dim myMail Set myMail = Server.CreateObject('CDONTS.NewMail')";
print "MyMail.Send '$recipiant,$email', _";
print "'Subscription Form', '$comments', 0 ";
print "Set myMail = Nothing %>";
print "<P>Your feedback was sent to tarns asp on $date</P>";
print "</body>";
print "</HTML>";
++++ END SCRIPT ++++++++++++++++++++++++++++++++
Any idea how I pass variables from perl into an ASP code snippet with in a pl file ?
++++ Start Script ++++++++++++++++++++++++++++++++++++++
# script to send feedback
#
#
use CGI;
print("Content-type: text/html\n\n"
;my($name, $email, $comments, $helper);
my $q = new CGI;
$name = $q->param('name');
$email = $q->param('email');
$comments = $q->param('comments');
$helper = $q->param('helper');
$remote_addr = $ENV{'REMOTE_ADDR'};
$recipiant = 'tarn@something.com';
$date = scalar localtime();
chop $date;
print "name\t$name<br> \n";
print "email:\t\t$email<br> \n";
print "comments?\t$comments<br> \n";
print "Helper?\t\t$helper<br> \n";
print "\n<br>";
print "IP\t\t\t$remote_addr\n<br>";
print "\n<br>";
print "Report entered on $date<br> \n";
print "<HTML>";
print "<HEAD>";
print "<TITLE>OUTPUT</TITLE>";
print '<link REL=stylesheet HREF=" TYPE="text/css">';
print "</head>";
print "<body>";
print "<H2>Feedback Form Confirmation</H2>";
print "<% \@LANGUAGE = VBScript %>";
print "<% Option Explicit Dim myMail Set myMail = Server.CreateObject('CDONTS.NewMail')";
print "MyMail.Send '$recipiant,$email', _";
print "'Subscription Form', '$comments', 0 ";
print "Set myMail = Nothing %>";
print "<P>Your feedback was sent to tarns asp on $date</P>";
print "</body>";
print "</HTML>";
++++ END SCRIPT ++++++++++++++++++++++++++++++++