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 MOD-Group
 MOD Add-On Forum (W/Code)
 blog mod - help
 New Topic  Reply to Topic
 Printer Friendly
Next Page
Author Previous Topic Topic Next Topic
Page: of 2

phoenixtaz13
Junior Member

129 Posts

Posted - 12 March 2009 :  06:07:32  Show Profile  Reply with Quote
good day to all.... :)

i cant seem to find my old post... :(

anyways, carefree assisted me on this mod... everything were working fine... until i ran into this prob.... when i decided to lock the post or topic i encountered an error...

heres the error message:
Error Type:
Microsoft VBScript runtime (0x800A000D)
Type mismatch: 'objRec'
/forum/blogs.asp, line 160

and it points out to the one in red:
set objRec = my_Conn.Execute(strSql)
DTString = " WebBlogs "
if not objRec.BOF and not objRec.EOF then
if Request.QueryString("member") <> "" or Request.QueryString("log_id") <> "" then
DTString = " <a href=""blogs.asp?member=" & objRec("MEMBER_ID") & """>Back to " & objRec("M_NAME") & "'s Blog list</a>"
end if
else
DTString = " Nothing found !"
set objRec=Nothing
set objDict=Nothing
end if
TMember_ID = objRec("MEMBER_ID")

tried searching for the prob, no luck... :(
any help would be greatly appreciated... :)

thanks...

HuwR
Forum Admin

United Kingdom
20584 Posts

Posted - 12 March 2009 :  07:07:03  Show Profile  Visit HuwR's Homepage  Reply with Quote
you have set objRec= Nothing prior to the end if statement and then you are trying to access objRec("MEMBER_ID") after the end if

you need to move set objRec=Nothing so that it is after the TMember_ID = objRec("MEMBER_ID")
Go to Top of Page

phoenixtaz13
Junior Member

129 Posts

Posted - 12 March 2009 :  09:39:56  Show Profile  Reply with Quote
hi huwr.... :)

thank you very much for looking into my prob.... greatly appreciate it.... :)

i tried moving the set objRec=Nothing and its giving me numerous errors... :(

im not really good at this.... hope u can take a look at my file pls....

heres my blog.txt file:
http://cid-712c33ce341411d8.skydrive.live.com/embedgrid.aspx/.Public/blog.txt

thanks....

Go to Top of Page

HuwR
Forum Admin

United Kingdom
20584 Posts

Posted - 12 March 2009 :  09:48:02  Show Profile  Visit HuwR's Homepage  Reply with Quote
report the errors, I can't look for something if I don't know what I'm looking for
Go to Top of Page

AnonJr
Moderator

United States
5768 Posts

Posted - 12 March 2009 :  10:25:07  Show Profile  Visit AnonJr's Homepage  Reply with Quote
For the segment posted above, you may want to try:
set objRec = my_Conn.Execute(strSql)
DTString = " WebBlogs "
if not objRec.BOF and not objRec.EOF then
	TMember_ID = objRec("MEMBER_ID")
	if Request.QueryString("member") <> "" or Request.QueryString("log_id") <> "" then
		DTString = " <a href=""blogs.asp?member=" & objRec("MEMBER_ID") & """>Back to " & objRec("M_NAME") & "'s Blog list</a>"
	end if
else
	DTString = " Nothing found !"
	set objRec=Nothing
	set objDict=Nothing
end if


I'd look a little more but my coffee break isn't that long.

Edited by - AnonJr on 12 March 2009 10:26:08
Go to Top of Page

phoenixtaz13
Junior Member

129 Posts

Posted - 12 March 2009 :  10:34:31  Show Profile  Reply with Quote
hello huwr.... :)

i deleted the file where i made changes with what u suggested... i'm back to square one.... the problem remains the same as to my first post..... :(

thanks..... :)

Go to Top of Page

HuwR
Forum Admin

United Kingdom
20584 Posts

Posted - 12 March 2009 :  10:42:14  Show Profile  Visit HuwR's Homepage  Reply with Quote
did you try anon's suggestion above ?
Go to Top of Page

