how to prompt user that registration field is wrong or keyed in

Collapse
X
Collapse
 
  • Page of 1
  • Time
  • Show
Clear All
new posts
Previous template Next
  • happyse27
    New Member
    • Sep 2008
    • 236
    #1

    how to prompt user that registration field is wrong or keyed in

    Hi All,

    In perl script(item b below) where we check if html registration form are filled in properly without blank with the necessary fields, how to prompt users that the field are incomplete or blank and then go back to main page(item a below user registration html page) always, something like goggle or msn login page function...


    Thanks and Best Rgds,
    Andrew

    a) script called from user registration html
    ------------------------------------------------------------
    Code:
    <!DOCTYPE HTML PUBLIC "-//SoftQuad//DTD HTML 3.2 + extensions for HoTMetaL PRO 3.0(U) 19961211//EN"
 "hmpro3.dtd">
<HTML>
<HEAD>
<TITLE></TITLE></HEAD>
<BODY>
<FORM ACTION="/cgi-bin/acctman2-if.pl" METHOD="POST">
<CENTER>
<TABLE BORDER="0" WIDTH="400">
<TR>
<TD ALIGN="CENTER">
<TABLE BORDER="0" CELLPADDING="5" BGCOLOR="#FF8000">
<TR>
<TD><INPUT TYPE="CHECKBOX" NAME="agree" VALUE="agree"></TD>
<TD><FONT SIZE="-1" FACE="verdana, arial, helvetica"><B>I agree to the Terms 
and Conditions above.</B></FONT></TD></TR></TABLE><BR></TD></TR>
<TR>
<TD>
<HR SIZE="2" NOSHADE="NOSHADE"></TD></TR>
<TR>
<TD ALIGN="CENTER">
<TABLE BORDER="0" WIDTH="350" NOWRAP="NOWRAP">
<TR>
<TD><FONT SIZE="-1" FACE="verdana, arial, helvetica"><B>Customer Information</B></FONT><BR><FONT
SIZE="-2" FACE="verdana, arial, helvetica" COLOR="#FF0000"><B>Fields marked 
with an asterisk<BR>are required input fields.</B></FONT><BR><BR></TD></TR>
<TR>
<TD><INPUT TYPE="TEXT" NAME="fname">
<FONT SIZE="-1" FACE="verdana, arial, helvetica">First Name *</FONT></TD></TR>
<TR>
<TD><INPUT TYPE="TEXT" NAME="lname">
<FONT SIZE="-1" FACE="verdana, arial, helvetica">Last Name *</FONT></TD></TR>
<TR>
<TD><INPUT TYPE="TEXT" NAME="email">
<FONT SIZE="-1" FACE="verdana, arial, helvetica">E-Mail Address *</FONT></TD></TR></TABLE>
<TABLE BORDER="0" WIDTH="350" NOWRAP="NOWRAP">
<TR>
<TD><BR><FONT SIZE="-1" FACE="verdana, arial, helvetica"><B>Choose a User 
Name</B></FONT><BR><INPUT TYPE="TEXT" NAME="username"> 
<FONT SIZE="-1" FACE="verdana, arial, helvetica">User Name</FONT>  
<FONT SIZE="-1" FACE="arial, helvetica"><BR><BR><B>Choose a Password</B></FONT><BR>
        
<INPUT TYPE="password" NAME="pwd">     
<FONT SIZE="-1" FACE="verdana, arial, helvetica">Password</FONT><BR><INPUT
TYPE="password" NAME="pwd2"> <FONT SIZE="-1" FACE="verdana, arial, helvetica">Verify
  Password</FONT></TD></TR></TABLE><BR><BR><INPUT
TYPE="SUBMIT" NAME="process" VALUE="Submit My Order"><INPUT
TYPE="RESET" NAME=""></TD></TR>
<TR>
<TD>
<HR SIZE="2" NOSHADE="NOSHADE"></TD></TR></TABLE></CENTER></FORM></BODY></HTML>
    b) account management perl script(probably need to focus on if statement below)
    ----------------------------------------------------
    Code:
    #!c:\perl\bin\perl.exe 
