Nyare mac OS och safari browser?

får fram detta när jag använder

Request.ServerVariables("HTTP_USER_AGENT") &"<br>" 
Request.ServerVariables("HTTP_UA_OS")

Mac PPC - Netscape Navigator Mozilla/5.0 (Macintosh; U; PPC Mac OS X; en-us) AppleWebKit/106.2 (KHTML, like Gecko) Safari/100.1

HEJ!

Det är väl endast att trycka in en lämplig sträng?

ElseIf Instr(ua, "Mozilla/5") Then
Browser = "Netscape Navigator Mozilla 5.x"

resp.

ElseIf Instr(os, "Safari") Then
System = "Safari"

Det finns ju ett "hål i koden" mellan NN4 och NN6, varför har det inte fyllts?

Inte en aning varför det är ett hål där.
Men med den koden så blir ju operativsystemet webbläsaren och tvärtom.

HEJ!

Andra elseif ska givetvis vara os, men att de är växlade förstår jag inte? Byt dem isåfall.

Du har 'oa' på några ställen, är det rätt, eller du redovisar inte var du får den från helt enkelt?

J.N. skrev:

Det finns ju ett "hål i koden" mellan NN4 och NN6, varför har det inte fyllts?

Netscape 5 finns inte, så enkelt är det med det.

Ingen som vet hur man kan få in så det står Mac OS X som OS och Safari som browser:

Mac PPC - Netscape Navigator Mozilla/5.0 (Macintosh; U; PPC Mac OS X; en-us) AppleWebKit/106.2 (KHTML, like Gecko) Safari/100.1

@nders du dominerar som vanligt ;)

Det här borde funka (hoppas att det var okej att jag indenterade koden en aning, man vill ju gärna kunna läsa den...)

' Hämta användarens webbläsare.
Function getBrowser()
	Dim Browser, ua

	ua = Request.ServerVariables("HTTP_USER_AGENT")

	If Instr(ua, "MSIE") Then
		If Instr(ua, "MSIE 6.") Then
			Browser = "Microsoft Internet Explorer 6.x"
		ElseIf Instr(ua, "MSIE 5.") Then
			Browser = "Microsoft Internet Explorer 5.x"
		ElseIf Instr(ua, "MSIE 4.") Then
			Browser = "Microsoft Internet Explorer 4.x"
		ElseIf Instr(ua, "MSIE 3.") Then
			Browser = "Microsoft Internet Explorer 3.x"
			If Instr(ua, "MSIE 3.02") Then
				Browser = "Microsoft Internet Explorer 3.02"
			End If
		Else
			Browser = "Microsoft Internet Explorer"
		End If
	ElseIf Instr(ua, "Mozilla") and Instr(ua, "compatible") = 0 Then
		If Instr(ua, "Netscape6") Then
			Browser = "Netscape Navigator 6.x"
		ElseIf Instr(ua, "Mozilla/4") Then
			Browser = "Netscape Navigator 4.x"
		ElseIf Instr(ua, "Mozilla/3") Then
			Browser = "Netscape Navigator 3.x"
		Else
			Browser = "Netscape Navigator"
		End If
	ElseIf Instr(ua, "Opera") Then
		Browser = "Opera"
	Elseif Instr(ur, "Safari") Then
		Browser = "Safari"
	End If

getBrowser = Browser
End Function

'Hämta användarens operativsystem.
Function getOS()
	Dim System, ua, os

	ua = Request.ServerVariables("HTTP_USER_AGENT")
	os = Request.ServerVariables("HTTP_UA_OS")

	If Instr(ua, "Windows 95") Or Instr(ua, "Win95") Then
		System = "Windows 95"
	ElseIf Instr(ua, "Win 9x 4.90") Then
		System = "Windows ME"
	ElseIf Instr(ua, "Windows 98") Or Instr(ua, "Win98") Then
		System = "Windows 98"
	ElseIf Instr(ua, "Windows 3.1") Or Instr(os, "Win16") Then
		System = "Windows 3.x/Windows NT 3.x"
	ElseIf Instr(ua, "NT 5.1") Or Instr(oa, "NT 5.1") Then
		System = "Windows XP"
	ElseIf Instr(ua, "NT 5") Or Instr(oa, "NT 5") Then
		System = "Windows 2000"
	ElseIf Instr(ua, "NT") Or Instr(oa, "NT") Then
		System = "Windows NT"
	ElseIf Instr(ua, "Mac") Then
		System = "Mac"
		If Instr(ua, "PowerPC") Or Instr(ua, "PPC") Then
			System = "Mac PPC"
		ElseIf Instr(ua, "68000") Or Instr(ua, "68K") Then
			System = "Mac 68K"
		ElseIf Instr(ua, "Mac OS X") Then
			System = "Mac OS X"
		End If
	ElseIf Instr(ua, "Linux") Then
		System = "Linux"
	ElseIf Instr(ua, "X11") Then
		System = "UNIX"
	End If
getOS = System
End Function

Mvh

HEJ!

@nders skrev:

Netscape 5 finns inte, så enkelt är det med det.

Nä, det förstås, jag var mer ute efter den enkla testen att kopiera en rad som ser nästan likadan ut och justera till de behov man önskar.

Vi får säkert se en accepterande av ditt svar snart ;)