Placement Of Send PM Link - Posted (1365 Views)
leatherlips
Senior Member
leatherlips
Posts: 1838
1838
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
<
Mangione Magic Forum - The Music of Chuck Mangione
My Mods: Googiespell MOD | Link To Reply MOD | Petition MOD | Contact Page MOD | Share This Topic MOD | MP3 MOD | PageEar MOD | Google Viewer MOD
Last edited by leatherlips on 10 April 2008, 10:13
 Sort direction, for dates DESC means newest first  
 Page size 
Posted
JJenson
Advanced Member
JJenson
Posts: 2121
2121
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.
<
Posted
MaD2ko0l
Senior Member
MaD2ko0l
Posts: 1053
1053
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.<
© 1999-2010 MaD2ko0l
Posted
leatherlips
Senior Member
leatherlips
Posts: 1838
1838
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 & """"
<
Mangione Magic Forum - The Music of Chuck Mangione
My Mods: Googiespell MOD | Link To Reply MOD | Petition MOD | Contact Page MOD | Share This Topic MOD | MP3 MOD | PageEar MOD | Google Viewer MOD
Posted
MaD2ko0l
Senior Member
MaD2ko0l
Posts: 1053
1053
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<
© 1999-2010 MaD2ko0l
Posted
leatherlips
Senior Member
leatherlips
Posts: 1838
1838
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.)<
Mangione Magic Forum - The Music of Chuck Mangione
My Mods: Googiespell MOD | Link To Reply MOD | Petition MOD | Contact Page MOD | Share This Topic MOD | MP3 MOD | PageEar MOD | Google Viewer MOD
Last edited by leatherlips on 11 April 2008, 15:52
Posted
MaD2ko0l
Senior Member
MaD2ko0l
Posts: 1053
1053
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?<
© 1999-2010 MaD2ko0l
Posted
leatherlips
Senior Member
leatherlips
Posts: 1838
1838
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.<
Mangione Magic Forum - The Music of Chuck Mangione
My Mods: Googiespell MOD | Link To Reply MOD | Petition MOD | Contact Page MOD | Share This Topic MOD | MP3 MOD | PageEar MOD | Google Viewer MOD
Posted
MaD2ko0l
Senior Member
MaD2ko0l
Posts: 1053
1053
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<
© 1999-2010 MaD2ko0l
Posted
leatherlips
Senior Member
leatherlips
Posts: 1838
1838
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?<
Mangione Magic Forum - The Music of Chuck Mangione
My Mods: Googiespell MOD | Link To Reply MOD | Petition MOD | Contact Page MOD | Share This Topic MOD | MP3 MOD | PageEar MOD | Google Viewer MOD
Posted
MaD2ko0l
Senior Member
MaD2ko0l
Posts: 1053
1053
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"" ")


<
© 1999-2010 MaD2ko0l
You Must enter a message