Classic ASP <object> and Windows Versions / Request.Servervariables("HTTP_USER_AGENT"

[ahoodin]

I am updateing an ASP Classic website. ASP is definitely not my forte, but I have done a little.

I am trying to load objects one way for Windows 7+ and another way for Windows XP.
I use the CODEBASE for Windows XP, and not for Windows 7. Regardless of OS, the
first method appears to be used by the browser.

#1 Why is this?
#2 Is there a case where the browser downloads the control from the server if the CODEBASE tag is left off?

My understanding is that if you use the CODEBASE tag, then the browser checks the control version and if an old
version exists on the Client, downloads it from the server.

Dim strAgentA
Dim aryAgentElemsA, strOSA

strAgentA = Request.Servervariables("HTTP_USER_AGENT")
aryAgentElemsA = Split(strAgentA, ";")
strOSA = aryAgentElemsA(2)

If strcomp(trim(strOSA),"Windows NT 6.1") = 0 Then
%>
<object ID="oPersonalInbox"> 
CLASSID="CLSID:0006F063-0000-0000-C000-000000000046" 
HEIGHT="100%"
WIDTH="100%">
<param NAME="View" VALUE="">
<param NAME="Folder" VALUE="Inbox">
<param NAME="Namespace" VALUE="MAPI">
<param NAME="Restriction" VALUE="">
<param NAME="DeferUpdate" VALUE="0">
</object>

<%
else
%>
<object ID="oPersonalInbox"> 
CLASSID="CLSID:0006F063-0000-0000-C000-000000000046" 
CODEBASE="outlctlx.CAB#ver=9,0,0,3203"
HEIGHT="100%"
WIDTH="100%">
<param NAME="View" VALUE="">
<param NAME="Folder" VALUE="Inbox">
<param NAME="Namespace" VALUE="MAPI">
<param NAME="Restriction" VALUE="">
<param NAME="DeferUpdate" VALUE="0">
</object>
<%
end if

[ahoodin]

hello anybody out there?

[PeejAvery]

Sorry, these forums are very little traffic now-a-days. I personally check in about once a week now.

If only the first <object> is initializing regardless of OS, then the strcomp(trim(strOSA),"Windows NT 6.1") is always returning 0.

What exactly does strAgentA = Request.Servervariables("HTTP_USER_AGENT") return?

[ahoodin]

No worries PeeJavery, I am just happy to have a response, Thanks mate. Thanks very much!

Request.Servervariables("HTTP_USER_AGENT") returns a string with semi-colon delimited text as such:
XP Box:

Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; Trident/4.0; .NET CLR 2.0.50727; .NET CLR 3.0.4506.2152; .NET CLR 3.5.30729; .NET4.0C; .NET4.0E; InfoPath.3; .NET CLR 1.1.4322)

Windows 7 Box:

  
Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 6.1; WOW64; Trident/4.0; SLCC2; .NET CLR 2.0.50727; .NET CLR 3.5.30729; .NET CLR 3.0.30729; .NET4.0C; .NET4.0E; InfoPath.3)

The following code displays "Windows 7" if viewed by a browser on a Windows 7 Client,
otherwise "Unknown".

	Dim strAgent
	strAgent = Request.Servervariables("HTTP_USER_AGENT")
	Dim aryAgentElems, strOS, strOK
	strOK = "False"
	aryAgentElems = Split(strAgent, ";")
	strOS = aryAgentElems(2)
        If strcomp(trim(strOS),"Windows NT 6.1") = 0 Then
          Response.Write("Windows 7")
        else 
          Response.Write("Unknown")
        End if

As you can see split converts the string into an array using the semicolon to parse out "tokens" or fields.

If I plug the code with the <object> tag, it should work the same way, but it doesn't
appear to. Why is that?

That is my question.

I appreciate the help!

[PeejAvery]

Rather than splitting up the string, have you tried just doing a string search?

<% If InStr(strAgent, "Windows NT 6") Then %>
...
<% Else %>
...
<% End If %>