Here it is. Don't copy and paste this directly to your forum
I had to put in *'s for the forum code and I'm not sure I gotem all .
Its basicly <fieldset><legend>legend text (name)</legend> fieldset text (quote)</fieldset>
I put inside of blockquote because that was the easiest way I found to get it centered on the page.
Play around with it.
inc_func_common.asp
if fField_Type <> "signature" and fField_Type <> "title" then
fString = doCode(fString, "[*quote]", "[*/quote]", "<blockquote id=""quote""><fieldset id=""quote""><font size=""" & strFooterFontSize & """ face=""" & strDefaultFontFace & """ id=""quote"">", "</font id=""quote""></fieldset id=""quote""></blockquote id=""quote"">")
end if
Add <legend> to chkString (I added <fieldset> also, but I don't think It needs it)
fString = doCode(fString, "[legend]", "[/legend]", "<legend>", "</legend>")
fString = doCode(fString, "[fieldset]", "[/fieldset]", "<fieldset>", "</fieldset>")
inc_func_posting.asp
fString = replace(fString, "<blockquote id=""quote""><fieldset id=""quote""><font size=""" & strFooterFontSize & """ face=""" & strDefaultFontFace & """ id=""quote"">","[*quote]", 1, -1, 1)
fString = replace(fString, "</font id=""quote""></fieldset id=""quote""></blockquote id=""quote"">","[*/quote]", 1, -1, 1)
Add <legend> to cleanCode function ( again I have <fieldset>)
fString = replace(fString, "<legend>", "[legend]", 1, -1, 1)
fString = replace(fString, "</legend>", "[/legend]", 1, -1, 1)
fString = replace(fString, "<fieldset>", "[fieldset]", 1, -1, 1)
fString = replace(fString, "</fieldset>", "[/fieldset]", 1, -1, 1)
post.asp (there are 2 places "ReplyQuote" "and TopicQuote"
if strRqMethod = "ReplyQuote" then
TxtMsg = "[*quote][legend][*b][*i]Originally posted by " & chkString(rs("M_NAME"),"display") & "[/i][/b][/legend]" & vbNewline
TxtMsg = TxtMsg & "
" & rs("R_MESSAGE") & vbNewline
TxtMsg = TxtMsg & "[*/quote]"
end if
if strRqMethod = "TopicQuote" then
TxtMsg = "[*quote][legend][*b][*i]Originally posted by " & chkString(rs("M_NAME"),"display") & "[/i][/b][/legend]" & vbNewline
TxtMsg = TxtMsg & "
" & rs("T_MESSAGE") & vbNewline
TxtMsg = TxtMsg & "[*/quote]"
end if
Thats it
There are a few things you can do to the frameset and legend, but I've found that useing css is the best way to get the most out of them.
You can change the frameset border with css (style=""border:2px inset red;"")
you can move the legend around. default is left, then center or right <legend align="right">
You don't see these tags being used very often. That's probably why alot of folks don't know about them
As far a browser support W3 says NN 6.2 and IE 4, so you might want to check opera etc...