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

 All Forums
 Snitz Forums 2000 DEV-Group
 DEV Bug Reports (Closed)
 (v3.4.02) BUG+FIX: post_info.asp
 Forum Locked  Topic Locked
 Printer Friendly
Author Previous Topic Topic Next Topic  

hagdahl
Starting Member

5 Posts

Posted - 02 September 2002 :  14:47:50  Show Profile  Visit hagdahl's Homepage  Send hagdahl an ICQ Message
version 3.4.02

When I try to edit "FORUm Information" and change "Default days" to "Show all open topics" I get the following error message:

quote:
Microsoft VBScript runtime error '800a000d'

Type mismatch: 'cLng'

/forum/post_info.asp, line 1342




Any other change in the settings works fine.

My forum

RichardKinser
Snitz Forums Admin

USA
16655 Posts

Posted - 02 September 2002 :  15:20:59  Show Profile

post_info.asp



line #1342

change from:

		strSql = strSql & ",   F_DEFAULTDAYS = " & cLng("0" & Request.Form("DefaultDays"))


to:

		strSql = strSql & ",   F_DEFAULTDAYS = " & cLng(Request.Form("DefaultDays"))


Go to Top of Page

Roland
Advanced Member

Netherlands
9335 Posts

Posted - 02 September 2002 :  15:49:16  Show Profile
Richard, in my post_info.asp that line already looks like the second line you posted. In fact, the 3.4.01 copy I have here already has line 1342 look like that. And the 3.4 copy looks like that too although it's line 1336.
Go to Top of Page

RichardKinser
Snitz Forums Admin

USA
16655 Posts

Posted - 02 September 2002 :  15:54:39  Show Profile
This was a change that was made in v3.4.02, so it only affects v3.4.02.
Go to Top of Page

hagdahl
Starting Member

5 Posts

Posted - 02 September 2002 :  15:58:39  Show Profile  Visit hagdahl's Homepage  Send hagdahl an ICQ Message
quote:
Originally posted by FrutZle

Richard, in my post_info.asp that line already looks like the second line you posted. In fact, the 3.4.01 copy I have here already has line 1342 look like that. And the 3.4 copy looks like that too although it's line 1336.



Same for me using 3.4.02.
IIS4 / Access2000

My forum

Edited by - hagdahl on 02 September 2002 16:04:14
Go to Top of Page

RichardKinser
Snitz Forums Admin

USA
16655 Posts

Posted - 02 September 2002 :  16:05:33  Show Profile
hagdahl, it was you that reported this error. If your line #1342 already looked like the second line, then you would not be getting this error.
Go to Top of Page

hagdahl
Starting Member

5 Posts

Posted - 02 September 2002 :  16:26:34  Show Profile  Visit hagdahl's Homepage  Send hagdahl an ICQ Message
quote:
Originally posted by RichardKinser

hagdahl, it was you that reported this error. If your line #1342 already looked like the second line, then you would not be getting this error.



This is my line #1342 after applying the 01 to 02 upgrade patch.

strSql = strSql & ", F_DEFAULTDAYS = " & cLng("0" & Request.Form("DefaultDays"))

I've checked the files in the distributions pack for .02 and checked the files on my server and they all have the same line as above.

My forum
Go to Top of Page

hagdahl
Starting Member

5 Posts

Posted - 02 September 2002 :  16:27:43  Show Profile  Visit hagdahl's Homepage  Send hagdahl an ICQ Message
Stupid me, I'm too tired I guess. Sorry!

Forget my previous post!

My forum
Go to Top of Page

hagdahl
Starting Member

5 Posts

Posted - 02 September 2002 :  16:30:05  Show Profile  Visit hagdahl's Homepage  Send hagdahl an ICQ Message
After changing to the SECOND line (not the first) it all works fine for me, thanks!.

My forum
Go to Top of Page

pweighill
Junior Member

United Kingdom
453 Posts

Posted - 02 September 2002 :  17:03:56  Show Profile
Some times clng(value) is appropriate, sometimes clng("0" & value) is appropriate.

Why not add an option to the chkstring function:
e.g. ChkString(Request.Form("DefaultDays"), "SQLNumber")

Before line 333 in inc_fgunc_common.asp

Case "SQLNumber"
    For intLoop = Len(fString) To 0 Step -1
        If intLoop = 0 Then
            chkString = 0
            Exit Function
        End If
        If IsNumeric(Left(fString, intLoop)) Then
            chkString = CLng(Left(fString, intLoop))
            Exit Function
        End If
    Next


And then use this instead of cLng for any further changes.

Edited by - pweighill on 02 September 2002 17:21:01
Go to Top of Page

RichardKinser
Snitz Forums Admin

USA
16655 Posts

Posted - 02 September 2002 :  17:12:52  Show Profile
before anyone starts getting confused, and starts asking what is the fix for this error... The fix is in the second message in this topic.
Go to Top of Page

RichardKinser
Snitz Forums Admin

USA
16655 Posts

Posted - 16 September 2002 :  00:10:57  Show Profile
fixed in v3.4.03
Go to Top of Page
  Previous Topic Topic Next Topic  
 Forum Locked  Topic Locked
 Printer Friendly
Jump To:
Snitz Forums 2000 © 2000-2021 Snitz™ Communications Go To Top Of Page
This page was generated in 0.18 seconds. Powered By: Snitz Forums 2000 Version 3.4.07