Snitz Forums 2000
Snitz Forums 2000
Home | Profile | Register | Active Topics | Members | Search | FAQ
 All Forums
 Snitz Forums 2000 MOD-Group
 MOD Add-On Forum (W/O Code)
 Placement Of Send PM Link

Note: You must be registered in order to post a reply.
To register, click here. Registration is FREE!
Before posting, make sure you have read this topic!

Screensize:
UserName:
Password:
Format Mode:
Format: BoldItalicizedUnderlineStrikethrough Align LeftCenteredAlign Right Horizontal Rule Insert HyperlinkInsert EmailInsert Image Insert CodeInsert QuoteInsert List
   
Message:

* HTML is OFF
* Forum Code is ON
Smilies
Smile [:)] Big Smile [:D] Cool [8D] Blush [:I]
Tongue [:P] Evil [):] Wink [;)] Clown [:o)]
Black Eye [B)] Eight Ball [8] Frown [:(] Shy [8)]
Shocked [:0] Angry [:(!] Dead [xx(] Sleepy [|)]
Kisses [:X] Approve [^] Disapprove [V] Question [?]

 
   

T O P I C    R E V I E W
leatherlips Posted - 10 April 2008 : 10:07:38
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:

'#####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:

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
<
12   L A T E S T    R E P L I E S    (Newest First)
MaD2ko0l Posted - 11 April 2008 : 22:17:59
added part in red.

	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<
leatherlips Posted - 11 April 2008 : 21:59:53
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 Posted - 11 April 2008 : 21:53:09
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


	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 Posted - 11 April 2008 : 21:42:54
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 Posted - 11 April 2008 : 21:25:16
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 Posted - 11 April 2008 : 21:00:30
Getting rid of that </td> fixed it... I forgot to do that part as per your original instructions.

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 Posted - 11 April 2008 : 19:39:22
quote:
Originally posted by leatherlips

quote:
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:

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


	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 Posted - 11 April 2008 : 15:51:20
quote:
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:

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 Posted - 11 April 2008 : 10:29:27
quote:
Originally posted by leatherlips
MaD2ko0l,

If I apply your code I get this error:

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 Posted - 10 April 2008 : 21:21:04
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:

Expected statement 

/forum/topic.asp, line 762 

"                <td bgcolor=""" & CColor & """ height=""100%"" width=""" & strTopicWidthRight & """"
<
MaD2ko0l Posted - 10 April 2008 : 12:30:07
it would look like that, if u was to put it under the online status:


			"                <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.<
JJenson Posted - 10 April 2008 : 12:08:10
Wouldn't you just put the Pm Status code just under this line?


<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?


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.

<

Snitz Forums 2000 © 2000-2021 Snitz™ Communications Go To Top Of Page
This page was generated in 0.1 seconds. Powered By: Snitz Forums 2000 Version 3.4.07