I just wrote this file and I am not sure if everything is correct since I&#039m<BR>still learning ASP/PerlScript. Anybody please point me in the right path.<BR><BR>&#060;CODE&#062;<BR>- cut out due to length -<BR>&#060;%<BR>$UserName=0;$BirthDate=0;<BR><BR>su b StoreData {<BR><BR> foreach Formkey ($Request-&#062;QueryString) {<BR> $Session-&#062;Contents-&#062;SetProperty-&#062;("Item","Formkey","0");<BR> $Session-&#062;{Formkey} = $Request-&#062;QueryString-&#062;Item(Formkey);<BR> $Response-&#062;Write($Session-&#062;Contents-&#062;Item("Formkey"));<BR> }<BR>}<BR><BR>if ($Request-&#062;QueryString("formUserIDPass") {<BR><BR> $UserID = $Request-&#062;QueryString("UserID");<BR> $Password = $Request-&#062;QueryString("Password");<BR> $Confirm = $Request-&#062;QueryString("Confirm");<BR><BR> if (!($UserID)) &#124&#124 (!($Password)) &#124&#124 (!($Confirm)) {<BR> &error("Please fill in all fields of the form");<BR> }<BR> elsif ($Password !~ /(S{5,8})/) {<BR> &error("The password must contain a combination of 5-8 letters/digits");<BR> }<BR> elsif ($Password != $Confirm) {<BR> &error("The passwords entered were different");<BR> }<BR> else {<BR> &StoreData;<BR> &PrintformUserData;<BR> $Response-&#062;End;<BR> }<BR>}<BR>elsif ($Request-&#062;QueryString("formUserData") {<BR><BR> $UserName = $Request-&#062;QueryString("UserName");<BR> $BirthDate = $Request-&#062;QueryString("Month");$BirthDate .=<BR>$Request-&#062;QueryString("Day");$BirthDate .=<BR>$Request-&#062;QueryString("Year");$BirthDate =~ s/s//;<BR><BR> if (!($UserName)) &#124&#124 (!($BirthDate)) {<BR> &error("Please fill in all fields of the form");<BR> }<BR> elsif ($BirthDate !~ /(d{8})/) {<BR> &error("The Bithdate fields should be in MMDDYYYY format");<BR> }<BR> else {<BR> &StoreData;<BR> $Response-&#062;Cookies("goKewl")-&#062;UserID = $Session-&#062;Contents-&#062;Item("UserID");<BR> $Response-&#062;Cookies("goKewl")-&#062;Password =<BR>$Session-&#062;Contents-&#062;Item("Password");<BR> $Server-&#062;HTMLEncode("<BR>Thank you for filling out our form, $UserName %&#062;. We<BR>will notify you on $BirthDate concerning your birthday.");<BR> $Response-&#062;End;<BR> }<BR>}<BR>else {<BR> &PrintformUserIDPass;<BR> $Response-&#062;End;<BR>}<BR>%&#062;<BR>sub PrintformUserIDPass {<BR>%&#062;<BR>- cut out due to length -<BR>&#060;%<BR>}<BR>sub PrintformUserData {<BR>%&#062;<BR>- cut out due to length -<BR>&#060;%<BR>} <BR>sub error {<BR><BR> $Response-&#062;Write("$_[0] Go Back.");<BR> $Response-&#062;End;<BR>}<BR>%&#062;<BR><BR>&#060;/CODE&#062;<BR><BR>If there are any fellow PerlScripters out there I&#039d be glad to talk to ya via<BR>ICQ or Email<BR><BR>Regards,<BR>Gil Hildebrand, Jr.<BR>Chief Content Manager and Programmer - http://goKewl.com<BR>gil@goKewl.com - 28516138 (ICQ)