| Author |
 Topic  |
|
phoenixtaz13
Junior Member
129 Posts |
 Posted - 12 March 2009 : 06:07:32
|
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
|
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") |
 |
|
|
phoenixtaz13
Junior Member
129 Posts |
|
|
HuwR
Forum Admin
United Kingdom
20584 Posts |
Posted - 12 March 2009 : 09:48:02
|
| report the errors, I can't look for something if I don't know what I'm looking for |
|
|
|
AnonJr
Moderator
United States
5768 Posts |
Posted - 12 March 2009 : 10:25:07
|
For the segment posted above, you may want to try:
I'd look a little more but my coffee break isn't that long.  |
Edited by - AnonJr on 12 March 2009 10:26:08 |
|
|
|
phoenixtaz13
Junior Member
129 Posts |
Posted - 12 March 2009 : 10:34:31
|
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..... :)
|
|
|
|
HuwR
Forum Admin
United Kingdom
20584 Posts |
Posted - 12 March 2009 : 10:42:14
|
| did you try anon's suggestion above ? |
|
|
|
phoenixtaz13
Junior Member
129 Posts |
Posted - 12 March 2009 : 11:11:12
|
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....
|
|
|
|
Carefree
Advanced Member
Philippines
4207 Posts |
Posted - 12 March 2009 : 20:17:52
|
| 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. |
|
|
|
phoenixtaz13
Junior Member
129 Posts |
Posted - 12 March 2009 : 22:23:24
|
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 |
|
|
|
Carefree
Advanced Member
Philippines
4207 Posts |
Posted - 13 March 2009 : 01:25:03
|
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). |
|
|
|
phoenixtaz13
Junior Member
129 Posts |
Posted - 13 March 2009 : 05:09:55
|
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....
|
|
|
|
Carefree
Advanced Member
Philippines
4207 Posts |
Posted - 13 March 2009 : 05:45:19
|
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 |
|
|
|
HuwR
Forum Admin
United Kingdom
20584 Posts |
Posted - 13 March 2009 : 07:52:23
|
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
|
|
|
|
phoenixtaz13
Junior Member
129 Posts |
Posted - 13 March 2009 : 10:11:54
|
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.... :)
|
|
|
|
HuwR
Forum Admin
United Kingdom
20584 Posts |
Posted - 13 March 2009 : 10:16:10
|
| it is the 'title' attribute of the link which gets diaplayed as a 'tooltip' |
|
|
|
Topic |
|
blog mod - help
