| Author |
 Topic  |
|
|
MotoX
Junior Member
201 Posts |
 Posted - 19 August 2002 : 09:52:07
|
I just installed Active Users 4 on Snitz 3.4 and I am getting this on Default.asp right after where it says
Active Members: 1 | Guests: 0 || Total: 1 [ Administrators | Moderators ]
Microsoft VBScript runtime error '800a000d'
Type mismatch: 'cLng'
/forum2/inc_func_common.asp, line 778
Any help is appreciated |
|
|
CarKnee
Junior Member
USA
297 Posts |
Posted - 19 August 2002 : 11:52:50
|
Same error here...
I will keep looking.
Info:
*Upgraded from previous version (deleted all old files and uploaded new)
*SQL Server
|
 |
Edited by - CarKnee on 19 August 2002 11:55:20 |
 |
|
|
CarKnee
Junior Member
USA
297 Posts |
Posted - 19 August 2002 : 12:09:33
|
It is related to the 12hr time mode. I set it back to 24hr mode and it appears to be working now.
The error is generated because on Line 778 the value of Mid(fTime, 9,2) = ""
Why it is "" has got me! |
|
|
|
|
Nathan
Help Moderator
USA
7664 Posts |
Posted - 19 August 2002 : 12:11:38
|
Well, I cant see whats on line 778, post the entire function that contains that line and hilight it.
I think it might be something changed from RCx to final version. |
 Nathan Bales
CoreBoard | Active Users Download |
|
|
|
Nathan
Help Moderator
USA
7664 Posts |
Posted - 19 August 2002 : 12:16:07
|
quote:
It is related to the 12hr time mode. I set it back to 24hr mode and it appears to be working now.
Sounds like a temp fix.
I hope this problem is limited to the mod.  |
Nathan Bales
CoreBoard | Active Users Download |
|
|
|
MotoX
Junior Member
201 Posts |
Posted - 19 August 2002 : 12:22:59
|
function chkTime(fTime)
if fTime = "" or isNull(fTime) then
exit function
end if
if strTimeType = 12 then
if cLng(Mid(fTime, 9,2)) > 12 then
chkTime = ChkTime & " " & _
(cLng(Mid(fTime, 9,2)) -12) & ":" & _
Mid(fTime, 11,2) & ":" & _
Mid(fTime, 13,2) & " " & "PM"
elseif cLng(Mid(fTime, 9,2)) = 12 then
chkTime = ChkTime & " " & _
cLng(Mid(fTime, 9,2)) & ":" & _
Mid(fTime, 11,2) & ":" & _
Mid(fTime, 13,2) & " " & "PM"
elseif cLng(Mid(fTime, 9,2)) = 0 then
chkTime = ChkTime & " " & _
(cLng(Mid(fTime, 9,2)) +12) & ":" & _
Mid(fTime, 11,2) & ":" & _
Mid(fTime, 13,2) & " " & "AM"
else
chkTime = ChkTime & " " & _
Mid(fTime, 9,2) & ":" & _
Mid(fTime, 11,2) & ":" & _
Mid(fTime, 13,2) & " " & "AM"
end if
else
ChkTime = ChkTime & " " & _
Mid(fTime, 9,2) & ":" & _
Mid(fTime, 11,2) & ":" & _
Mid(fTime, 13,2)
end if
end function |
|
|
|
Nathan
Help Moderator
USA
7664 Posts |
|
| |
Topic |
|
|
|
Topic Locked
