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

236 100+

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
------------------------------------------------------------

Expand|Select|Wrap|Line Numbers

 
<!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)
----------------------------------------------------

Expand|Select|Wrap|Line Numbers

 
#!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');

Nov 14 '08 #1

Subscribe Post Reply

4213

Icecrack

174

Expert 100+

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.

Nov 19 '08 #2

happyse27

236

100+

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.com/tutorials/perl_cgi/form_processor.html

Thanks and Best Rgds,
Andrew

Expand|Select|Wrap|Line Numbers

 
#!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>!;

Nov 20 '08 #3

happyse27

236

100+

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
===========

Expand|Select|Wrap|Line Numbers

  
  <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
=================

Expand|Select|Wrap|Line Numbers

  
  <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>

Nov 21 '08 #4

Icecrack

174

Expert 100+

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,

Nov 23 '08 #5

happyse27

236

100+

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.

Expand|Select|Wrap|Line Numbers

  
# 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); 

}

Dec 23 '08 #6

KevinADC

4,059

Expert 2GB

these lines appear to be the problem:

Expand|Select|Wrap|Line Numbers

 
$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:

Expand|Select|Wrap|Line Numbers

$query->p("<body bgcolor="#FFFFFF" text="#000000">"),

Could be written as:

Expand|Select|Wrap|Line Numbers

$query->p(qq{<body bgcolor="#FFFFFF" text="#000000">}),

Same with the other lines

Dec 23 '08 #7

happyse27

236

100+

Hi All,

I think the above example is wrong... I tried below new example with

Expand|Select|Wrap|Line Numbers

 
$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.

Expand|Select|Wrap|Line Numbers

 
  <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

Expand|Select|Wrap|Line Numbers

  
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;

Dec 23 '08 #8

happyse27

236

100+

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

Expand|Select|Wrap|Line Numbers

 
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;

Dec 23 '08 #9

KevinADC

4,059

Expert 2GB

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?

Dec 23 '08 #10

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

Similar topics