#!/usr/bin/perl 
############################################ 
##                                        ## 
##     Account Manager LITE User Signup   ## 
##          by SiteInteractive.com        ## 
##    http://siteinteractive.com/contact  ## 
##                                        ## 
##             version:  1.09             ## 
##       last modified:  07/24/2002       ## 
##        copyright (c) 1998 - 2002       ## 
##                                        ## 
##    latest version is available from    ## 
##        http://SiteInteractive.com      ## 
##                                        ## 
############################################ 
# 
# Copyright 1998 Elite Host.  All Rights Reserved. 
# 
# TERMS OF USE  
# 1. Account Manager is for licensed customers 
# only. Customer may use Account Manager as many 
# times as customer wishes, as long as customer owns or runs the web 
# site that Account Manager is installed on.  Account 
# Manager may not under any circumstances be sold 
# or redistributed without the written consent of CGI Script Center and 
# its owner Diran Alemshah. 
# 
# 2. CGI Script Center, at its own discresion, will decide if any terms  
# of the this agreement have been violated by customer. Upon written e- 
# mailed notification to Customer of Terms of Use violations, CGI 
# Script Center may revoke customer's license to use Account Manager. 
# In that event, Customer agrees to any and all of the following: 
# 
# a) Customers found in violation of this agreement, found reselling or 
# redistributing Account Manager, or making  
# Customers Members Area ID and password public to anyone in any  
# manner will forfeit their Members area password and all rights to  
# future versions of Account Manager. 
#  
# b). Customer will no longer be licensed to run any version of  
# Account Manager.  
# 
# Indemnification 
# 1. Customer agrees that it shall defend, indemnify, save and hold 
# CGI Script Center, Elite Web Design and marketing, and any 
# persons affiliated with either company, harmless from any and all 
# demands, liabilities, losses, costs and claims, including reasonable 
# attorney's fees asserted against CGI Script Center, its agents, its 
# customers, officers and employees, that may arise or result from any 
# service provided or performed or agreed to be performed or any product 
# sold by customer, its agents, employees or assigns. Customer agrees to 
# defend, indemnify and hold harmless CGI Script Center, its agents, 
# its cusomters, officers, and employes,against 
# liabilities arising out of; a) any injury to person or property caused 
# by an products sold or  otherwise distributed in connection with CGI 
# Script Center products; (b) any material supplied by customer 
# infringing or allegedly infringing on the proprietary rights of a 
# third party; c) copyright infringement and (d) any defective products 
# sold to customer from CGI Script Center products. 
# 
# This program may not be distributed in whole or part, freely, for pay,  
# or any other form of compensation. 
# 
##################################################  ############### 
# This version designed for Win32 systems (NT).  If you require 
# a Unix version, please contact cgi@elitehost.com 
##################################################  ############### 
  
  
##################################################  ############ 
# EDIT USER CONFIGURATIONS BELOW 
##################################################  ############ 

# apache is in d DRIVE!!! not C

#require "d:/program files/apache software foundation/apache2.2/cgi-bin/config.pl"; 
  
# This completes this portion of your Account Manager setup 
##################################################  ############ 
# DO NOT EDIT BELOW THIS LINE 
##################################################  ############ 
  
use CGI; 
use CGI::Carp qw(fatalsToBrowser); 
use DBD::mysql;
use DBI;
use Email::Valid;


my $query = CGI->new; 
  
unless ($CGI::VERSION >= 2.47) {  
   error('Your version of CGI.pm is too old. You must have verison 2.47 or higher to use this script.') 
} 
 

#SECTION B
#=========================================
#Database initialization and initial query
my ($dbh, $data_source);  
my $mysql_server_name   = 'localhost';  
my $mysql_database_name = 'test';  
my $mysql_user_name     = 'root';  
my $mysql_password      = 'mysql1';  

