function GetWebbLasare()
Dim strWebblasare
strWebblasare = request.servervariables("HTTP_USER_AGENT")

Dim bolAnnan, bolNN, bolIE, strOS
bolAnnan = true
GetWebbLasare = "Okänd"
if left(strWebblasare, 7) = "Mozilla" then
bolAnnan = false
end if

dim aTermerParantes, strParantes

if bolAnnan = false then
if instr(1, strWebblasare, "MSIE") > 1 then
bolIE = true
bolNN = false
GetWebbLasare = "IE"
else
bolIE = false
boNN = true
GetWebbLasare = "NN"
end if
end if
end function