Snitz Forums 2000

Snitz Forums 2000

All Forums

Help Groups for Snitz Forums 2000 Users

Help: MOD Implementation

Search Log MOD update

Note: You must be registered in order to post a reply.
To register, click here. Registration is FREE!
Before posting, make sure you have read this topic!

Screensize:

UserName:

Password:

Format Mode:

Format:

Message:

* HTML is OFF
* Forum Code is ON

Smilies

[quote][i]Originally posted by Etymon[/i]
[br]The Search Log MOD came out in May of 2003, which was several years before the most current version of Snitz Forums 2000.

In the current version of Snitz Forums 2000, you can manually change the code in search.asp to either search by typing in a member's name into the Search By Member: input box, or you can choose a member's name from a drop down menu. This option is set in line 43 of [purple][b]search.asp[/b][/purple] ...

[b][purple][code]Dim strUseMemberDropDownBox
strUseMemberDropDownBox = 0[/code][/purple][/b]

However, when the Search Log MOD came out, I think the dropdown menu was standard code, and the blank input box was not.

The dropdown menu provides a numerical value when selected, but the code for the blank input box does not, which is why the returned results produce the following error:

[b][red][code]Microsoft VBScript runtime error '800a000d'

Type mismatch: 'cInt'

/forum/inc_searchlog.asp, line 33 [/code][/red][/b]

In [b][blue]inc_searchlog.asp[/blue][/b], on Line 32, change:

[b][blue][code]  strSLByMember = CInt(Request.Form("SearchMember"))[/code][/blue][/b]

... to the following code:

[b]
[green][code]	if trim(Request.Form("SearchMember")) <> "" then
		strSLByMember = GetMemberID(Request("SearchMember"))
	else
		strSLByMember = 0
	end if[/code][/green][/b]
[/quote]

Check here to include your profile signature.

T O P I C R E V I E W
Etymon	Posted - 30 June 2021 : 02:23:04 The Search Log MOD came out in May of 2003, which was several years before the most current version of Snitz Forums 2000. In the current version of Snitz Forums 2000, you can manually change the code in search.asp to either search by typing in a member's name into the Search By Member: input box, or you can choose a member's name from a drop down menu. This option is set in line 43 of search.asp ... Dim strUseMemberDropDownBox strUseMemberDropDownBox = 0 However, when the Search Log MOD came out, I think the dropdown menu was standard code, and the blank input box was not. The dropdown menu provides a numerical value when selected, but the code for the blank input box does not, which is why the returned results produce the following error: Microsoft VBScript runtime error '800a000d' Type mismatch: 'cInt' /forum/inc_searchlog.asp, line 33 In inc_searchlog.asp, on Line 32, change: strSLByMember = CInt(Request.Form("SearchMember")) ... to the following code: if trim(Request.Form("SearchMember")) <> "" then strSLByMember = GetMemberID(Request("SearchMember")) else strSLByMember = 0 end if
7 L A T E S T R E P L I E S (Newest First)
Carefree	Posted - 17 July 2021 : 14:26:39 Well, if anyone reads this who still codes in classic Snitz (.asp format), I hope they learned something from this topic.
Etymon	Posted - 16 July 2021 : 03:01:45 2 lines or more ... what matters is if the person coding understands what the code does. Snitz is more about learning than about competing on who's code is shortest.
Carefree	Posted - 16 July 2021 : 01:48:04 Yep, so my last reply is the simplest method. 2 lines and does it all.
Etymon	Posted - 16 July 2021 : 00:53:31 The text field in the GUI, that the user sees, is requiring a member name. The code that processes the text field takes the member name and converts it to a member id by using the function GetMemberID()
Etymon	Posted - 10 July 2021 : 06:58:00 It's actually looking for a number, which is the reason for using GetMemberID.
Carefree	Posted - 09 July 2021 : 18:22:19 Didn't realize that was a text field. This is the simplest method: strSLByMember = 0 If Trim(Request("SearchMember")) > "" Then strSLByMember = GetMemberID(Trim(Request("SearchMember")))
Etymon	Posted - 30 June 2021 : 06:50:31 An alternate code offered to me by Carefree via email is the following: strSLByMember = 0 If Trim(Request("SearchMember")) > "" Then If IsNumeric(Trim(Request("SearchMember"))) Then strSLByMember = GetMemberID(Request("SearchMember")) else strSLByMember = 0 end if End If

Snitz Forums 2000

This page was generated in 0.04 seconds.