| Author |
 Topic  |
|
MaD2ko0l
Senior Member
United Kingdom
1053 Posts |
 Posted - 23 May 2002 : 13:49:56
|
Hi all,
i get an error when i login or log out.
Microsoft VBScript runtime error '800a01a8'
Object required: 'my_Conn'
/m2k2/inc_functions.asp, line 1656
i get that error and i tghink it is somethign to do with the Active Users 4
sub deleteInactiveUsers()
strAUTimedOut = DateToStr(DateAdd("n",-strAUTimeout,strForumTimeAdjust))
strSql = "DELETE FROM " & strTablePrefix & "ACTIVE_USERS WHERE AU_LASTACTIVETIME < '" & strAUTimedOut & "'"
my_conn.execute (strSql)
end sub
sub AUHandleLoging()
strSql = "DELETE FROM " & strTablePrefix & "ACTIVE_USERS WHERE AU_IP = '" & Chkstring(request.ServerVariables("REMOTE_ADDR"), "SQLString") & "'"
my_conn.execute (strSql) <------------Line 1656
end sub
function checkSelect(actualValue, thisValue)
if actualValue = thisValue then
checkSelect = " selected"
else
checkSelect = ""
end if
end function
thankx
MaD2ko0l
© 1999-2002 MaD2ko0l
-=[ Life Is So Easy When You Are Evil ]=-
Your title means the world to us. So take better care of it. - Davio
Edited by - Davio on 23 May 2002 22:01:04 |
|
|
MaD2ko0l
Senior Member
United Kingdom
1053 Posts |
Posted - 24 May 2002 : 13:12:21
|
any ideas?????
P.S Davio...where was this topic anyway??i dont remebr posting it
© 1999-2002 MaD2ko0l
-=[ Life Is So Easy When You Are Evil ]=- |
 |
|
|
Nathan
Help Moderator
USA
7664 Posts |
Posted - 24 May 2002 : 19:22:26
|
Your not the first to have this problem. Though it makes absolutely no since unless you are using some external login system or something.
You can get rid of it by just removing that line.
 Nathan Bales
