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)
 Private Messages 3.4.03
 New Topic  Topic Locked
 Printer Friendly
Previous Page | Next Page
Author Previous Topic Topic Next Topic
Page: of 20

irondribbles
New Member

61 Posts

Posted - 05 December 2002 :  04:07:05  Show Profile
fixed. thanx a million man. awesome mod
Go to Top of Page

MarkJH
Senior Member

United Kingdom
1722 Posts

Posted - 13 December 2002 :  15:26:41  Show Profile  Visit MarkJH's Homepage
Just wanted to bring up a point that s0110282 made earlier in the topic, and which I discovered today.

"Anyway, when viewing your inbox, it shows the title 'Sent To'. Should this say 'Sent From'? I may be missing something since no one has mentioned it yet, but I just thought I'd bring it up."

Change line 190 from:

Response.Write "<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """><b>Sent To</b></font></td>" & vbNewLine & _

to

Response.Write "<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """><b>Sent From</b></font></td>" & vbNewLine & _

Bandlink.net - http://www.bandlink.net/
Bandlink Music Forums - http://www.bandlink.net/forum/
Go to Top of Page

TERM
New Member

82 Posts

Posted - 15 December 2002 :  21:32:26  Show Profile
quote:
ADODB.Recordset error '800a0cc1'
Item cannot be found in the collection corresponding to the requested name or ordinal.

/testboard/pop_profile.asp, line 322



Thats the error I get.

quote:
Response.Write " </tr>" & vbNewLine
end if
If strDBNTUserName <> "" and Trim(rs("M_PMRECEIVE")) = "1" and strPMStatus = "1" Then
strContacts = strContacts + 1
Response.Write " <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ align=""right"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>PM User: </font></b></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & getCurrentIcon(strIconPmprivatemessage,"Send " & chkString(rs("M_NAME"),"display") & " a Private Message","align=""absmiddle"" hspace=""0""") & " <a href=""privatesend.asp?method=Topic&mname=" & chkString(rs("M_NAME"),"display") & """>" & chkString(rs("M_NAME"),"display") & "</a> </font></td>" & vbNewLine & _
" </tr>" & vbNewLine
end if



That is line 322 in bold. And the lines around it.. Please help me, I really want this feature on my board.
Go to Top of Page

laser
Advanced Member

Australia
3859 Posts

Posted - 15 December 2002 :  22:19:33  Show Profile
Look above line 322 where you last do a "rs.open blah", there will be reference to a strSql (or similar) track that bit down and I'd assume that you should have included M_PMRECEIVE in your SQL statement, but you didn't.

A text version of pop_profile would be good because the error is somewhere way above line 322
Go to Top of Page

MarcelG
Retired Support Moderator

Netherlands
2625 Posts

Posted - 23 December 2002 :  09:51:29  Show Profile  Visit MarcelG's Homepage
Ok, guys and girls ; I am completely lost....
I've implemented the mod, just as described.
I use a newly installed 3.4 forum with NT authentication, and an access database.
After I installed the mod, I can send PM's, and other people can send PM's.
However, no-one can receive them ?!?!
They are in the DB, I can see them....they're stored in FORUM_PM.
But, no one can access them.
For instance, I (account NL09939, user name Marcel Göertz, MEMBER_ID=1) send's a message to another user, full name Renalte Velthuijsen, account NL371152, MEMBER_ID=52).
I cannot see a message in my outbox, nor can Renate see any message in her inbox.
If I access PM_VIEW.ASP, I see "NL09939's inbox". Renate sees "NL371152's inbox".

In the database in FORUM_PM I see the following:
M_ID = 1
M_SUBJECT = Testbericht
M_FROM = 1
M_TO = 52
M_SENT = 20021223145956
M_MESSAGE = Eens kijken of dit werkt (let's see if this works in Dutch)
M_PMCOUNT = (empty)
M_READ = 0
M_MAIL = 0
M_OUTBOX = 1

This is the same when Renate sends me a message...

Next to that I get the following error when clicking on 'Preferences' in PM_VIEW.ASP
error : ADODB.Field error '800a0bcd' 

Either BOF or EOF is True, or the current record has been deleted. 
Requested operation requires a current record. 

/forum/pm_options.asp, line 103


I've disabled PM in the Admin options, but still the Private Messages is visibile on the navigation on top, and at the start page....

Anyone any suggestions ?

portfolio - linkshrinker - oxle - twitter

Edited by - MarcelG on 23 December 2002 09:52:16
Go to Top of Page

MarcelG
Retired Support Moderator

Netherlands
2625 Posts

Posted - 23 December 2002 :  10:53:42  Show Profile  Visit MarcelG's Homepage
Ok, I solved it 'partly'...i changed the following lines in PM_VIEW.ASP ->
if strDBType = "access" then
strSqL = "SELECT count(M_TO) as [pmtotal] FROM " & strTablePrefix & "PM P," & 
strMemberTablePrefix & "MEMBERS M WHERE M.M_USERNAME= '" & strDBNTUserName & "' AND M.MEMBER_ID = P.M_TO"

I changed the bold part...it was M.M_NAME....I changed it to M.M_USERNAME.

Now I only have the issue in Privatemess.asp, which now shows only the NT User ID, instead of the name...
else
		Response.Write	"<font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """ color=""" & strForumFontColor & """><br><b>"
		if strAuthType="nt" then
		
			Response.Write	strFullName & " (" & strDBNTUserName & ")</b>"
		else
			if strAuthType = "db" then
				Response.Write	strDBNTUserName & "</b>"


