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/O Code)
 Placement Of Send PM Link		  New Topic  Reply to Topic
 Printer Friendly
Author Previous Topic Topic Next Topic  

leatherlips
Senior Member

USA
1838 Posts
Posted - 10 April 2008 :  10:07:38  Show Profile  Visit leatherlips's Homepage  Reply with Quote
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
<
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
Edited by - leatherlips on 10 April 2008 10:13:20

JJenson
Advanced Member

USA
2121 Posts
Posted - 10 April 2008 :  12:08:10  Show Profile  Visit JJenson's Homepage  Reply with Quote
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.

<
Go to Top of Page

MaD2ko0l
Senior Member

United Kingdom
1053 Posts
Posted - 10 April 2008 :  12:30:07  Show Profile  Visit MaD2ko0l's Homepage  Reply with Quote
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.<
© 1999-2010 MaD2ko0l
Go to Top of Page

leatherlips
Senior Member

USA
1838 Posts
Posted - 10 April 2008 :  21:21:04  Show Profile  Visit leatherlips's Homepage  Reply with Quote
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 & """"
<
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
Go to Top of Page

MaD2ko0l
Senior Member

United Kingdom
1053 Posts
Posted - 11 April 2008 :  10:29:27  Show Profile  Visit MaD2ko0l's Homepage  Reply with Quote
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<
© 1999-2010 MaD2ko0l
Go to Top of Page

leatherlips
Senior Member

USA
1838 Posts
Posted - 11 April 2008 :  15:51:20  Show Profile  Visit leatherlips's Homepage  Reply with Quote
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.)<
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
Edited by - leatherlips on 11 April 2008 15:52:23
Go to Top of Page

MaD2ko0l
Senior Member

United Kingdom
1053 Posts
Posted - 11 April 2008 :  19:39:22  Show Profile  Visit MaD2ko0l's Homepage  Reply with Quote
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?<
© 1999-2010 MaD2ko0l
Go to Top of Page

leatherlips
Senior Member

USA
1838 Posts
Posted - 11 April 2008 :  21:00:30  Show Profile  Visit leatherlips's Homepage  Reply with Quote
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.<
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
Go to Top of Page

MaD2ko0l
Senior Member

United Kingdom
1053 Posts
Posted - 11 April 2008 :  21:25:16  Show Profile  Visit MaD2ko0l's Homepage  Reply with Quote
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
Go to Top of Page

leatherlips
Senior Member

USA
1838 Posts
Posted - 11 April 2008 :  21:42:54  Show Profile  Visit leatherlips's Homepage  Reply with Quote
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
Go to Top of Page

MaD2ko0l
Senior Member

United Kingdom
1053 Posts
Posted - 11 April 2008 :  21:53:09  Show Profile  Visit MaD2ko0l's Homepage  Reply with Quote
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"" ")



<
© 1999-2010 MaD2ko0l
Go to Top of Page

leatherlips
Senior Member

USA
1838 Posts
Posted - 11 April 2008 :  21:59:53  Show Profile  Visit leatherlips's Homepage  Reply with Quote
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.<
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
Go to Top of Page

MaD2ko0l
Senior Member

United Kingdom
1053 Posts
Posted - 11 April 2008 :  22:17:59  Show Profile  Visit MaD2ko0l's Homepage  Reply with Quote
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<
© 1999-2010 MaD2ko0l
Go to Top of Page
  Previous Topic Topic Next Topic  
 New Topic  Reply to Topic
 Printer Friendly
Jump To:
Snitz Forums 2000 © 2000-2021 Snitz™ Communications Go To Top Of Page
This page was generated in 0.2 seconds. Powered By: Snitz Forums 2000 Version 3.4.07