phoenixtaz13
Junior Member

129 Posts

Posted - 12 March 2009 :  11:11:12  Show Profile  Reply with Quote
hi HuwR and Anonjr.... :)

i tried what anonjr suggested.... and its now pointing to a new problem... :(

error message:
Error Type:
Microsoft VBScript runtime (0x800A01A8)
Object required
/forum/blogs.asp, line 287

blogs.asp file points to the one in red:
if Request.QueryString("log_id") = "" then
' #### Table for the topic list.....
Response.Write " <table align=""center"" colspan=""2"" cellspacing=""1"" cellpadding=""10"" border=""0"" width=""70%"">" & vbNewLine
else
' #### Tables for viewing blog topic....
Response.Write " <table align=""center"" colspan=""2"" cellspacing=""1"" cellpadding=""10"" border=""0"" bgcolor=""" & strTableBorderColor & """ width=""100%"">" & vbNewLine
end if
counter = 1
while not objRec.EOF 'this is line 287.........
if counter > 1 then Response.Write ""
counter = counter + 1
T_Subject = objRec("T_SUBJECT")
T_View_Count = objRec("T_VIEW_COUNT")
T_Author = objRec("T_AUTHOR")
MEMBER_ID = objRec("MEMBER_ID")
M_NAME = objRec("M_NAME")
M_TITLE = objRec("M_TITLE")
M_LEVEL = objRec("M_LEVEL")
M_POSTS = objRec("M_POSTS")


thanks again....


Go to Top of Page

Carefree
Advanced Member

Philippines
4207 Posts

Posted - 12 March 2009 :  20:17:52  Show Profile  Reply with Quote
The only thing that I can see which may cause that error would be if one of the included files closed the objRec. Take a look there.
Go to Top of Page

phoenixtaz13
Junior Member

129 Posts

Posted - 12 March 2009 :  22:23:24  Show Profile  Reply with Quote
hi carefree.... :)

are u referring to this <!--#INCLUDE FILE="include/inc_spacer.asp"-->?

heres the content of inc_spacer.asp file:
<table width="100%" cellpadding="0" cellspacing="0"><tr><td><img src="<%= strImageURL %>spacer.gif" width="1" height="3" border="0" alt=""></td></tr></table>

error message:
Error Type:
Microsoft VBScript runtime (0x800A01A8)
Object required
/forum/blogs.asp, line 287

the error message above means that objRec is being closed?.... and to solve my problem is to search and remove the code that closed the objRec, right?....

i scrolled up and down already, cant find it.... :(

after trial and error.... found the thing thats closing objRec

the one in red is the one closing the the objRec
set objRec = my_Conn.Execute(strSql)
DTString = " WebBlogs "
if not objRec.BOF and not objRec.EOF then
TMember_ID = objRec("MEMBER_ID")
if Request.QueryString("member") <> "" or Request.QueryString("log_id") <> "" then
DTString = " <a href=""blogs.asp?member=" & objRec("MEMBER_ID") & """>Back to " & objRec("M_NAME") & "'s Blog list</a>"
end if
else
DTString = " Nothing found !"
'set objRec=Nothing 'i commented this out
set objDict=Nothing
end if


and then, i inserted this:
if strShowQuickReply = "1" and strDBNTUserName <> "" and ((Cat_Status = 1) and (Forum_Status = 1) and (Topic_Status = 1)) and ArchiveView = "" then
call QuickReply()
end if


theres no more error... but my next problem is that, the content of the topic is not showing.... :(

for the topic or post to show, i have to unlock the topic.... :(

any ideas how to fix this?....

thanks again...


Edited by - phoenixtaz13 on 12 March 2009 23:13:50
Go to Top of Page

Carefree
Advanced Member

Philippines
4207 Posts

Posted - 13 March 2009 :  01:25:03  Show Profile  Reply with Quote
quote:
if strShowQuickReply = "1" and strDBNTUserName <> "" and ((Cat_Status = 1) and (Forum_Status = 1) and (Topic_Status = 1)) and ArchiveView = "" then

Removing the requirement for "Topic_Status" to equal one will display all the topics (locked/unlocked).
Go to Top of Page

phoenixtaz13
Junior Member

129 Posts

Posted - 13 March 2009 :  05:09:55  Show Profile  Reply with Quote
hi carefree.... :)

i did this, as u suggested.... but it still wont display the topic.... :(

if strShowQuickReply = "1" and strDBNTUserName <> "" and ((Cat_Status = 1) and (Forum_Status = 1)) and ArchiveView = "" then
call QuickReply()
end if

i even did this
if strShowQuickReply = "1" and strDBNTUserName <> "" and ArchiveView = "" then
call QuickReply()
end if

i even removed the IF strShowQuickReply = "1"..... still no luck..... :(

it still wont display the topic if its locked.... :(

any more ideas?....

thanks again....

Go to Top of Page

Carefree
Advanced Member

Philippines
4207 Posts

Posted - 13 March 2009 :  05:45:19  Show Profile  Reply with Quote
See Huwr's post for line data, but look at these lines, there are more than a few status limitations:

146, 429, 907, 954, 958, 967, 1101

Edited by - Carefree on 13 March 2009 08:05:42
Go to Top of Page

HuwR
Forum Admin

United Kingdom
20584 Posts

Posted - 13 March 2009 :  07:52:23  Show Profile  Visit HuwR's Homepage  Reply with Quote
carefree, would it not have been simpler to just use one scroolcode box for that? it is extremely difficult to read when you have all those scrollcode boxes with only one line in them.

maybe like this



146
strSQL = strSQL & strTablePrefix & "TOPICS.T_AUTHOR = " & strMemberTablePrefix & "MEMBERS.MEMBER_ID AND " & strTablePrefix & "TOPICS.T_STATUS < 2 AND " & strTablePrefix & "TOPICS.T_STATUS > 0 "

429

		if T_STATUS <> 0 then

907

				if Reply_Status < 2 then

954

					if (Cat_Status <> 0 and Forum_Status <> 0 and T_STATUS <> 0) or (AdminAllowed = 1) then

958

				if ((Cat_Status <> 0 and Forum_Status <> 0 and T_STATUS = 1) or (AdminAllowed = 1 and T_STATUS <= 1)) and ArchiveView = "" then

967

					if (Cat_Status <> 0 and Forum_Status <> 0 and T_STATUS <> 0) or (AdminAllowed = 1) then

1101

	if T_STATUS <> 0 then


Go to Top of Page

phoenixtaz13
Junior Member

129 Posts

Posted - 13 March 2009 :  10:11:54  Show Profile  Reply with Quote
wow!.... thanks again carefree!....

what u suggested solved my prob.... :)

and this is the only thing i modified:
strSQL = strSQL & strTablePrefix & "TOPICS.T_AUTHOR = " & strMemberTablePrefix & "MEMBERS.MEMBER_ID AND " & strTablePrefix & "TOPICS.T_STATUS < 2 AND " & strTablePrefix & "TOPICS.T_STATUS > 0 "

changed it to this:
strSQL = strSQL & strTablePrefix & "TOPICS.T_AUTHOR = " & strMemberTablePrefix & "MEMBERS.MEMBER_ID "


thank u very much carefree.... :)

btw, what do u call the thing when u hover the mouse pointer above a link and then a small
square or rectangle pops up at the side of the mouse showing a portion of the content of that link?...

thank you carefree sooooooooo much..... :)
god bless you.... :)
Go to Top of Page

HuwR
Forum Admin

United Kingdom
20584 Posts

Posted - 13 March 2009 :  10:16:10  Show Profile  Visit HuwR's Homepage  Reply with Quote
it is the 'title' attribute of the link which gets diaplayed as a 'tooltip'
Go to Top of Page
Page: of 2 Previous Topic Topic Next Topic  
Next Page
 New Topic  Reply to Topic
 Printer Friendly
Jump To:
Snitz Forums 2000 © 2000-2021 Snitz™ Communications Go To Top Of Page
This page was generated in 0.2 seconds. Powered By: Snitz Forums 2000 Version 3.4.07