my $data_source = 'DBI:mysql:' . $mysql_database_name . ':' . $mysql_server_name;  
my $dbh = DBI->connect( $data_source, $mysql_user_name, $mysql_password, {RaiseError=>1}) ||  die "$DBI::errstr";   
  
  


#important line to pass email address from html to perl
my $agree_field = $query->param("agree") || 'Annonymous'; 
my $first_name = $query->param("fname") || 'Annonymous'; 
my $last_name = $query->param("lname") || 'Annonymous'; 
my $email_address = $query->param("email") || 'Annonymous'; 
my $user_name = $query->param("username") || 'Annonymous'; 
my $password = $query->param("pwd") || 'Annonymous'; 


#Newly added 14th nov 08
if ($agree_field == Annonymous)
{
   print $query->header(), 
      $query->start_html(-title=>'annonymous'), 
      $query->p('Please kindly agree to the terms and condition below!'), 
      $query->p("You Agree? : $agree_field:"),
      $query->end_html;
}
elsif ($agree_field != Annonymous)
{
     $query->start_html(-title=>'annonymous'), 
      $query->p('Please kindly agree to the terms and condition below!'), 
      $query->p("You Agree? : $agree_field:"),
      $query->end_html;
}


 

# End of Database initial Query
#==========================================

print $query->header(), 
      $query->start_html(-title=>'Input Successful'), 
      $query->p('Thanks for registrating your particulars with us!'), 
      $query->p("You Agree? : $agree_field:"),
      $query->p("Your First Name : $first_name"),
      $query->p("Your last Name : $last_name"), 
      $query->p("Your email address: $email_address"), 
      $query->p("Your username : $user_name"), 
      $query->p("Your Password : $password"), 
      $query->end_html; 

sub error { 
   print $query->header(), 
         $query->start_html(-title=>'Error'), 
         shift, 
         $query->end_html; 
   exit(0); 
} 



my $sql = $dbh->prepare(qq{SELECT * FROM user_reg}); 
   $sql->execute(); 

while (my @data = $sql->fetchrow_array()) { 
  
      # Print the date from the first two columns in the table 
      #print $data[0], "\t", $data[1], "<br>"; 
       print $data[0], "\t", $data[1], "\t", $data[2], "\t", $data[3], "\t", $data[4], "\t", $data[5], "<br>";  
} 

1;


 $sql = $dbh->prepare(qq{insert into user_reg(agree_field, first_name, last_name, email_address, user_name, password) values ( "$agree_field", "$first_name", "$last_name", "$email_address", "$user_name", "$password") } );  
   $sql->execute() or die "$dbh->errstr\n";;  
  
$sql = $dbh->prepare(qq{SELECT * FROM user_reg});  
 $sql->execute(); 
  

while (my @data = $sql->fetchrow_array()){  
  
      # Print the date from the first four columns in the table  
      print $data[0], "\t", $data[1], "\t", $data[2], "\t", $data[3], "\t", $data[4], "\t", $data[5], "<br>";  

}
1;

#Let's see if the email_address conforms to the RFC822 specification
print (Email::Valid->address($email_address) ? 'yes' : 'no');
    Last edited by happyse27; Nov 14 '08, 05:44 PM. Reason: make it clearer for user to read
    Tags: None
    • Icecrack
      Recognized Expert New Member
      • Sep 2008
      • 174
      #2
      The answer you are looking for is in Javascript, you may do it in perl but it takes time and processing power (even if its little)

      and i don't see where you are checking if all the fields are entered in your code part b.

        Comment

        • happyse27
          New Member
          • Sep 2008
          • 236
          #3
          Hi Sirs,

          Thanks for big help. I found this website and made modifications and it works.

          Instead of using html, just use .pl scripts to generate html and having conditions to generate same login page... Time for expansion on this module... Cheers...

          Cheers...
          http://www.extropia.co m/tutorials/perl_cgi/form_processor. html

          Thanks and Best Rgds,
          Andrew
          Code:
          #!c:/perl/bin/perl.exe

#!/usr/local/bin/perl


