% Dim intSize, intMaxLength, intRows, intCols, strStyle, strTextAreaStyle, strSubmitStyle 'SUB BrowserCheck() Dim Browser Browser = Request.ServerVariables("HTTP_USER_AGENT") IF InStr(Browser, "MSIE") THEN intSize = 34 intMaxLength = 30 intRows = 4 intCols = 40 strStyle = " style=""FONT-SIZE: 8pt; BORDER-LEFT-COLOR: #339966; BORDER-BOTTOM-COLOR: #339966; BORDER-TOP-STYLE: solid; BORDER-TOP-COLOR: #339966; FONT-FAMILY: Arial; BORDER-RIGHT-STYLE: solid; BORDER-LEFT-STYLE: solid; BORDER-RIGHT-COLOR: #339966; BORDER-BOTTOM-STYLE: solid"" " strTextAreaStyle = " style=""FONT-SIZE: 8pt; BORDER-LEFT-COLOR: #339966; BORDER-BOTTOM-COLOR: #339966; BORDER-TOP-STYLE: solid; BORDER-TOP-COLOR: #339966; FONT-FAMILY: Arial; BORDER-RIGHT-STYLE: solid; BORDER-LEFT-STYLE: solid; BORDER-RIGHT-COLOR: #339966; BORDER-BOTTOM-STYLE: solid""" strSubmitStyle = "style=""FONT-SIZE: 8pt; BORDER-LEFT-COLOR: Gray; LEFT: -2px; BORDER-BOTTOM-COLOR: Gray; BORDER-TOP-STYLE: double; BORDER-TOP-COLOR: Gray; FONT-FAMILY: Arial; BORDER-RIGHT-STYLE: double; BORDER-LEFT-STYLE: double; TOP: 19px; BORDER-RIGHT-COLOR: Gray; BORDER-BOTTOM-STYLE: double;"" tabindex=""0"" " ELSE intSize = 14 intMaxLength = 30 intRows = 3 intCols = 29 strStyle = " " strTextAreaStyle = " " strSubmitStyle = " " END IF 'END SUB 'CALL BrowserCheck() %>
![]() |
20 Authority Drive, Fitchburg, MA 01420 Phone: 978-348-1989 | Fax: 978-348-1128 | info@geosearchinc.com |
|