<% Dim bcObj Set bcObj = Server.CreateObject("MSWC.BrowserType") Dim Var, ua, Browser, System Set Var = Request.ServerVariables ua = Var("HTTP_USER_AGENT") If Instr(ua, "MSIE") Then If 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, "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 Else Browser= "Unknown" End If If Instr(ua, "Windows 95") or Instr(ua, "Win95") Then System = "Windows 95" Elseif Instr(ua, "Windows 98") or Instr(ua, "Win98") Then System = "Windows 98" Elseif Instr(ua, "Windows 3.1") Then System = "Windows 3.x/Windows NT 3.x" Elseif Instr(ua, "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, "X11") Then System = "UNIX" End If %>

<% If Instr(Browser, "Netscape Navigator") Then %> <% Else %> <% End If %>
		Kontakta oss Sister fungerar som koordinator för forskningsprogrammet. Adress: SISTER Drottning Kristinas väg 33 D 114 28 Stockholm Telefon växel: 08/545 252 60 Fax: 08-24 52 70 Besöksadress: Drottning Kristinas väg 33 D Kontaktperson är Ulf Sandström Forskningsledare Telefon: 08/545 252 63 E-mail: ulf.sandstrom@sister.nu