<% Class CssButton Public Name Public BackColor Public BorderColor Public Font Public FontColor Public Width Public Text Public Url Public MouseOverColor Public Function GenerateStyleTag() 'Create the STYLE tag Dim strStyle strStyle = "<STYLE TYPE=""text/css"">" & vbCrLf & _ "<!--" & vbCrLf & _ "#mybutton" & Name & " {border-style: inset; " & vbCrLf & _ " border-color: " & BorderColor & ";" & vbCrLf & _ " background-color: " & BackColor & ";" & vbCrLf & _ " width: " & Width & ";" & vbCrLf & _ " text-align: center; }" & vbCrLf & vbCrLf & vbCrLf & _ "A.buttontext" & Name & " {color: " & FontColor & "; " & vbCrLf & _ " text-decoration: none; " & vbCrLf & _ " font: " & Font & ";" & vbCrLf & _ " cursor: hand; }" & vbCrLf & vbCrLf & vbCrLf & _ ".buttonover" & Name & " {color: " & MouseOverColor & ";" & vbCrLf & _ " text-decoration: none; " & vbCrLf & _ " font: " & Font & ";" & vbCrLf & _ " cursor: hand; }" & vbCrLf & _ " // -->" & vbCrLf & _ "</STYLE>" GenerateStyleTag = strStyle End Function Public Function GenerateButtonTag() Dim strHTML strHTML = "<a href=""" & Url & """ class=""buttontext" & Name & """ " & _ "onMouseOver=""this.className='buttonover" & Name & "';"" " & _ "onMouseOut=""this.className='buttontext" & Name & "';"">" & _ vbCrLf & "<div id=""mybutton" & Name & """>" & vbCrLf & Text & vbCrLf & "</div></a>" & vbCrLf GenerateButtonTag = strHTML End Function End Class %>