Anyone a suggestion on how to display the member name there (the M_NAME value in the DB)?
This might be a stupid question, since it sounds to simple, but I cannot think of any working piece of code....

portfolio - linkshrinker - oxle - twitter
Go to Top of Page

MarcelG
Retired Support Moderator

Netherlands
2625 Posts

Posted - 23 December 2002 :  11:35:16  Show Profile  Visit MarcelG's Homepage
Sorry folks, but I found another 'buggy' feature...
I have integrated the forum into a frames page. If I navigate to the Private Messages, (PM_VIEW.ASP), the target for all other hyperlinks outside the forum are set to a new browser...
Removing the line window.name = 'pm_main'; from PM_VIEW.ASP solved this....however I suspect this to create a new problem later on....


portfolio - linkshrinker - oxle - twitter
Go to Top of Page

sinereth
Starting Member

5 Posts

Posted - 24 December 2002 :  02:52:41  Show Profile
If anyone could suggest as to why my maintenance screen is showing the config form after submitting, it would be greatly appreciated. I'm sure its an error in "admin_pmmaint.asp" but I'll be ****ed if I can find it.

Other than that, MOD works great.

- sin


Go to Top of Page

DoraMoon
Average Member

Taiwan
661 Posts

Posted - 24 December 2002 :  09:20:23  Show Profile
hi~ marcelgoertz,
i have the same problem when old 3.3 snitz, the PM Mod really not so compatible with frame web pages.
and the line window.name = 'pm_main' is for pm_members.asp page, so if you just remove it, i think maybe the popup memberlist will get some problem too....

as i remember, my fix on 3.3 seem like this... (sorry i did'nt try this mod on 3.4 yet..)
pm_view.asp
window.name = 'your_main_frame_name'
and
<a href=""javascript:pmmembers()"" onClick=""window.name='your_main_frame_name'"">

pm_members.asp
<a href=""privatesend.asp?method=Topic&mname=" & rsMembers("M_NAME") & """ target=""your_main_frame_name"" OnClick=""self.close()"">

no test for this modified code, so you may need to try it by yourself. anyway, just be careful for the pm_members feature.

=================================================================
and hi~ sinereth,
try this...... add 2 lines in line.111 (admin_pmmaint.asp)
"<p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><a href=""admin_home.asp"">Back To Admin Home</font></a></p>" & vbCrlf
WriteFooter
Response.End

else

=================================================================

Merry X'mas to all my snitz friends!

Go to Top of Page

sinereth
Starting Member

5 Posts

Posted - 24 December 2002 :  11:41:17  Show Profile
quote:
Originally posted by DoraMoon
and hi~ sinereth,
try this...... add 2 lines in line.111 (admin_pmmaint.asp)
"<p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><a href=""admin_home.asp"">Back To Admin Home</font></a></p>" & vbCrlf
WriteFooter
Response.End

else




That worked, thanks for you help. I also had to add those two lines in a few other place. Their final locations (line numbers) are:
- 79 & 80
- 89 & 90
- 116 & 117 (this is the one you indicated above)
- 130 & 131

- sin
Go to Top of Page

@tomic
Senior Member

USA
1790 Posts

Posted - 24 December 2002 :  16:41:42  Show Profile  Visit @tomic's Homepage  Send @tomic an ICQ Message
Thanks Dora. I'll try to get that in the readme soon. I think it would be better to include this as an option rather than rewrite the code for frames.

@tomic

SportsBettingAcumen.com
Go to Top of Page

@tomic
Senior Member

USA
1790 Posts

Posted - 24 December 2002 :  17:18:13  Show Profile  Visit @tomic's Homepage  Send @tomic an ICQ Message
[quote]Anyone a suggestion on how to display the member name there (the M_NAME value in the DB)?
This might be a stupid question, since it sounds to simple, but I cannot think of any working piece of code....quote]
You will need to query the database for that info. The way the MOD is set up is to display strDBNTUserName which requires no special query. Try adding this:

