CJWSoft Support Info: VBScript runtime error ’800a01f4’

Active Info

Memberlist

Help

ASPProtect Full 7.x Support ( Info Locked)
CJWSoft Support Info : ASPProtect Full 7.x Support

Info: VBScript runtime error ’800a01f4’

Author

Message

<< Prev Info | Next Info >>

wrohdejr
New User

Joined: April/18/2007
Location: United States
Online Status: Offline
Info: 15

Added: October/08/2007 at 1:14pm \| IP Logged

i am getting this code when i go from a html page to an asp page.

Microsoft VBScript runtime error '800a01f4'

Variable is undefined: 'strName'

/aspprotect/scripts/clean_user_info_inc.asp, line 7

i haven't even messed with any of the scripts it will do this after being logged in for about 15 mins.

cwilliams
Admin Group

CJWSoft Web Software Developer

Joined: April/06/2004
Online Status: Offline
Info: 1769

Added: October/08/2007 at 1:40pm \| IP Logged

lets step back... what happens when you run the the example protected pages that come with the system ? we want to start there and make sure they work because they are very simple..

and does the admin area work ok?

As for that error I really need to see all the code in the page your talking about including the full page name with extension.. and also exactly what you added regarding ASPProtect..

I have to go out right now on a networking job so I wont be back until later

__________________

Best Regards, Christopher Williams www.CJWSoft.com

cwilliams
Admin Group

CJWSoft Web Software Developer

Joined: April/06/2004
Online Status: Offline
Info: 1769

Added: October/08/2007 at 1:56pm \| IP Logged

ok, you must have option.explicit declared in your code and also Concurrent_User_Check enabled in the settings ?

(something I must have missed when testing)

Is that correct ?

If so do one of the following for now...

remove or comment out your option.explicit line in your code

turn off the Concurrent_User_Check in the settings

or start adding Dim statements as they show up in the error messages..

In this case your would add
Dim strName

to the config_inc.asp file

and then run the code again... and add a dim for each variable it complains about until it starts running

When I get home later I will essentially be doing all of that myself so if you can wait.. then don't bother troubleshooting it yourself..

my suggestion is remove your option.explicit for now and wait untill I get time to to test that sceanrio and add the missing dims for the concurrent user checking code...

__________________

Best Regards, Christopher Williams www.CJWSoft.com

cwilliams
Admin Group

CJWSoft Web Software Developer

Joined: April/06/2004
Online Status: Offline
Info: 1769

Added: October/08/2007 at 7:31pm \| IP Logged

So am I on the right track with your problem ? I'd like to know before i start working on this.. thx

__________________

Best Regards, Christopher Williams www.CJWSoft.com

wrohdejr
New User

Joined: April/18/2007
Location: United States
Online Status: Offline
Info: 15

Added: October/08/2007 at 9:06pm \| IP Logged

i did have Concurrent_User_Check bock checked i have unchecked that box. i have not added any option.explicit declared i dont even know what that is.

cwilliams
Admin Group

CJWSoft Web Software Developer

Joined: April/06/2004
Online Status: Offline
Info: 1769

Added: October/08/2007 at 9:46pm \| IP Logged

option.explicit has to be in one of your pages or that error could never have come up.. your going to have to paste the source of a page that errors pops up on ... so I can figure this out....

__________________

Best Regards, Christopher Williams www.CJWSoft.com

wrohdejr
New User

Joined: April/18/2007
Location: United States
Online Status: Offline
Info: 15

Added: October/08/2007 at 9:49pm \| IP Logged

since unchecking Concurrent_User_Check i haven't had the error

wrohdejr
New User

Joined: April/18/2007
Location: United States
Online Status: Offline
Info: 15

Added: October/08/2007 at 9:51pm \| IP Logged

this is the code of the page that it first error showed up on.

<%@ LANGUAGE="VBSCRIPT" %>
<% option explicit %>

<html>
<head>
<title>Chapter three</title>

</head>
<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">

<table id="Table_01" width="776" height="702" border="0" cellpadding="0" cellspacing="0">
<tr>
  <td colspan="8">
  <div style="position: absolute; width: 739px; height: 616px; z-index: 5; left: 1px; top: 5px" id="layer21">
   <p align="center">
   <object classid="clsid:D27CDB6E-AE6D-11CF-96B8-444553540000" id="obj1" codebase=" http://download.macromedia.com/pub/shockwave/cabs/flash/swfl ash.cab#version=6,0,40,0" border="0" width="669" height="485">
    <param name="movie" value="../swf/chapter3.swf">
    <param name="quality" value="High">
    <embed src="../swf/chapter3.swf" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" name="obj1" width="669" height="485" quality="High"></object>
   </p>
   <p align="center"> </div>
   <img src="../../../images/058notop_01.gif" width="776" height="651" alt=""></td>
