Detect IP

skod dit if-tjek og din første request. Du viser besøgendes ip-adresse således:

<b>Your IP address is:</b>
<%Response.Write(Request.ServerVariables("remote_addr"))%>

som du også rigtigt nok er inde på

'Find brugers IP-adressse

Dim IPAdresse

'Hvis brugeren ikke benytter en proxy - hent IP-adresse
If Request.ServerVariables("HTTP_X_FORWARDED_FOR") = "" OR InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), "unknown") > 0 Then
IPAdresse = Request.ServerVariables("REMOTE_ADDR")
   
'Hvis bruger er bag en multi-proxy, hent kun den først IP-adresse i listen
ElseIf InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ",") > 0 Then
IPAdresse = Mid(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), 1, InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ",")-1)
       
'Benyt browserens IP-adresse, ikke IP fra proxyserveren
Else
IPAdresse = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
End If