if (strAuthType = "nt") then
	strSql = "SELECT M.M_FIRSTNAME,M.M_LASTNAME FROM " & strTablePrefix & "MEMBERS M WHERE M.M_NAME = " & strDBNTUserName

	Set rsPMNT = my_Conn.Execute(strSql)

        strFullName = rsPMNT("M_FIRSTNAME") & rsPMNT("M_LASTNAME")

	rsPMNT.close
	set rsPMNT = nothing
end if


Then you can display strFullName as you like. I will work at fixing this up for NT later but this should be able to get you running for now.

@tomic

SportsBettingAcumen.com

Edited by - @tomic on 25 December 2002 17:00:17
Go to Top of Page

MarcelG
Retired Support Moderator

Netherlands
2625 Posts

Posted - 25 December 2002 :  06:02:03  Show Profile  Visit MarcelG's Homepage
@tomic and Dora, thanks for the info! I'll try it on friday when I get back to work.

Merry Xmas!

portfolio - linkshrinker - oxle - twitter
Go to Top of Page

headmaster
Starting Member

16 Posts

Posted - 27 December 2002 :  17:28:36  Show Profile
After following the directions, I get the following error when accessing the forum/default.asp

Microsoft OLE DB Provider for ODBC Drivers error '80040e37'

[Microsoft][ODBC Microsoft Access Driver] The Microsoft Jet database engine cannot find the input table or query 'FORUM_PM'. Make sure it exists and that its name is spelled correctly.

/forum/inc_header.asp, line 247

================================
'## START - REMOVAL, MODIFICATION OR CIRCUMVENTING THIS CODE WILL VIOLATE THE SNITZ FORUMS 2000 LICENSE AGREEMENT
Response.Write "<meta name=""copyright"" content=""This Forum code is Copyright (C) 2000-02 Michael Anderson, Pierre Gorissen, Huw Reddick and Richard Kinser, Non-Forum Related code is Copyright (C) " & strCopyright & """>" & vbNewline
'## END - REMOVAL, MODIFICATION OR CIRCUMVENTING THIS CODE WILL VIOLATE THE SNITZ FORUMS 2000 LICENSE AGREEMENT

' Get Private Message count for display
if strDBType = "access" then
strSqL = "SELECT count(M_TO) as [pmcount] "
else
strSqL = "SELECT count(M_TO) as pmcount "
end if
strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS , " & strTablePrefix & "PM "
strSql = strSql & " WHERE " & strMemberTablePrefix & "MEMBERS.M_NAME = '" & strDBNTUserName & "'"
strSql = strSql & " AND " & strMemberTablePrefix & "MEMBERS.MEMBER_ID = " & strTablePrefix & "PM.M_TO "
strSql = strSql & " AND " & strTablePrefix & "PM.M_READ = 0 "

Set rsPM = my_Conn.Execute(strSql) <----LINE 247
pmcount = rsPM("pmcount")

rsPM.close
set rsPM = nothing
==========================================

I am using the AccessDB and have updated to 3.4.03 and made sure this version was working before I applied the PM mod.

I looked to see if this has been addressed, but didn't see it. Any info would be appreciated.

Thanks,
headmaster

Edited by - headmaster on 27 December 2002 17:39:16
Go to Top of Page

@tomic
Senior Member

USA
1790 Posts

Posted - 27 December 2002 :  18:11:31  Show Profile  Visit @tomic's Homepage  Send @tomic an ICQ Message
quote:
I looked to see if this has been addressed, but didn't see it. Any info would be appreciated.

This is because this is almost certainly an error on your part. The message you see indicates the database table needed is not there. Did you successfully run the dbs setup?

@tomic

SportsBettingAcumen.com
Go to Top of Page
Page: of 20 Previous Topic Topic Next Topic  
Previous Page | Next Page
 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.19 seconds. Powered By: Snitz Forums 2000 Version 3.4.07