I've made an alternative Quote function for Snitz using CSS.
Level of difficulty (Easy-Normal-Hard) : Easy/Normal
Files to modify : inc_header.asp, inc_header_short.asp, inc_func_common.asp, inc_func_posting.asp
Tested on : www.oxle.com , www.oxle.com/test
How does it work :
We replace the quote function in inc_func_common.asp with a new one, that places a table around the quote.
The setup/color/fonts etc of that table are controlled using CSS.
We add the 'decode' function to inc_func_posting.asp (before the 'old' quote-decode function).
We add the required styles to inc_header.asp and inc_header_short.asp.
Here's the code.
inc_func_common.asp:
Find this: Line 407
fString = doCode(fString, "[quote]", "[/quote]", "<blockquote id=""quote""><font size=""" & strFooterFontSize & """ face=""" & strDefaultFontFace & """ id=""quote"">quote:<hr height=""1"" noshade id=""quote"">", "<hr height=""1"" noshade id=""quote""></font id=""quote""></blockquote id=""quote"">")
Replace with this:
fString = doCode(fString, "[quote]", "[/quote]", "<div align=""right"" id=""quote2""><table class=""quote""><tr><td class=""quotetd""><span class=""quotetext"">quote:</span></td></tr><tr><td class=""quotetd2""><span class=""quotetext"">", "</span></td></tr></table></div align=""right"" id=""quote2"">")
inc_func_posting.asp:
Find this:
fString = replace(fString, "<blockquote id=""quote""><font size=""" & strFooterFontSize & """ face=""" & strDefaultFontFace & """ id=""quote"">quote:<hr height=""1"" noshade id=""quote"">","[quote]", 1, -1, 1)
Add directly above it:
fString = replace(fString, "<div align=""right"" id=""quote2""><table class=""quote""><tr><td class=""quotetd""><span class=""quotetext"">quote:</span></td></tr><tr><td class=""quotetd2""><span class=""quotetext"">","[quote]", 1, -1, 1)
fString = replace(fString, "</span></td></tr></table></div align=""right"" id=""quote2"">","[/quote]", 1, -1, 1)
Okay, now we're going to define the styles.
These are my example settings...feel free to adjust them to your needs.
"table.quote {width: 90%; border: 0px " & strTableBorderColor & " solid}" & vbNewLine & _
".quotetd {width: 100%; border: 0px DCDCDC solid}" & vbNewLine & _
".quotetd2 {background-color: #F5F5F5 ; width: 100%; border: 1px "& strTableBorderColor &" solid; border-collapse: separate; padding: 0.3em}" & vbNewLine & _
".quotetext {font-family: "& strDefaultFontFace &"; font-size: 7pt}" & vbNewLine & _
Add these lines to your inc_header.asp and inc_header_short.asp, just above this line:
".spnMessageText a:link {color:" & strForumLinkColor & ";text-decoration:" & strForumLinkTextDecoration & "}" & vbNewLine & _
Enjoy.
Topic Locked
Posted - 18 July 2004 : 11:49:12
It works great! Thank-you
I think I'm too tired or something, but still I don't get it...