Placement Of Send PM Link

Snitz™ Forums 2000
https://forum.snitz.com/forumTopic/Posts/66827?pagenum=1
05 November 2025, 12:47

Topic

leatherlips
Placement Of Send PM Link
10 April 2008, 10:07


I have the Send PM link in the author column as seen below:


I want to move it underneath the Online/Offline Status.
Here is the code for the Send PM Link:

Code:
'#####PM status#####
Reply_MemberPM = 1
strPMStatus = 1
If (Reply_MemberPM = "1" and strPMStatus = "1") Then
if Trim(Reply_MemberPM) <> "" then
Response.Write " <font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><small> <a href=""privatesend.asp?method=Topic&mname=" & ChkString(Reply_MemberName,"display") & """>" & getCurrentIcon(strIconPmprivatemessage,"Send " & ChkString(Reply_MemberName,"display") & " a Private Message","align=""absmiddle"" style=""margin:3px 3px 3px 0;"" hspace=""0""") & "Send PM</a><br>" & vbNewLine
End If
End IF
'#####PM Status end#####
This is the section of code that it needs to be placed in but I can't get it right. I keep getting errors. Where below would I need to add the code:

Code:
if strCountry = "1" and trim(Reply_MemberCountry) <> "" then
            Response.Write "                <font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><small>" & Reply_MemberCountry & "</small></font><br />" & vbNewLine
         end if
        Response.Write "                <font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><small>" & Reply_MemberPosts & " Posts</small></font><br />" & vbNewLine & _
               "                <font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><small>Status: "& AUMemberStatus(arrOnlineMembers, Reply_MemberID) &"</small></font></p></td>" & vbNewLine & _
               "                <td bgcolor=""" & CColor & """ height=""100%"" width=""" & strTopicWidthRight & """"
         if lcase(strTopicNoWrapRight) = "1" then Response.Write(" nowrap")
         if (AdminAllowed = 1) and (maxpages > 1) then
            Response.Write (" colspan=""3"" ")
         else
            Response.Write (" colspan=""2"" ")
         end if
<

 

Replies ...

JJenson
10 April 2008, 12:08


Wouldn't you just put the Pm Status code just under this line?
Code:

<font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><small>Status: "& AUMemberStatus(arrOnlineMembers, Reply_MemberID) &"</small></font></p></td>" & vbNewLine & _

so it would look something like this?
Code:

Response.Write "                <font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><small>" & Reply_MemberCountry & "</small></font><br />" & vbNewLine         end if        Response.Write "                <font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><small>" & Reply_MemberPosts & " Posts</small></font><br />" & vbNewLine & _               "                <font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><small>Status: "& AUMemberStatus(arrOnlineMembers, Reply_MemberID) &"</small></font></p></td>" 
'#####PM status#####Reply_MemberPM = 1strPMStatus = 1If (Reply_MemberPM = "1" and strPMStatus = "1") Thenif Trim(Reply_MemberPM) <> "" thenResponse.Write " <font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><small> <a href=""privatesend.asp?method=Topic&mname=" & ChkString(Reply_MemberName,"display") & """>" & getCurrentIcon(strIconPmprivatemessage,"Send " & ChkString(Reply_MemberName,"display") & " a Private Message","align=""absmiddle"" style=""margin:3px 3px 3px 0;"" hspace=""0""") & "Send PM</a><br>" & vbNewLineEnd IfEnd IF'#####PM Status end#####
    
 Response.Write      "                <td bgcolor=""" & CColor & """ height=""100%"" width=""" & strTopicWidthRight & """"         if lcase(strTopicNoWrapRight) = "1" then Response.Write(" nowrap")         if (AdminAllowed = 1) and (maxpages > 1) then            Response.Write (" colspan=""3"" ")         else            Response.Write (" colspan=""2"" ")         end if


I haven't tested this but I believe that should move it.
<
MaD2ko0l
10 April 2008, 12:30


it would look like that, if u was to put it under the online status:

Code:

			"                <font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><small>Status: "& AUMemberStatus(arrOnlineMembers, TMember_ID) &"</small></font></p></td>" & vbNewLine
'#####PM status#####
Reply_MemberPM = 1
strPMStatus = 1
If (Reply_MemberPM = "1" and strPMStatus = "1") Then
if Trim(Reply_MemberPM) <> "" then
Response.Write " <font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><small> <a href=""privatesend.asp?method=Topic&mname=" & ChkString(Reply_MemberName,"display") & """>" & getCurrentIcon(strIconPmprivatemessage,"Send " & ChkString(Reply_MemberName,"display") & " a Private Message","align=""absmiddle"" style=""margin:3px 3px 3px 0;"" hspace=""0""") & "Send PM</a><br>" & vbNewLine
End If
End IF
'#####PM Status end#####

also u shouldnt need the bits in red, these should be defined in the admin options.<
leatherlips
10 April 2008, 21:21


Thanks for the suggestions. I actully tried both of those before I posted here.
JJenson,

If I apply your code I get this error:


MaD2ko0l,

If I apply your code I get this error:

Code:
Expected statement 

/forum/topic.asp, line 762 

"                <td bgcolor=""" & CColor & """ height=""100%"" width=""" & strTopicWidthRight & """"
<
MaD2ko0l
11 April 2008, 10:29


Originally posted by leatherlips MaD2ko0l,

If I apply your code I get this error:

Code:
Expected statement 

/forum/topic.asp, line 762 

"                <td bgcolor=""" & CColor & """ height=""100%"" width=""" & strTopicWidthRight & """"

that error is due to a resposne.write or a " & vbNewLine & _ at the start or end of the lines that i posed..if you woudl post the lines above and below my block of code, i may be able to help you somem ore<
leatherlips
11 April 2008, 15:51


Originally posted by MaD2ko0l
that error is due to a resposne.write or a " & vbNewLine & _ at the start or end of the lines that i posed..if you woudl post the lines above and below my block of code, i may be able to help you somem ore
Here is the block of code. The part in red is what you suggested I add:

Code:
if strCountry = "1" and trim(Reply_MemberCountry) <> "" then
            Response.Write "                <font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><small>" & Reply_MemberCountry & "</small></font><br />" & vbNewLine
         end if
        Response.Write "                <font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><small>" & Reply_MemberPosts & " Posts</small></font><br />" & vbNewLine & _
               "                <font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><small>Status: "& AUMemberStatus(arrOnlineMembers, Reply_MemberID) &"</small></font></p></td>" & vbNewLine
'#####PM status#####
Reply_MemberPM = 1
strPMStatus = 1
If (Reply_MemberPM = "1" and strPMStatus = "1") Then
if Trim(Reply_MemberPM) <> "" then
Response.Write " <font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><small> <a href=""privatesend.asp?method=Topic&mname=" & ChkString(Reply_MemberName,"display") & """>" & getCurrentIcon(strIconPmprivatemessage,"Send " & ChkString(Reply_MemberName,"display") & " a Private Message","align=""absmiddle"" style=""margin:3px 3px 3px 0;"" hspace=""0""") & "Send PM</a><br>" & vbNewLine
End If
End IF
'#####PM Status end#####               
Response.Write  "                <td bgcolor=""" & CColor & """ height=""100%"" width=""" & strTopicWidthRight & """"
         if lcase(strTopicNoWrapRight) = "1" then Response.Write(" nowrap")
         if (AdminAllowed = 1) and (maxpages > 1) then
            Response.Write (" colspan=""3"" ")
         else
            Response.Write (" colspan=""2"" ")
         end if
         Response.Write "valign=""top""><a name=""" & Reply_ReplyID & """></a>" & vbNewLine & _
               "                  <table width=""100%"" height=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"">" & vbNewLine & _
               "                    <tr>" & vbNewLine & _
               "                      <td valign=""top"">" & vbNewLine

I tried it with and without the part in green but it did not work either way.
(P.S. It seems when putting the code in the scrollcode above, the lines do not retain the proper spacing. I tried to go back and edit it to look more correct.)<
MaD2ko0l
11 April 2008, 19:39


Originally posted by MaD2ko0l
that error is due to a resposne.write or a " & vbNewLine & _ at the start or end of the lines that i posed..if you woudl post the lines above and below my block of code, i may be able to help you somem ore
Here is the block of code. The part in red is what you suggested I add:

Code:
if strCountry = "1" and trim(Reply_MemberCountry) <> "" then
            Response.Write "                <font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><small>" & Reply_MemberCountry & "</small></font><br />" & vbNewLine
         end if
        Response.Write "                <font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><small>" & Reply_MemberPosts & " Posts</small></font><br />" & vbNewLine & _
               "                <font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><small>Status: "& AUMemberStatus(arrOnlineMembers, Reply_MemberID) &"</small></font></p></td>" & vbNewLine
'#####PM status#####
Reply_MemberPM = 1
strPMStatus = 1
If (Reply_MemberPM = "1" and strPMStatus = "1") Then
if Trim(Reply_MemberPM) <> "" then
Response.Write " <font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><small> <a href=""privatesend.asp?method=Topic&mname=" & ChkString(Reply_MemberName,"display") & """>" & getCurrentIcon(strIconPmprivatemessage,"Send " & ChkString(Reply_MemberName,"display") & " a Private Message","align=""absmiddle"" style=""margin:3px 3px 3px 0;"" hspace=""0""") & "Send PM</a><br>" & vbNewLine
End If
End IF
'#####PM Status end#####               
Response.Write  "                <td bgcolor=""" & CColor & """ height=""100%"" width=""" & strTopicWidthRight & """"
         if lcase(strTopicNoWrapRight) = "1" then Response.Write(" nowrap")
         if (AdminAllowed = 1) and (maxpages > 1) then
            Response.Write (" colspan=""3"" ")
         else
            Response.Write (" colspan=""2"" ")
         end if
         Response.Write "valign=""top""><a name=""" & Reply_ReplyID & """></a>" & vbNewLine & _
               "                  <table width=""100%"" height=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"">" & vbNewLine & _
               "                    <tr>" & vbNewLine & _
               "                      <td valign=""top"">" & vbNewLine

I tried it with and without the part in green but it did not work either way.
(P.S. It seems when putting the code in the scrollcode above, the lines do not retain the proper spacing. I tried to go back and edit it to look more correct.)

hhuummm intreasting.
i tryed this on a standard snitz install and i tryed it in the GetFirst sub (line 752) and it seems to work fine, here is the code and surroundign code

Code:

	if strCountry = "1" and trim(Member_Country) <> "" then
		Response.Write	"                <font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><small>" & Member_Country & "</small></font><br />" & vbNewLine
	end if
	Response.Write	"                <font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><small>" & Member_Posts & " Posts</small></font></p>" & vbNewLine removed &_ after vbNewLine and removed the </td> tag



'#####PM status#####
Reply_MemberPM = 1
strPMStatus = 1
If (Reply_MemberPM = "1" and strPMStatus = "1") Then
if Trim(Reply_MemberPM) <> "" then
Response.Write " <font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><small> <a href=""privatesend.asp?method=Topic&mname=" & ChkString(Reply_MemberName,"display") & """>" & getCurrentIcon(strIconPmprivatemessage,"Send " & ChkString(Reply_MemberName,"display") & " a Private Message","align=""absmiddle"" style=""margin:3px 3px 3px 0;"" hspace=""0""") & "Send PM</a><br></td>" & vbNewLine
End If
End IF
'#####PM Status end#####  



Response.Write			"                <td bgcolor=""" & strForumFirstCellColor & """ width=""" & strTopicWidthRight & """"
	if lcase(strTopicNoWrapRight) = "1" then Response.Write(" nowrap")
	if (AdminAllowed = 1) and (maxpages > 1) then
		Response.Write	(" colspan=""3"" ")

the bits in red have been moved/added/changed

can you post up a copy of your topic.asp as a txt file, i dont know what mods u have installed and it maybe another mod causing the problems?<
leatherlips
11 April 2008, 21:00


Getting rid of that </td> fixed it... I forgot to do that part as per your original instructions. blush
Thanks!
Now that I see the result, I'm not sure I like where it is at. There is too much space above it now. Removing the </p> goofs up the spacing of the other lines.<
MaD2ko0l
11 April 2008, 21:25


well instead of removing the </p> tag, just move it before the </td> tag, that shoudl align it all up correctly now...just try that 1st and then see how it looks<
leatherlips
11 April 2008, 21:42


I'm a little confused. The </p> tag was already before the </td> tag:

</small></font></p></td>"

I already removed the part in red. What should I do with the green?<
MaD2ko0l
11 April 2008, 21:53


im sure it should look like somthing like this this, remove the bit in red and add the bit in green. touch wood it works

Code:

	if strCountry = "1" and trim(Member_Country) <> "" then
		Response.Write	"                <font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><small>" & Member_Country & "</small></font><br />" & vbNewLine
	end if
	Response.Write	"                <font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><small>" & Member_Posts & " Posts</small></font></p>" & vbNewLine



'#####PM status#####
Reply_MemberPM = 1
strPMStatus = 1
If (Reply_MemberPM = "1" and strPMStatus = "1") Then
if Trim(Reply_MemberPM) <> "" then
Response.Write " <font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><small> <a href=""privatesend.asp?method=Topic&mname=" & ChkString(Reply_MemberName,"display") & """>" & getCurrentIcon(strIconPmprivatemessage,"Send " & ChkString(Reply_MemberName,"display") & " a Private Message","align=""absmiddle"" style=""margin:3px 3px 3px 0;"" hspace=""0""") & "Send PM</a><br></p></td>" & vbNewLine
End If
End IF
'#####PM Status end#####  



Response.Write			"                <td bgcolor=""" & strForumFirstCellColor & """ width=""" & strTopicWidthRight & """"
	if lcase(strTopicNoWrapRight) = "1" then Response.Write(" nowrap")
	if (AdminAllowed = 1) and (maxpages > 1) then
		Response.Write	(" colspan=""3"" ")


<
leatherlips
11 April 2008, 21:59


I'm being too picky I'm sure. I tried your suggestion. What it does is put a bigger space between the Posts and the Status. I'm not sure why. What you suggest makes perfect sense.<
MaD2ko0l
11 April 2008, 22:17


added part in red.
Code:
	Response.Write	"                <font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><small>" & Member_Posts & " Posts</small></font><BR>" & vbNewLine

http://mad2kool.co.uk/forum/topic.asp?TOPIC_ID=1 as u can see on that page in the first post, it is all arranged correctly

anyway, its getting late, need some sleep, if that dont work post a txt version of your topic and i will see if i can see anything out of the ordinary tomorrow<
© 2000-2021 Snitz™ Communications