print "Content-type: text/html\n\n";
print qq!
  <HTML>
  <HEAD>
  <TITLE>Testing Form Input</TITLE>
  </HEAD>
  <BODY>
  <FORM METHOD = "POST" ACTION = "fp.cgi">
  <CENTER>
  <TABLE BORDER = "1">
  <TR>
  <TH>First Name</TH>
  <TD><INPUT TYPE = "text"
                NAME = "f_name"></TD>
  </TR>

  <TR>
  <TH>Last Name</TH>
  <TD><INPUT TYPE = "text"
                NAME = "l_name"></TD>
  </TR>

  <TR>
  <TH>Email</TH>
  <TD><INPUT TYPE = "text"
                NAME = "email"></TD>
  </TR>

  </TABLE>
  <P>
  <INPUT TYPE = "SUBMIT">
  </CENTER>
  </FORM>
  </BODY>
  </HTML>!;

            Comment

            • happyse27
              New Member
              • Sep 2008
              • 236
              #4
              Hi all,

              I was working on this perl codes(see section b below) to create html user registration page...

              But the first 3 rows first name to email address is highlighted yellow, so is the mobile_no, the Office phone, office phone 2 and house no. The rest are all white, not sure where in the code below indicates yellow or white?

              And the code did not show red(helvetica) font in the row as it is(see section a below)

              Section a
              ===========
              Code:
               
  <TR>
  <TH>First Name *</TH>
  <TD><FONT SIZE="-1" FACE="verdana, arial, helvetica"><B><INPUT TYPE = "text"
                NAME = "f_name"></B></FONT></TD>
  </TR>
              Section b - Total Code
              =============== ==
              Code:
                <HTML>
  <HEAD>
  <TITLE>Testing Form Input</TITLE>
  </HEAD>
  <BODY>
  <FORM METHOD = "POST" ACTION = "fp.cgi">
  <CENTER>
  <TABLE BORDER = "1">

  <TR>
