if it was over writen maybe theres some kind of a log file in your computer for it

or if you did this while online there may be a off line page or file. temp file
or if you have windows xp. maybe you can try the system restore option.
start menu...help and support...look for the SYSTEM RESTORE TAB..restore to a earlyer pount or date you think you can find it. if it fails you can allways go back to the beginning and cancel your last restore point to reset it. caution..i only think this may work. if it dont you just wont find it and then cancel last system restore
  

<perl> if($name_in ne "") {

get "Name==!$name_in", "users";
if($Password ne "" && $Password eq $password_in)
  {
    do_all "db=Wyspas_database sort=Lastname listfields=Lastname,Forename,Status,Gift_Aid,Address_1,Address_2,City,County,Post Code,Phone,Mobile,EMail,Comments", "name_in", "password_in";
  } else
  {
    out="Access denied! Invalid user name or password. Please remember that all user names and passwords are case sensitive. Please try again ";
  $name_in="";
  }

} if ($name_in eq "") { out <<EOF;

<h2>Sign in</h2>Please sign in: <form action="/cgi-bin/baseportal.pl?htx=$htx" method="post" enctype="multipart/form-data"> <input type=hidden name="htx=" value="$htx"> <table> <tr><td>Name:</td><td><input type="text" name="name_in="></td></tr> <tr><td>Password:</td><td><input type="password" name="password_in="></td></tr> <tr><td></td><td><input type=submit value="Sign in"></td></tr> </table> </form>

EOF

} </perl>

Unfortunately I keep getting the following error message which I'm afraid means nothing at all to me.

[ Error: Perl error in :
Can't modify non-lvalue subroutine call in scalar assignment at (eval 124) line 10, at EOF ]

Each time I run it the eval number changes. Can anyone please tell me what I've done wrong?

Thanks

Roy