| Author |
 Topic  |
|
@tomic
Senior Member
USA
1790 Posts |
 Posted - 26 September 2002 : 16:38:30
|
quote:
My install does not show the active number of unread messages count beside the link to Private Messages. Is that turned on somewhere or did I mess up the code?
No, that is something i just haven't gotten around to adding yet. So it's working properly.
@tomic |
SportsBettingAcumen.com |
 |
|
|
stwilson
Junior Member
USA
385 Posts |
Posted - 26 September 2002 : 16:56:54
|
Thanks for your reply @tomic. I will wait for that helpful little addition.
STW. |
Shannon
RidingArizona.com |
|
|
|
Fresdar
Starting Member
19 Posts |
Posted - 29 September 2002 : 05:41:50
|
quote:
Originally posted by Yodabutt1
OK What have I done wrong?? Here's the error I'm getting:
Error Type:
Microsoft VBScript compilation (0x800A0400)
Expected statement
/forum/inc_header.asp, line 518
Here's my code..
' DEM --> End of Code added to show subscriptions if they exist
Response.Write " |" & vbNewline & _
" <a href=""members.asp""" & dWStatus("Current members of these forums...") & " tabindex=""-1""><acronym title=""Current members of these forums..."">Members</acronym></a>" & vbNewline & _
" |" & vbNewline
if strDBNTUserName <> "" and strPMStatus = "1" then
" <a href=""pm_view.asp""" & dWStatus("Check Your Private Messages...") & "
tabindex=""-1""><acronym title=""Check Your Private Messages..."">Private messages</acronym></a>" &
vbNewline & _
" |" & vbNewline
end if
" <a href=""search.asp"
The readme has an error which also shows Response.Write in front of " <a href=""search.asp" Not sure which is correct, but I've tried both a half dozen times. Not sure if I put the previous code in the readme in the right place as line 260 didn't seem to make any sense, so I put it at 87.
I've done the rest of the code additions but I've not yet seen any indication of PM being active.
Any help would be greatly appreciated!
Im getting the same error when I try to add that code. Any fixes yet on it? |
|
|
|
@tomic
Senior Member
USA
1790 Posts |
Posted - 29 September 2002 : 05:53:18
|
You definately need Response.Write in front of " <a href=""search.asp"
so that it looks like this:
Response.Write " <a href=""search.asp"
@tomic
|
SportsBettingAcumen.com |
Edited by - @tomic on 29 September 2002 05:53:37 |
|
|
|
Fresdar
Starting Member
19 Posts |
Posted - 29 September 2002 : 06:03:14
|
' DEM --> End of Code added to show subscriptions if they exist
Response.Write " |" & vbNewline & _
" <a href=""members.asp""" & dWStatus("Current members of these forums...") & " tabindex=""-1""><acronym title=""Current members of these forums..."">Members</acronym></a>" & vbNewline & _
" |" & vbNewline
if strDBNTUserName <> "" and strPMStatus = "1" then
" <a href=""pm_view.asp""" & dWStatus("Check Your Private Messages...") & " tabindex=""-1""><acronym title=""Check Your Private Messages..."">Private messages</acronym></a>" & vbNewline & _
" |" & vbNewline
end if
Response.Write " <a href=""search.asp"
Above is the code im trying. Below is the error.
Microsoft VBScript compilation error '800a0400'
Expected statement
/heroes/mb/inc_header.asp, line 532
" <a href=""pm_view.asp""" & dWStatus("Check Your Private Messages...") & " tabindex=""-1""><acronym title=""Check Your Private Messages..."">Private messages</acronym></a>" & vbNewline & _
^
|
|
|
|
@tomic
Senior Member
USA
1790 Posts |
Posted - 29 September 2002 : 06:29:31
|
Make it look like this:
Response.Write " <a href=""pm_view.asp""" & dWStatus("Check Your Private Messages...") & " tabindex=""-1""><acronym title=""Check Your Private Messages..."">Private messages</acronym></a>" & vbNewline & _
The fix is the red part.
@tomic |
SportsBettingAcumen.com |
|
|
|
Fresdar
Starting Member
19 Posts |
Posted - 29 September 2002 : 11:23:03
|
| Thanks @tomic your the best. Works just fine now. |
|
|
|
MichaelA
Junior Member
USA
222 Posts |
Posted - 01 October 2002 : 21:37:54
|
Someone please enlighten me. I had installed all of the changes in the readme.txt up to and including admin_home.asp. However, I have not found a way to create a private message. Would I be correct to say that one of the options following admin_home.asp MUST be installed in order to create private messages? It says "Private Message Options - Various Code Snippets Tp Add to PMS". Are they not so optional or did I miss something along the way?
Please enlighten me. Thanks.
Mike
|
|
|
|
@tomic
Senior Member
USA
1790 Posts |
Posted - 01 October 2002 : 21:41:57
|
No you are correct and I uploaded a new readme.html just this morning that no longer contains the word "optional" for admin_home.asp or the dbs setup which puts default values in place for PMStatus and PMLimit.
@tomic |
SportsBettingAcumen.com |
|
|
|
laser
Advanced Member
Australia
3859 Posts |
Posted - 02 October 2002 : 07:31:26
|
@tomic, you can probably do this faster than me ....
I'm trying to add the MSN IM icon to privateread.asp in the same vain as the other IM icons. I only downloaded your code the other day, so I'm guessing I have the latest version and I checked your demo site (I added some MSN details/tested/then deleted them) and no go
Thanks mate  |
|
|
|
@tomic
Senior Member
USA
1790 Posts |
|
|
@tomic
Senior Member
USA
1790 Posts |
Posted - 02 October 2002 : 13:30:20
|
I also changed the link in inc_header.asp so that if you have new Private Messages it says how many new messages you have. ex: Members | Private Messages(3 New) | Search
@tomic |
SportsBettingAcumen.com |
|
|
|
laser
Advanced Member
Australia
3859 Posts |
Posted - 02 October 2002 : 16:42:48
|
| Thanks mate - much appreciated |
|
|
|
laser
Advanced Member
Australia
3859 Posts |
Posted - 02 October 2002 : 16:54:24
|
@tomic. I found a problem with the ICQ icon in privateread.asp
Old code :
if strICQ = "1" then
if strMICQ <> " " then
Response.Write " <a href=""JavaScript:openWindow('pop_messengers.asp?mode=ICQ&ID=" & strMICQ & "&M_NAME=" & ChkString(strMName,"urlpath") & "')""><img src=""http://online.mirabilis.com/scripts/online.dll?icq=" & strMICQ & "&img=5"" height=""15"" width=""15"" alt=""Send " & strMName & " an ICQ Message"" border=""0"" align=""absmiddle"" hspace=""6""></a>" & vbNewLine
end if
end if
New Code :
if strICQ = "1" then
if strMICQ <> " " then
Response.Write " <a href=""JavaScript:openWindow('pop_messengers.asp?mode=ICQ&ID=" & strMID & "')""><img src=""http://online.mirabilis.com/scripts/online.dll?icq=" & strMICQ & "&img=5"" height=""15"" width=""15"" alt=""Send " & strMName & " an ICQ Message"" border=""0"" align=""absmiddle"" hspace=""6""></a>" & vbNewLine
end if
end if
|
|
|
|
laser
Advanced Member
Australia
3859 Posts |
Posted - 02 October 2002 : 17:03:50
|
Another quick one ....
I changed all references of Member_Name to strMName, that puts the user name in the bubble text for the homepage and MSN link
GREAT mod - I held back on my 3.4 upgrade because my users can't live without it |
|
|
|
Topic |
|
Topic Locked
