Browser information!

hmm - kan du ikke komme med lidt kode - så man kan se hvad det helt nøjagtigt er du vil? For det nemmeste vil umiddelbart være at lave det i javascript - så så enten redirecte vha. asp eller javascript. :)

/nuno

Dette er ikke til moi self.

Men browser informationen skal benyttes til at sætte en variabel længere ned på ASP-siden. ASP-siden er i forvejen sat til at benytte VBScript og man kan jo kun definerer én  scripttype i et ASP-dokument?

v/Ulf

Hejsa!
Prøv nedstående:
<%
Dim objBrowser
Set objBrowser = Server.CreateObject(\"MSWC.BrowserType\")
strBrowser = objBrowser.Browser
intVersion = objBrowser.version
Response.Write strBrowser
Response.Write intVersion
%>

/Kim

Står der ikke et eller andet i win.ini eller regedit.. SOm kan bruges.

bare lige en lille ting - du kan nu godt bruge flere scripttyper i dit asp-dokument. Det kræver bare, at du afslutter med den del du er igang med og så definerer en ny scripttype i den næste script del....

fx <% her bruges vbscript %>

<script language=\"jscript\"> her bruges jscript
</script>

...men det var bare lige en indskudt bem. :)

/nuno

Det nemmeste - og på længere sigt mest anvendelige - ville være at lave en browser sniffende funktion i en separat asp side, tilføje den til den aktive asp med en include og kalde funktionen der hvor du skal bruge den, men det er en anden snak.

Nu siger du jo hellere ikke hvilke browsere du er ude efter så jeg vil begrænse svaret til IE4, IE5, NS4 og NS6(5). Men ellers er det bare at lave en response.write på StrBrowser i denne kontekst for at få yderligere information, du kan selvfølgelig også lave en request på \"HTTP_ALL\", hvis du er rigtig nysgerrig.

Dim StrBrowser, StrMozilla, MozillaVer,IsNS, IsIE
Dim IE4,IE5,NS4,NS6

StrBrowser = Request.ServerVariables(\"HTTP_USER_AGENT\")

IsIE = Instr(1,StrBrowser,\"MSIE\")
If CBool(IsIE) Then
  Select Case Cint(Mid(StrBrowser,IsIE+5,1))
      Case 4:
      IE4 = True
      Case 5:
      IE5 = True
  End Select
End If

If Not IsIE Then
    StrMozilla = Split(Trim(Left(StrBrowser,12)),\"/\")
    MozillaVer = Split(StrMozilla(1),\".\")
    Select Case CInt(MozillaVer(0))
      Case 4 :
      NS4 = True
      Case 5 :
      NS6PR2 = True
      Case 6 :
      NS6 = True
    End Select
End If

Hvis du vil lave den som en function kan du jo bare indkapsle den og tilføje IE4,5,NS4,6 som byref parametre og bruge dem i din asp, så kan du lave den som en sub i stedet og optimere en smule.