<TD><FONT SIZE="-1" FACE="verdana, arial, helvetica"><B>Customer Information</B></FONT><BR><FONT
SIZE="-2" FACE="verdana, arial, helvetica" COLOR="#FF0000"><B>Fields marked 
with an asterisk<BR>are required input fields.</B></FONT><BR><BR></TD></TR>



  <TR>
  <TH>First Name *</TH>
  <TD><FONT SIZE="-1" FACE="verdana, arial, helvetica"><B><INPUT TYPE = "text"
                NAME = "f_name"></B></FONT></TD>
  </TR>

  <TR>
  <TH>Last Name *</TH>
  <TD><INPUT TYPE = "text"
                NAME = "l_name"></TD>
  </TR>

  <TR>
  <TH>Email Address *</TH>
  <TD><INPUT TYPE = "text"
                NAME = "Email_Address"></TD>
  </TR>

  <TR>
  <TH>Username</TH>
  <TD><INPUT TYPE = "text"
                NAME = "Username"></TD>
  </TR>

  <TR>
  <TH>Password *</TH>
  <TD><INPUT TYPE = "text"
                NAME = "Password"></TD>
  </TR>

  <TR>
  <TH>Confirm Password *</TH>
  <TD><INPUT TYPE = "text"
                NAME = "Confirm_Password"></TD>
  </TR>

  <TR>
  <TH>Mobile Phone</TH>
  <TD><INPUT TYPE = "text"
                NAME = "Mobile_Phone"></TD>
  </TR>

  <TR>
  <TH>Company Name</TH>
  <TD><INPUT TYPE = "text"
                NAME = "Company_Name"></TD>
  </TR>

  <TR>
  <TH>Office Phone</TH>
  <TD><INPUT TYPE = "text"
                NAME = "Office_Phone"></TD>
  </TR>

  <TR>
  <TH>Office Phone 2</TH>
  <TD><INPUT TYPE = "text"
                NAME = "Office_Phone_2"></TD>
  </TR>

  <TR>
  <TH>House Phone</TH>
  <TD><INPUT TYPE = "text"
                NAME = "House_Phone"></TD>
  </TR>

  <TR>
  <TH>Fax No.</TH>
  <TD><INPUT TYPE = "text"
                NAME = "Fax_No"></TD>
  </TR>
  
  <TR>
  <TH>Address</TH>
  <TD><INPUT TYPE = "text"
                NAME = "Address"></TD>
  </TR>

  <TR>
  <TH>Office_Address</TH>
  <TD><INPUT TYPE = "text"
                NAME = "Office_Address"></TD>
  </TR>

  <TR>
  <TH>Mailing Address (Please ignore if it is same as home address or office address</TH>
  <TD><INPUT TYPE = "text"
                NAME = "Mailing_Address"></TD>
  </TR>

  <TR>
  <TH>Company Card Verify?</TH>
  <TD><INPUT TYPE = "text"
                NAME = "CNV"></TD>
  </TR>
  

  <TR>
  <TD><INPUT TYPE="CHECKBOX" NAME="agree" VALUE="agree"></TD>
  <TD><FONT SIZE="-1" FACE="verdana, arial, helvetica"><B>I agree to the Terms 
  and Conditions above.</B></FONT></TD></TR></TABLE><BR></TD>
  </TR>
 

  </TABLE>
  <P>
  <INPUT TYPE = "SUBMIT">
  </CENTER>
  </FORM>
  </BODY>
  </HTML>
              Last edited by happyse27; Nov 21 '08, 06:09 PM. Reason: did not put part b code

                Comment

                • Icecrack
                  Recognized Expert New Member
                  • Sep 2008
                  • 174
                  #5
                  I had the same thing happen to me on now most of my projects,

                  simple answer its google desktop.

                  and for the red font you must post this in HTML / CSS,

                    Comment

                    • happyse27
                      New Member
                      • Sep 2008
                      • 236
                      #6
                      how to print the html using perl?

                      Hi all,

                      I tried to do 1 thing, that is to put a html rectangle shape to redirect to another webpage when i print the html output below.... But it gives me error below...



                      Error
                      -------
                      Software error:
                      syntax error at D:/Program Files/Apache Software Foundation/Apache2.2/cgi-bin/acctman2-if.pl line 405, near "$query"
                      syntax error at D:/Program Files/Apache Software Foundation/Apache2.2/cgi-bin/acctman2-if.pl line 405, near "396px"
                      syntax error at D:/Program Files/Apache Software Foundation/Apache2.2/cgi-bin/acctman2-if.pl line 405, near "169px"
                      syntax error at D:/Program Files/Apache Software Foundation/Apache2.2/cgi-bin/acctman2-if.pl line 405, near "150px"
                      syntax error at D:/Program Files/Apache Software Foundation/Apache2.2/cgi-bin/acctman2-if.pl line 405, near "31px"
                      Not enough arguments for index at D:/Program Files/Apache Software Foundation/Apache2.2/cgi-bin/acctman2-if.pl line 405, near "index:"
                      syntax error at D:/Program Files/Apache Software Foundation/Apache2.2/cgi-bin/acctman2-if.pl line 405, near "index:"
                      Execution of D:/Program Files/Apache Software Foundation/Apache2.2/cgi-bin/acctman2-if.pl aborted due to compilation errors.

                      For help, please send mail to the webmaster (admin@gateway. 2wire.net), giving this error message and the time and date of the error.


                      Code:
                      # End of Database initial Query
#==========================================


print "<HTML>";
print "<BODY>";
print "<FORM>";
print "<CENTER>";
print "<table border='3' CELLPADDING='5' WIDTH='270' BGCOLOR='#FF8000'>";
print "<tr>";
   
print $query->header(), 
      $query->start_html(-title=>'Input Successful'), 
      $query->p('Thanks for registrating your particulars with us!'), 
      $query->p("You Agree? : agree_field:"),
      $query->p("Your First Name : $first_name"),
      $query->p("Your Last Name : $last_name"), 
      $query->p("Your Email Address: $email_address"), 
      $query->p("Your Username : $user_name"), 
      $query->p("Your Mobile Phone : $mobile_phone"),
      $query->p("Your Company Name : $company_name  "), 
      $query->p("Your Office Phone : $office_phone"),
      $query->p("Your Office Phone 2 : $office_phone2"),
      $query->p("Your House Number : $house_number"),
      $query->p("Your Fax Number : $fax_number"),
      $query->p("Your House Address : $house_address"),
      $query->p("Your Office Address : $office_address"),
      $query->p("Your Mailing Address : $mailing_address"),
      $query->p("Your Certify : $certify"),
      $query->p("Your MonthNum : $MonthNum"),
      $query->p("Your MonthA : $MonthA"),
      $query->p("Your Year : $Year"),
      $query->p("Your Month : $Month"),
      $query->p("Your Day : $Day"),
$query->p("<body bgcolor="#FFFFFF" text="#000000">"),
$query->p("<div id="bv_Shape1" style="position:absolute;left:396px;top:169px;width:150px;height:31px;z-index:0" align="center">"),
$query->p("<a href="http://127.0.0.1/cgi-bin/cards2.pl"><img src="bv01016.gif" id="Shape1" align="top" alt="" title="" border="0" width="150" height="31"></a></div>"),
        
        
      $query->end_html; 



print "</tr></table>";
print "</CENTER>";
print "</FORM>";
print "</BODY>";
print "</HTML>";


sub error { 
   print $query->header(), 
         $query->start_html(-title=>'Error'), 
         shift, 
         $query->end_html; 
   exit(0); 
}

                        Comment

                        • KevinADC
                          Recognized Expert Specialist
                          • Jan 2007
                          • 4092
                          #7
                          these lines appear to be the problem:

                          Code:
                          $query->p("<body bgcolor="#FFFFFF" text="#000000">"),
$query->p("<div id="bv_Shape1" style="position:absolute;left:396px;top:169px;width:150px;height:31px;z-index:0" align="center">"),
$query->p("<a href="http://127.0.0.1/cgi-bin/cards2.pl"><img src="bv01016.gif" id="Shape1" align="top" alt="" title="" border="0" width="150" height="31"></a></div>"),
                          You have double-quotes inside of double-quoted strings. Example:

                          Code:
                          $query->p("<body bgcolor="#FFFFFF" text="#000000">"),
                          Could be written as:

                          Code:
                          $query->p(qq{<body bgcolor="#FFFFFF" text="#000000">}),
                          Same with the other lines

                            Comment

                            • happyse27
                              New Member
                              • Sep 2008
                              • 236
                              #8
                              Hi All,

                              I think the above example is wrong... I tried below new example with
                              Code:
                              $query->start_html(-title=>'Input Successful', -head=>Link({-rel=>'next',
		                  -href=>'http://127.0.0.1/cgi-bin/cards2.pl'})
                              ),
                              ... But it does not give me any button to click. And on the webpage it only showed this message
                              "noStatus: 302 Found Location: http://127.0.0.1/cgi-bin/cards2.pl "

                              Code is below... Kindly assist... thanks...

                              I am just trying to insert this code or equivalent as an html shape into the main perl script... Thanks in advance.
                              Code:
                                <body bgcolor="#FFFFFF" text="#000000">
<div id="bv_Shape1" style="position:absolute;left:396px;top:169px;width:150px;height:31px;z-index:0" align="center">
<a href="http://127.0.0.1/cgi-bin/cards2.pl"><img src="bv01016.gif" id="Shape1" align="top" alt="" title="" border="0" width="150" height="31"></a></div>
                              Andrew


                              Code:
                              print $query->header(), 
      $query->start_html(-title=>'Input Successful', -head=>Link({-rel=>'next',
		                  -href=>'http://127.0.0.1/cgi-bin/cards2.pl'})
                         ),
                    
 
      $query->p('Thanks for registrating your particulars with us!'), 

      $query->p("You Agree? : agree_field:"),
      $query->p("Your First Name : $first_name"),
      $query->p("Your Last Name : $last_name"), 
      $query->p("Your Email Address: $email_address"), 
      $query->p("Your Username : $user_name"), 
      $query->p("Your Mobile Phone : $mobile_phone"),
      $query->p("Your Company Name : $company_name  "), 
      $query->p("Your Office Phone : $office_phone"),
      $query->p("Your Office Phone 2 : $office_phone2"),
      $query->p("Your House Number : $house_number"),
      $query->p("Your Fax Number : $fax_number"),
      $query->p("Your House Address : $house_address"),
      $query->p("Your Office Address : $office_address"),
      $query->p("Your Mailing Address : $mailing_address"),
      $query->p("Your Certify : $certify"),
      $query->p("Your MonthNum : $MonthNum"),
      $query->p("Your MonthA : $MonthA"),
      $query->p("Your Year : $Year"),
      $query->p("Your Month : $Month"),
      $query->p("Your Day : $Day"),
       
      $query->end_html;

                                Comment

                                • happyse27
                                  New Member
                                  • Sep 2008
                                  • 236
                                  #9
                                  Hihi Kevin,

                                  Thanks! your code worked!! Sorry I missed out your reply, saw it in the nick of time

                                  I modified to below and it worked... But I am trying to find out the one in comments worked or not?

                                  #$query->start_html(-title=>'Input Successful', -head=>Link({-rel=>'next',

                                  -href=>'http://127.0.0.1/cgi-bin/cards2.pl'})),


                                  Thanks and Best Rgds,
                                  Andrew

                                  Code:
                                  print $query->header(), 
      #$query->start_html(-title=>'Input Successful', -head=>Link({-rel=>'next', 

-href=>'http://127.0.0.1/cgi-bin/cards2.pl'})),
                    
      $query->start_html(-title=>'Input Successful'),
      $query->p('Thanks for registrating your particulars with us!'), 

      $query->p("You Agree? : agree_field:"),
      $query->p("Your First Name : $first_name"),
      $query->p("Your Last Name : $last_name"), 
      $query->p("Your Email Address: $email_address"), 
      $query->p("Your Username : $user_name"), 
      $query->p("Your Mobile Phone : $mobile_phone"),
      $query->p("Your Company Name : $company_name  "), 
      $query->p("Your Office Phone : $office_phone"),
      $query->p("Your Office Phone 2 : $office_phone2"),
      $query->p("Your House Number : $house_number"),
      $query->p("Your Fax Number : $fax_number"),
      $query->p("Your House Address : $house_address"),
      $query->p("Your Office Address : $office_address"),
      $query->p("Your Mailing Address : $mailing_address"),
      $query->p("Your Certify : $certify"),
      $query->p("Your MonthNum : $MonthNum"),
      $query->p("Your MonthA : $MonthA"),
      $query->p("Your Year : $Year"),
      $query->p("Your Month : $Month"),
      $query->p("Your Day : $Day"),
      $query->p(qq{<body bgcolor="#FFFFFF" text="#000000">}), 
$query->p(qq{<div id="bv_Shape1" 

style="position:absolute;left:396px;top:169px;width:150px;height:31px;z-index:0" 

align="center">}), 
$query->p(qq{<a href="http://127.0.0.1/cgi-bin/cards2.pl"><img src="bv01016.gif" 

id="Shape1" align="top" alt="" title="" border="0" width="150" height="31"></a></div>}), 
  
       
      $query->end_html;

                                    Comment

                                    • KevinADC
                                      Recognized Expert Specialist
                                      • Jan 2007
                                      • 4092
                                      #10
                                      Sorry, I don't even know what the Link attribute is used for. I suspect its something left over from older versions of HTML but I'm not sure. What do you think it should do?

                                      Edit....

                                      OK, I just remembered what Link is for. I don't think you can use it to link to another perl script though. So once again, what is your intention and what do you think it should do?

                                        Comment

                                        Previous template Next
                                        Working...