
<%

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
%>