Snitz Exchange | Do's and Dont's |
|
|
|
Davio
Development Team Member
Jamaica
12217 Posts |
Posted - 24 May 2002 : 21:46:02
|
quote:
P.S Davio...where was this topic anyway??i dont remebr posting it
I didn't move your topic. I changed the title.
«------------------------------------------------------»
Want to know when the next version comes out,
as soon as possible? Join our Mailing Lists ! |
|
|
|
MaD2ko0l
Senior Member
United Kingdom
1053 Posts |
Posted - 25 May 2002 : 05:57:22
|
oh ok thankx Nathan and Davio
© 1999-2002 MaD2ko0l
-=[ Life Is So Easy When You Are Evil ]=- |
|
|
|
MaD2ko0l
Senior Member
United Kingdom
1053 Posts |
Posted - 28 May 2002 : 12:39:20
|
hey uumm ok then i got rid of the string sub AUHandleLoging() and now i get this error
Microsoft VBScript runtime error '800a000d'
Type mismatch: 'AUHandleLoging'
/m2k2/inc_top.asp, line 316
any ideas?????
© 1999-2002 MaD2ko0l
-=[ Life Is So Easy When You Are Evil ]=-
Edited by - MaD2ko0l on 28 May 2002 12:49:29 |
|
|
|
Nathan
Help Moderator
USA
7664 Posts |
Posted - 28 May 2002 : 22:12:09
|
Go to that line and remove the sub call from there. You were supposed to remove it from inc_top, not inc_functions :p
Nathan Bales
Snitz Exchange | Do's and Dont's |
|
|
|
MaD2ko0l
Senior Member
United Kingdom
1053 Posts |
Posted - 29 May 2002 : 10:46:47
|
oohhhh lol silly me
thankx
MaD2ko0l
© 1999-2002 MaD2ko0l
-=[ Life Is So Easy When You Are Evil ]=- |
|
|
|
MaD2ko0l
Senior Member
United Kingdom
1053 Posts |
Posted - 29 May 2002 : 10:58:03
|
uumm hehe...i got another prob.
Microsoft VBScript runtime error '800a01a8'
Object required
/m2k2/inc_footer.asp, line 76
i get that and the inc_footer is repeated twice.
any ideas why??
Thnakx
MaD2ko0l
© 1999-2002 MaD2ko0l
-=[ Life Is So Easy When You Are Evil ]=- |
|
|
|
Nathan
Help Moderator
USA
7664 Posts |
Posted - 29 May 2002 : 18:39:55
|
Ok, put the function back into inc_functions. Then start over with a fresh inc_top.asp.
You copied over some code that wasn't supposed to be copied over.
Nathan Bales
Snitz Exchange | Do's and Dont's
Edited by - Nathan on 29 May 2002 18:40:51 |
|
|
|
MaD2ko0l
Senior Member
United Kingdom
1053 Posts |
Posted - 29 May 2002 : 18:52:41
|
<% else %>
<p align="center"><font face="<% =strDefaultFontFace %>" size="<% =strHeaderFontSize %>">You Have Logged On Successfully!</font></p>
<p align="center"><font face="<% =strDefaultFontFace %>" size="<% =strHeaderFontSize %>">Thank You For Your Participation.</font></p>
<% end if %>
<meta http-equiv="Refresh" content="2; URL=<% =Request.ServerVariables("HTTP_REFERER") %>">
<p align="center"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><a href="<% =Request.ServerVariables("HTTP_REFERER") %>">Back To Forum</font></a></p>
<% WriteFooter
%>
</td>
</tr>
</table>
<%
' AUHandleLoging()
WriteFooter
Response.End
case "logout"
%>
<tr><td width="100%">
<p align="center"><font face="<% =strDefaultFontFace %>" size="<% =strHeaderFontSize %>">You Have Logged Out Successfully!</font></p>
<p align="center"><font face="<% =strDefaultFontFace %>" size="<% =strHeaderFontSize %>">Thank You For Your Participation.</font></p>
<meta http-equiv="Refresh" content="2; URL=<% =Request.ServerVariables("HTTP_REFERER") %>">
<p align="center"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><a href="<% =Request.ServerVariables("HTTP_REFERER") %>">Back To Forum</font></a></p>
<% WriteFooter
%>
</td>
</tr>
</table>
<%
' AUHandleLoging() 'Ls3k - AU4
WriteFooter
Response.End
end select
%>
</table>
</td></tr id=snclayouttable>
<tr id=snclayouttable><td width=140 valign=top>
<!-- #INCLUDE FILE="menu.asp" -->
</td>
<td valign=top width=810>
is this right in inc_top????
the function is in the inc_functions so this is all the prob now in inc_top.
i think
© 1999-2002 MaD2ko0l
-=[ Life Is So Easy When You Are Evil ]=- |
|
|
|
crash
Advanced Member
Netherlands
2064 Posts |
Posted - 29 May 2002 : 19:01:04
|
quote:
<% else %>
<p align="center"><font face="<% =strDefaultFontFace %>" size="<% =strHeaderFontSize %>">You Have Logged On Successfully!</font></p>
<p align="center"><font face="<% =strDefaultFontFace %>" size="<% =strHeaderFontSize %>">Thank You For Your Participation.</font></p>
<% end if %>
<meta http-equiv="Refresh" content="2; URL=<% =Request.ServerVariables("HTTP_REFERER") %>">
<p align="center"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><a href="<% =Request.ServerVariables("HTTP_REFERER") %>">Back To Forum</font></a></p>
<% WriteFooter
%>
</td>
</tr>
</table>
<%
' AUHandleLoging()
WriteFooter
Response.End
case "logout"
%>
<tr><td width="100%">
<p align="center"><font face="<% =strDefaultFontFace %>" size="<% =strHeaderFontSize %>">You Have Logged Out Successfully!</font></p>
<p align="center"><font face="<% =strDefaultFontFace %>" size="<% =strHeaderFontSize %>">Thank You For Your Participation.</font></p>
<meta http-equiv="Refresh" content="2; URL=<% =Request.ServerVariables("HTTP_REFERER") %>">
<p align="center"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><a href="<% =Request.ServerVariables("HTTP_REFERER") %>">Back To Forum</font></a></p>
<% WriteFooter
%>
</td>
</tr>
</table>
<%
' AUHandleLoging() 'Ls3k - AU4
WriteFooter
Response.End
end select
%>
</table>
</td></tr id=snclayouttable>
<tr id=snclayouttable><td width=140 valign=top>
<!-- #INCLUDE FILE="menu.asp" -->
</td>
<td valign=top width=810>
is this right in inc_top????
the function is in the inc_functions so this is all the prob now in inc_top.
i think
© 1999-2002 MaD2ko0l
-=[ Life Is So Easy When You Are Evil ]=-
what are the comments doing there?
Crash's Site | Crash is from 
|
|
|
|
Nathan
Help Moderator
USA
7664 Posts |
Posted - 29 May 2002 : 19:18:08
|
Replace that whole select structure with this one.
select case Request.Form("Method_Type")
case "login"
%>
</table>
</td>
</tr>
</table>
<% if strLoginStatus = 0 then %>
<p align="center"><font face="<% =strDefaultFontFace %>" size="<% =strHeaderFontSize %>">Your username and/or password were incorrect.</font></p>
<p align="center"><font face="<% =strDefaultFontFace %>" size="<% =strHeaderFontSize %>">Please either try again or register for an account.</font></p>
<% else %>
<p align="center"><font face="<% =strDefaultFontFace %>" size="<% =strHeaderFontSize %>">You logged on successfully!</font></p>
<p align="center"><font face="<% =strDefaultFontFace %>" size="<% =strHeaderFontSize %>">Thank you for your participation.</font></p>
<% end if %>
<meta http-equiv="Refresh" content="2; URL=<% =Request.ServerVariables("HTTP_REFERER") %>">
<p align="center"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><a href="<% =Request.ServerVariables("HTTP_REFERER") %>">Back To Forum</font></a></p>
<% AUHandleLoging() 'Ls3k - AU4
WriteFooter
Response.End
case "logout"
%>
</table>
</td>
</tr>
</table>
<p align="center"><font face="<% =strDefaultFontFace %>" size="<% =strHeaderFontSize %>">You logged out successfully!</font></p>
<p align="center"><font face="<% =strDefaultFontFace %>" size="<% =strHeaderFontSize %>">Thank you for your participation.</font></p>
<meta http-equiv="Refresh" content="2; URL=<% =Request.ServerVariables("HTTP_REFERER") %>">
<p align="center"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><a href="<% =Request.ServerVariables("HTTP_REFERER") %>">Back To Forum</font></a></p>
<% AUHandleLoging() 'Ls3k - AU4
WriteFooter
Response.End
end select
quote:
what are the comments doing there?
Its called troubleshooting.
Nathan Bales
Snitz Exchange | Do's and Dont's |
|
|
|
MaD2ko0l
Senior Member
United Kingdom
1053 Posts |
Posted - 29 May 2002 : 19:47:22
|
so wot i do delete them???
if i uncomment them i get the first error that i first posted.
so wot do i do?
Thankx
MaD2ko0l
© 1999-2002 MaD2ko0l
-=[ Life Is So Easy When You Are Evil ]=- |
|
|
|
Nathan
Help Moderator
USA
7664 Posts |
Posted - 29 May 2002 : 20:17:07
|
You replace the select structure in your inc_top with that one I just posted.
Nathan Bales
Snitz Exchange | Do's and Dont's |
|
|
|
MaD2ko0l
Senior Member
United Kingdom
1053 Posts |
Posted - 30 May 2002 : 05:24:30
|
yes but all that u did was uncomment the AUHandleLoging...but wouldnt that just give me the first error???because i commented them lines out when u said delet them lines.
© 1999-2002 MaD2ko0l
-=[ Life Is So Easy When You Are Evil ]=- |
|
|
|
Topic |
|
Topic Locked
