%
dim strBrowser
dim intWidth, intHeight
dim strUserAgent
strUserAgent = Request.ServerVariables("HTTP_USER_AGENT")
' If you need to see what is actually being returned, enable these writes
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'response.write "User Agent: " & strUserAgent & "
"
'response.write "Broswer Detected: " & strBrowser & "
"
'response.write "Browser Version: " & strVersion & "
"
'response.write "
|
||
|