---
title: "Nyare mac OS och safari browser?"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/98256-nyare-mac-os-och-safari-browser"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Bosse168"
published: "2004-02-26T15:19:37.000Z"
updated: "2004-02-26T17:49:12.000Z"
replies: 8
views: 323
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/98256-nyare-mac-os-och-safari-browser"
---

# Nyare mac OS och safari browser?

## #1 — Bosse168, 2004-02-26T15:19Z

Hur gör man för att få in nyare mac OS och webbläsaren Safari i detta scriptet:

```
' 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"
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"
End If
ElseIf Instr(ua, "Linux") Then
System = "Linux"
ElseIf Instr(ua, "X11") Then
System = "UNIX"
End If

getOS = System
End Function
```

Permalänk: https://www.webforum.nu/p/98256

## #2 — Bosse168, 2004-02-26T15:26Z

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

Permalänk: https://www.webforum.nu/p/1286454

## #3 — J.N., 2004-02-26T15:59Z

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?

Permalänk: https://www.webforum.nu/p/1286479

## #4 — Bosse168, 2004-02-26T16:05Z

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.

Permalänk: https://www.webforum.nu/p/1286483

## #5 — J.N., 2004-02-26T16:14Z

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?

Permalänk: https://www.webforum.nu/p/1286489

## #6 — @nders, 2004-02-26T16:45Z

> **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.

Permalänk: https://www.webforum.nu/p/1286505

## #7 — Bosse168, 2004-02-26T16:49Z

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 ;)

Permalänk: https://www.webforum.nu/p/1286506

## #8 — @nders, 2004-02-26T16:56Z

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

Permalänk: https://www.webforum.nu/p/1286510

## #9 — J.N., 2004-02-26T17:49Z

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 ;)

Permalänk: https://www.webforum.nu/p/1286535

---

Tråden på webben: https://www.webforum.nu/amne/asp/98256-nyare-mac-os-och-safari-browser