Snitz Forums 2000
Snitz Forums 2000
Home | Profile | Register | Active Topics | Members | Search | FAQ
Username:
Password:
Save Password
Forgot your Password?

 All Forums
 Help Groups for Snitz Forums 2000 Users
 Help: MOD Implementation
 Urgent , eventmod, failure 800a0005
 New Topic  Topic Locked
 Printer Friendly
Author Previous Topic Topic Next Topic  

Romee
Junior Member

Netherlands
180 Posts

Posted - 03 April 2002 :  13:07:02  Show Profile
http://www.bijenhouden.nl

The eventmod worked fine for some months on my forum. But now suddenly I get this failure


Microsoft VBScript runtime fout '800a0005'
Invalid procedure call or argument: 'Monthname'

/test/forum/inc_functions.asp, line 721

line 721 is

StrToDate = cdate("" & MonthName(cint(Mid(strDateTime, 5,2))) & " " & Mid(strDateTime, 7,2) & ", " & Mid(strDateTime, 1,4) & " " & Mid(strDateTime, 9,2) & ":" & Mid(strDateTime, 11,2) & ":" & Mid(strDateTime, 13,2) & "")

Can someone please help me soon.
thanks
Romée




crash
Advanced Member

Netherlands
2064 Posts

Posted - 03 April 2002 :  13:20:38  Show Profile  Visit crash's Homepage
what is the function called in which this codes sits

i don't have that code... what's your version?

(is the function called "function strToDate(strDateTime)"?)



Crash's Site | Crash is from


Edited by - crash on 03 April 2002 13:21:55
Go to Top of Page

Romee
Junior Member

Netherlands
180 Posts

Posted - 03 April 2002 :  13:24:31  Show Profile
Hi crash
it is this

function StrToDate(strDateTime)
if ChkDateFormat(strDateTime) then
StrToDate = cdate("" & MonthName(cint(Mid(strDateTime, 5,2))) & " " & Mid(strDateTime, 7,2) & ", " & Mid(strDateTime, 1,4) & " " & Mid(strDateTime, 9,2) & ":" & Mid(strDateTime, 11,2) & ":" & Mid(strDateTime, 13,2) & "")
else
StrToDate = "" & strForumTimeAdjust
end if
end function

Go to Top of Page

crash
Advanced Member

Netherlands
2064 Posts

Posted - 03 April 2002 :  13:32:47  Show Profile  Visit crash's Homepage
try to replace the function with this one:

function strToDate(strDateTime)
if chkDateFormat(strDateTime) then
strToDate = cdate("" & Mid(strDateTime, 5,2) & "/" & Mid(strDateTime, 7,2) & "/" & Mid(strDateTime, 1,4) & " " & Mid(strDateTime, 9,2) & ":" & Mid(strDateTime, 11,2) & ":" & Mid(strDateTime, 13,2) & "")
else
strToDate = "" & strForumTimeAdjust
end if
end function




Crash's Site | Crash is from
Go to Top of Page

Romee
Junior Member

Netherlands
180 Posts

Posted - 03 April 2002 :  13:45:53  Show Profile
Great crash,
It worked!
I 'll try to cool down now.
bedankt,
Romée

Go to Top of Page

crash
Advanced Member

Netherlands
2064 Posts

Posted - 03 April 2002 :  15:06:51  Show Profile  Visit crash's Homepage
you're welcome!



Crash's Site | Crash is from
Go to Top of Page
  Previous Topic Topic Next Topic  
 New Topic  Topic Locked
 Printer Friendly
Jump To:
Snitz Forums 2000 © 2000-2021 Snitz™ Communications Go To Top Of Page
This page was generated in 0.4 seconds. Powered By: Snitz Forums 2000 Version 3.4.07