Hmm I got this small piece of code that I can't quite figure out.
Response.Write " <tr>" & vbNewLine & _
" <td bgcolor=""" & CColor & """ valign=""top"" width=""" & strTopicWidthLeft & """"
if lcase(strTopicNoWrapLeft) = "1" then Response.Write(" nowrap")
Response.Write ">" & vbNewLine & _
" <p><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b><span class=""spnMessageText"">" & profileLink(ChkString(Reply_MemberName,"display"),Reply_Author) & "</span></b></font><br />" & vbNewLine
if strShowRank = 1 or strShowRank = 3 then
Response.Write " <font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><small>" & ChkString(getMember_Level(Reply_MemberTitle, Reply_MemberLevel, Reply_MemberPosts),"display") & "</small></font><br />" & vbNewLine
end if
if strShowRank = 2 or strShowRank = 3 then
Response.Write " " & getStar_Level(Reply_MemberID, Reply_MemberLevel, Reply_MemberPosts) & vbNewLine
end if
Watch the 2 red 'Reply_MemberPosts' that does not really belong there, as i show the #posts under the sig in the bottom.
When removing them i get an error, but in my small-brain-logic i could just remove them!
Why not? -and how should the code look to make it work?
As you can see, I do not have the need to have the postcount show in the left row.
Further down I got this:
Response.Write " <tr>" & vbNewLine & _
" <td colspan=""2"" valign=""bottom"" align=""left"" height=""20""><hr size=""1"" color=""#555555""><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """ color=""" & strForumFontColor & """></td></tr><td width=""100%"" nowrap>" & vbNewLine & _
" <nobr><img alt=""" & Reply_MemberCountry & """ src=""" & strImageURL & "flags/" & Reply_MemberCountry & ".gif"" width=""21"" height=""14"" border=""0"" align=""absbottom"">" & vbNewLine & _
" <font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><small> | Indlæg: " & Reply_MemberPosts & "</small></font></td>" & vbNewLine & _
" <td valign=""top"" align=""right"" width=""1""><a href=""#top"">" & getCurrentIcon(strIconGoUp,"Go to Top of Page","align=""right""") & "</a></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" </table>" & vbNewLine & _
" </td>" & vbNewLine & _
" </tr>" & vbNewLine
intI = intI + 1
if intI = 2 then
intI = 0
end if
next
end if
