data om den besøgende

klient-oplysninger (opløsning etc) skal du rigtig nok have ud fra javascript. Server-oplysninger (ip, browser etc) kan du få fra ASP.

Kig på request.servervariabels

Du tænker på server-variable.

Du kan få en hel liste med følgende kode:

<table border="1">
<tr>
  <td><b>Variabek</b></td>
  <td><b>Værdi</b></td></tr>
<%
  for each key in request.servervariables
%>
<tr>
  <td><%=Key%></td>
  <td><%=Request.ServerVariables(Key)%></td></tr>
<%
  next
%>
</table>

-Søren

Det kan være en fordel at adskille de forskellige variable, hvis man vil gemme det i en database. F.eks. kan et script for IP se sådan ud:

<%
Dim sIPAddress
sIPAddress = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If sIPAddress="" Then sIPAddress = Request.ServerVariables("REMOTE_ADDR")
Response.Write(sIPAddress)
%>

Operativesystem mv. kan hentes med følgende:

<%
Dim strUserAgent   
strUserAgent = Request.ServerVariables("HTTP_USER_AGENT")
Response.Write strUserAgent
%>

Denne kan dog atter deles op i OS og browser....

ja det giver sig selv det siste razser, men tak.  tror det var hvad jeg skulle bruge, i kan dele pointene, så post et svar

Prøv denne til OS:

<%
Dim strUserAgent   
strUserAgent = Request.ServerVariables("HTTP_USER_AGENT")

If inStr(1, strUserAgent, "Windows 2003", 1) > 0 Or inStr(1, strUserAgent, "NT 5.2", 1) > 0 Then
        strOS = "Windows 2003"
    ElseIf inStr(1, strUserAgent, "Windows XP", 1) > 0 Or inStr(1, strUserAgent, "NT 5.1", 1) > 0 Then
        strOS = "Windows XP"
    ElseIf inStr(1, strUserAgent, "Windows 2000", 1) > 0 Or inStr(1, strUserAgent, "NT 5", 1) > 0 Then
        strOS = "Windows 2000"
    ElseIf inStr(1, strUserAgent, "Windows NT", 1) > 0 Or inStr(1, strUserAgent, "WinNT", 1) > 0 Then
        strOS = "Windows  NT 4"
    ElseIf inStr(1, strUserAgent, "Windows 95", 1) > 0 Or inStr(1, strUserAgent, "Win95", 1) > 0 Then
        strOS = "Windows 95"
    ElseIf inStr(1, strUserAgent, "Windows ME", 1) > 0 Or inStr(1, strUserAgent, "Win 9x 4.90", 1) > 0 Then
        strOS = "Windows ME"
    ElseIf inStr(1, strUserAgent, "Windows 98", 1) > 0 Or inStr(1, strUserAgent, "Win98", 1) > 0 Then
        strOS = "Windows 98"
    ElseIf Instr(1, strUserAgent, "Windows 3.1", 1) > 0 or Instr(1, strUserAgent, "Win16", 1) > 0 Then
        strOS = "Windows 3.x"
    ElseIf Instr(1, strUserAgent, "Windows CE", 1) > 0 Then
        strOS = "Windows CE"
End if
Response.Write strOS

%>

... hvis du vil give point, bør du klikke på Accepter ;-)

Skynder mig da lige at smide et svar! ;-)