<html>
<head>
<title>Info</title>
<!--
============================================================================
This script can be used freely as long as all copyright messages are intact.
Copyright (c) 2003
www.opfinderen.dk============================================================================
//-->
</head>
<body>
<%
Info = LCase(Request.ServerVariables("HTTP_USER_AGENT"))
IP = Request.ServerVariables("REMOTE_ADDR")
If Instr(Info, "opera") then
Browser = "Opera"
ElseIf Instr(Info, "netscape") Then
Browser = "Netscape"
ElseIf Instr(Info, "msie") Then
If InStr(Info, "6.0") Then
Browser = "Internet Explorer 6.0"
ElseIf InStr(Info, "5.0") Then
Browser = "Internet Explorer 5.0"
Else
Browser = "Internet Explorer 4.0"
End If
Else
Browser = "Ukendt"
End If
If Instr(Info, "95") Then
Platform = "Win95"
ElseIf Instr(Info, "98") Then
Platform = "Win98"
ElseIf Instr(Info, "win 9x") Then
Platform = "WinME"
ElseIf Instr(Info, "nt") Then
Platform = "WinNT"
ElseIf Instr(Info, "nt 5.0") Then
Platform = "Win2K"
ElseIf Instr(Info, "linux") Then
Platform = "Linux"
ElseIf Instr(Info, "mac") Then
Platform = "Mac"
Else
Platform = "Ukendt"
End If
Set oServerXMLHTTPRequest = Server.CreateObject("Msxml2.ServerXMLHTTP")
URL = "
http://www.ripe.net/perl/whois?form_type=simple&full_query_string=&searchtext=" & IP & "&do_search=Search"
oServerXMLHTTPRequest.open "GET", URL, False
oServerXMLHTTPRequest.Send
Kilde = LCase(oServerXMLHTTPRequest.ResponseText)
Arr_Kilde = Split(Kilde, "country: ")
Land = Left(Arr_Kilde(1), 2)
Arr_Kilde = Split(Kilde, "address: ")
Arr_Adresse = Split(Arr_Kilde(3), " ")
Bynavn = Replace(Replace(Replace(Arr_Adresse(1), "oe", "ø"), "ae", "æ"), "aa", "å")
Arr_Kilde = Split(Kilde, "<u>origin</u>")
Arr_ISP = Split(Arr_Kilde(UBound(Arr_Kilde) - 1), "descr: ")
ISP = Arr_ISP(UBound(Arr_ISP))
Response.Write "<b>IP:</b> " & IP & "<br>"
Response.Write "<b>Platform:</b> " & Platform & "<br>"
Response.Write "<b>Browser:</b> " & Browser & "<br>"
Response.Write "<b>Skærm:</b> <script type='text/javascript'>document.write(screen.width + ' x ' + screen.height + ' pixels')</script><br>"
Response.Write "<b>ISP:</b> <font style='text-transform:capitalize;'>" & ISP & "</font><br>"
Response.Write "<b>By:</b> <font style='text-transform:capitalize;'>" & Bynavn & "</font><br>"
Response.Write "<b>Land:</b> <font style='text-transform:uppercase;'>" & Land & "</font>"
%>
</body>
</html>
