Tall problem
Jeg skal sjekke en version av browseren.Scriptet jeg har sier at versionen er 4.5 i netscape men hvis jeg sjekker den mot en 4.7 så sier den at den er større. Har prøvd med Cint og Clng men det hjelper ikke noe hva er feil?
<%
Dim strUA
strUA = Request.ServerVariables("HTTP_USER_AGENT")
'---------------------
'Sjekker browser typen
'---------------------
If (InStr(strUA, "MSIE")) AND (InStr(strUA, "Opera") = 0) Then
intVersion = Trim(Mid(strUA, InStr(strUA, "MSIE") + 5, 4))
If (Mid(intVersion, 4, 1) = ";") Then
intVersion = Trim(Mid(intVersion, 1, 3)) + "0"
End If
strBrowserType = "Explorer"
strBrowserVersion = intVersion
Session("Browser") = "Explorer"
Session("BrowserVersion") = intVersion
Else
If InStr(strUA, "Mozilla") Then
If InStr(strUA, "compatible;") = 0 _
And InStr(strUA, "Opera") = 0 Then
intVersion = Trim(Mid(strUA, InStr(strUA, "/") + 1, 4))
If(intVersion = "5.0") Then
intVersion = Trim(Mid(strUA, InStr(strUA, "6/") + 2, 4))
End If
strBrowserType = "Netscape"
strBrowserVersion = intVersion
Session("Browser") = "Netscape"
Session("BrowserVersion") = intVersion
Else
If InStr(strUA, "Opera") Then
intVersion = Trim(Mid(strUA, InStr(strUA, "Opera") + 5, 5))
strBrowserType = "Opera"
strBrowserVersion = intVersion
Else
strBrowserType = "Ukjent"
strBrowserVersion = "Ukjent"
End If
End If
End If
End If
If session("Browser") = "Netscape" Then
If Cint(session("BrowserVersion")) < 4.7 Then
Response.Write "Netscape - Du har større en 4.7"
Elseif Cint(session("BrowserVersion")) > 4.7 Then
Response.Write "Netscape - Du har mindre en 4.7"
End if
End if
If session("Browser") = "Explorer" Then
If Cint(session("BrowserVersion")) < 4.7 Then
Response.Write "Explorer - Du har større en 4.7"
Elseif Cint(session("BrowserVersion")) > 4.7 Then
Response.Write "Explorer - Du har mindre en 4.7"
End if
End if
'--------------------
'browser sjekk slutt.
'--------------------
%>
