Hi Guys,

I really tried my best to solve my problem myself but it seems that I will still need some help. Long story in short - This is an old web based solution written in Perl. I installed the original copy and then decided to add make some design changes on the HTML part of the login ASP. In the Perl part itself I just changed the $Response->Redirect with another page in the same folder on the server. And then my troubles began. Every time I try to submit my login details I am getting :

PerlScript Error error '80004005' (in cleanup) Can't call method "EOF" on an undefined value /poplineV1/login.asp, line 36


On some PC`s this is fixed when I clear cache and cookies, but on others this makes not difference and I`m still getting the error.

Makes no sense to me as the same program in a different dir of the server is working perfectly. The only change I`ve done is a single redirect. All else is in the HTML part. I am attaching the ASP file causing the troubles. Any suggestions ?

Thank you in advance! 

<%@LANGUAGE=PerlScript%>
<%



use lib "c:/inetpub/wwwroot/mrtopline";
use genericLIB;
use debug;
use sqlLIB;
use OLE;

    my $Conn;
    my $user;
    my $pass;
    my $sql;
    my $RS;

    loadinivariables("c:/inetpub/wwwroot/mrtopline/mrtopline.def",\%va
+rnames);
    $user = getvariable("_user");
    $pass = getvariable("_password");
    if ($user eq "" && $pass eq "") {    # see if there is a session v
+ariable
        $user=$Session->{'loginuser'};
        $pass=$Session->{'loginpass'};
    }
      $img = $varnames{appearance}->{"images"};
    if ($user ne "" && $pass ne "") {
#        Win32::OLE->Option(Warn => 3);
        $db = sqlLIB->opendatabase($varnames{database}->{dbnm});
        $puser = $user;
        $ppass = $pass;
        $puser =~ s/'/''/g;
        $ppass =~ s/'/''/g;
        $rst = $db->execute("select fldUserID,fldMRInterviewAdmin from
+ tblUsers where fldUserName = '".$puser."' and fldPassword = '".$ppas
+s."';");
        if (!$rst->EOF) {
                if ($varnames{special}->{plbroken} ne "yes") {
    
                    $Session->Contents->SetProperty('Item','user',$rst
+->Fields("fldUserID")->Value);
                    $Session->Contents->SetProperty('Item','username',
+$user);
                    $Session->Contents->SetProperty('Item','admin',$rs
+t->Fields("fldMrInterviewAdmin")->Value);
                } else {
    
#
# alternative method: not as pretty but it works.
#
                    $ScriptingNamespace->setVars("user",$rst->Fields("
+fldUserID")->value);
                    $ScriptingNamespace->setVars("username",$user);
                    $ScriptingNamespace->setVars("admin",$rst->Fields(
+"fldMRInterviewAdmin")->value);
                }
                $Response->Redirect("mainmenu.html");
#                $Response->Flush();
                $Response->End();
                exit(0);
        }
    }
sub refuse()
{
    $Response->Redirect("login.asp");
#    $Response->Flush();
    $Response->End();
    exit(0);
}
%>
<script language="vbscript" runat="server">
Sub setVars(vname,vvalue)
    Session(vname) = vvalue
    Exit Sub
End Sub
</script>
<HTML>
<head><title>TOPLINE LOGIN</title>
<script language=javascript>
function validateform()
{
    with(window.document.forms[0]) {
        if (!_password.value.length || !_user.value.length) {
            alert("Enter your " + (_user.value.length?"password":"user
+ name"));
            return false;
        }
    }
    return true;
}
</script>
</head>
<body bgcolor="#00719b" >
<div id="bg" style="position: absolute; text-align: center; width: 100
+%; z-index: 0;">
<img id="bgmenu" style="width: 45%" src="img/login5.jpg" />

</div>

<TABLE style="position:absolute; width: 10%;  margin-left: 46.3%; marg
+in-top: 19%; ">
  <tr><td> 
        <table border="0" cellpadding="0" cellspacing="0" style="width
+: 100%;" >
          <form name="login" action="login.asp" method="post" onsubmit
+=" return validateform();">
          <tr>
     <td style="font-size: 23; font-family: Trebuchet MS, Helvetica, s
+ans-serif">
              &nbsp;&nbsp;&nbsp;User name <br> 
               &nbsp;<input type="text" name="_user"  style="height: 2
+1%; width: 85%"> <br>
              &nbsp;&nbsp;&nbsp;Password <br>
               &nbsp;<input type="password" name="_password" style="he
+ight: 21%; width: 85%" > <br><br>
                
               <input type="SUBMIT" alt="Login" DEFAULT NAME="LOGIN" V
+ALUE="Login" style="height: 35%; width: 95%">
             </td>
          </tr>
      </form>
        </table>
   </td>
 </tr>       
</TABLE>
</font>
</BODY>
</HTML>

[download]

In reply to PerlScript Error error '80004005' by phipe

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.