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: General / Classic ASP versions(v3.4.XX)
 Error editing ranking		  New Topic  Topic Locked
 Printer Friendly
Author Previous Topic Topic Next Topic  

jgs
New Member

Netherlands
95 Posts
Posted - 18 January 2009 :  06:43:15  Show Profile
When I try to change the ranking numbers I get the following error:

Admin Section
Ranking Configuration

Microsoft VBScript runtime error '800a000d'

Type mismatch: 'cLng'

/forum/admin_config_ranks.asp, line 101

I found another topic about 'cLng' but the numbering in topic.asp is correct.

After that, I noticed I'd left the ranking number for advanced blanc, so the problem is solved, but it would be nice to have an "informative" error.<
Info about my forum: http://www.govvd.nl/forumsoftware.htm list of Mods included.
Most of userinterface translated into Dutch.

Carefree
Advanced Member

Philippines
4217 Posts
Posted - 18 January 2009 :  07:01:49  Show Profile
There is no error on that line in the original file. Please post a link to a copy of your "admin_config_ranks.asp" in .txt format for us to see.<
Go to Top of Page

jgs
New Member

Netherlands
95 Posts
Posted - 18 January 2009 :  13:24:08  Show Profile
Ok, here it is, line 101:

if cLng(Request.Form("intRankLevel1")) > cLng(Request.Form("intRankLevel5")) then
<
Info about my forum: http://www.govvd.nl/forumsoftware.htm list of Mods included.
Most of userinterface translated into Dutch.
Go to Top of Page

jgs
New Member

Netherlands
95 Posts
Posted - 18 January 2009 :  13:27:06  Show Profile
Oops, you wanted a link:

www.govvd.nl/forum/admin_config_ranks.txt<
Info about my forum: http://www.govvd.nl/forumsoftware.htm list of Mods included.
Most of userinterface translated into Dutch.
Edited by - jgs on 18 January 2009 16:53:20
Go to Top of Page

Carefree
Advanced Member

Philippines
4217 Posts
Posted - 18 January 2009 :  14:14:44  Show Profile
Close .... I need a link to the file in .txt format.<
Go to Top of Page

jgs
New Member

Netherlands
95 Posts
Posted - 18 January 2009 :  16:54:05  Show Profile
You now have, changed it.<
Info about my forum: http://www.govvd.nl/forumsoftware.htm list of Mods included.
Most of userinterface translated into Dutch.
Go to Top of Page

Carefree
Advanced Member

Philippines
4217 Posts
Posted - 18 January 2009 :  17:47:45  Show Profile
There's nothing at all wrong with the file. In order to get an "informative" error, you would need to encapsulate each of the cLng comparisons as follows:

if Request.Form("intRankLevel1") > 0 and cLng(Request.Form("intRankLevel2") > 0 then
    	if cLng(Request.Form("intRankLevel1")) > cLng(Request.Form("intRankLevel2")) then 
        Err_Msg = Err_Msg & "<li>Rank Level 1 can not be higher than 2</li>"
      end if
    end if
    if Request.Form("intRankLevel1") > 0 and cLng(Request.Form("intRankLevel3") > 0 then
    	if cLng(Request.Form("intRankLevel1")) > cLng(Request.Form("intRankLevel3")) then 
        Err_Msg = Err_Msg & "<li>Rank Level 1 can not be higher than 3</li>"
      end if
    end if
    if Request.Form("intRankLevel1") > 0 and cLng(Request.Form("intRankLevel4") > 0 then
    	if cLng(Request.Form("intRankLevel1")) > cLng(Request.Form("intRankLevel4")) then 
        Err_Msg = Err_Msg & "<li>Rank Level 1 can not be higher than 4</li>"
      end if
    end if
    if Request.Form("intRankLevel1") > 0 and cLng(Request.Form("intRankLevel5") > 0 then
    	if cLng(Request.Form("intRankLevel1")) > cLng(Request.Form("intRankLevel5")) then 
        Err_Msg = Err_Msg & "<li>Rank Level 1 can not be higher than 5</li>"
      end if
    end if
    if Request.Form("intRankLevel2") > 0 and cLng(Request.Form("intRankLevel3") > 0 then
    	if cLng(Request.Form("intRankLevel2")) > cLng(Request.Form("intRankLevel3")) then 
        Err_Msg = Err_Msg & "<li>Rank Level 2 can not be higher than 3</li>"
      end if
    end if
    if Request.Form("intRankLevel2") > 0 and cLng(Request.Form("intRankLevel4") > 0 then
    	if cLng(Request.Form("intRankLevel2")) > cLng(Request.Form("intRankLevel4")) then 
        Err_Msg = Err_Msg & "<li>Rank Level 2 can not be higher than 4</li>"
      end if
    end if
    if Request.Form("intRankLevel2") > 0 and cLng(Request.Form("intRankLevel5") > 0 then
    	if cLng(Request.Form("intRankLevel2")) > cLng(Request.Form("intRankLevel5")) then 
        Err_Msg = Err_Msg & "<li>Rank Level 2 can not be higher than 5</li>"
      end if
    end if
    if Request.Form("intRankLevel3") > 0 and cLng(Request.Form("intRankLevel4") > 0 then
    	if cLng(Request.Form("intRankLevel3")) > cLng(Request.Form("intRankLevel4")) then 
        Err_Msg = Err_Msg & "<li>Rank Level 3 can not be higher than 4</li>"
      end if
    end if
    if Request.Form("intRankLevel3") > 0 and cLng(Request.Form("intRankLevel5") > 0 then
    	if cLng(Request.Form("intRankLevel3")) > cLng(Request.Form("intRankLevel5")) then 
        Err_Msg = Err_Msg & "<li>Rank Level 3 can not be higher than 5</li>"
      end if
    end if
    if Request.Form("intRankLevel4") > 0 and cLng(Request.Form("intRankLevel5") > 0 then
    	if cLng(Request.Form("intRankLevel4")) > cLng(Request.Form("intRankLevel5")) then 
        Err_Msg = Err_Msg & "<li>Rank Level 4 can not be higher than 5</li>"
      end if
    end if
<
Go to Top of Page

jgs
New Member

Netherlands
95 Posts
Posted - 19 January 2009 :  13:42:01  Show Profile
Everyone? Wow, I think it's easier not to make a stupid mistake as I did leaving a field blanc.

Thanks.<
Info about my forum: http://www.govvd.nl/forumsoftware.htm list of Mods included.
Most of userinterface translated into Dutch.
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.27 seconds. Powered By: Snitz Forums 2000 Version 3.4.07