</tr>
<tr>
  <td rowspan="2">
   <img src="../../../images/058notop_02.gif" width="1" height="51" alt=""></td>
  <td>
   <a href="http://www.olccclassonline.com/default.asp">
    <img src="../../../images/058notop_03.gif" width="98" height="29" border="0" alt="Home"></a></td>
  <td rowspan="2">
   <img src="../../../images/058notop_04.gif" width="1" height="51" alt=""></td>
  <td>
   <a href="http://www.olccclassonline.com/aspprotect/users/default.asp">
    <img src="../../../images/058notop_05.gif" width="108" height="29" border="0" alt="Log In"></a></td>
  <td>
   <a href="http://www.oregon.gov/OLCC/server_education.shtml">
    <img src="../../../images/058notop_06.gif" width="102" height="29" border="0" alt="O.L.C.C."></a></td>
  <td>
   <a href="http://www.olccclassonline.com/info.html">
    <img src="../../../images/058notop_07.gif" width="95" height="29" border="0" alt="information"></a></td>
  <td>
   <a href="mailto:info@olccclassonline.com?subject=Need some information">
    <img src="../../../images/058notop_08.gif" width="105" height="29" border="0" alt="Contact Us"></a></td>
  <td rowspan="2">
   <img src="../../../images/058notop_09.gif" width="266" height="51" alt=""></td>
</tr>
<tr>
  <td>
   <img src="../../../images/058notop_10.gif" width="98" height="22" alt=""></td>
  <td colspan="4">
   <img src="../../../images/058notop_11.gif" width="410" height="22" alt=""></td>
</tr>
</table>

</body>
</html>

i now see the option explict and have removed it.

cwilliams
Admin Group

CJWSoft Web Software Developer

Joined: April/06/2004
Online Status: Offline
Info: 1769

Added: October/08/2007 at 9:55pm \| IP Logged

ok, I'll work on a fix so you can turn it back on.. might take me a couple days..

__________________

Best Regards, Christopher Williams www.CJWSoft.com

wrohdejr
New User

Joined: April/18/2007
Location: United States
Online Status: Offline
Info: 15

Added: October/08/2007 at 10:01pm \| IP Logged

no thats cool i appriciate the help what does option exploit do if you dont mind me asking. i didn't even put it there it think front page put it there for me..

cwilliams
Admin Group

CJWSoft Web Software Developer

Joined: April/06/2004
Online Status: Offline
Info: 1769

Added: October/08/2007 at 10:09pm \| IP Logged

it forces you to declare variables..

__________________

Best Regards, Christopher Williams www.CJWSoft.com

cwilliams
Admin Group

CJWSoft Web Software Developer

Joined: April/06/2004
Online Status: Offline
Info: 1769

Added: October/20/2007 at 11:30pm \| IP Logged

I finally got to test this and reproduce the error... the fix was a simple one.. add the code shown in blue to the "scripts/clean_user_info_inc.asp" page..

<%
' Checks the last time the user application data (used for concurrent user checking)
' was last cleaned up and does a clean up if an hour or more has passed
' This will erase user application variables that are not needed and help to server memory usage down
' All of this happens in memory so this check does a lot of good and runs very fast so it uses little resources

Dim strName

   For Each strName in Application.Contents

If IsNumeric(Replace(strName,"User_","")) Then

  Dim TempAccessInfoArray,TempAccessInfoIP,TempAccessInfoTime
  TempAccessInfoArray = Split(Application.Contents(strName),",")
  TempAccessInfoIP = TempAccessInfoArray(0)
  TempAccessInfoTime = Cdate(TempAccessInfoArray(1))

  If DateDiff("d",AccessInfoTime,NOW) > 1 Then
   Application.Contents.Remove(strName)
   'Response.Write strName & " over 1 day so removed" & "<br>"
  ElseIf DateDiff("n",AccessInfoTime,NOW) > Session.Timeout Then
   Application.Contents.Remove(strName)
   'Response.Write strName & " over Session.Timeout minutes so removed" & "<br>"
  End If

End If

   Next

' We now set an application variable to let us know the last time this info was updated
Application.Lock
  Application("UserApplicationsLastUpdated") = Hour(time)
Application.Unlock
%>

__________________

Best Regards, Christopher Williams www.CJWSoft.com

Sorry, you can NOT post info.
This info has been locked by a info administrator.

Printable version

Info Jump

You cannot add new info in this area
You cannot add to info in this area
You cannot delete your info in this area
You cannot edit your info in this area
You cannot create polls in this area
You cannot vote in polls in this area