Function GetIp()
Dim DulIp,ProIP
DulIp=Request.ServerVariables("HTTP_X_FORWARDED_FOR")
ProIP=Request.ServerVariables("REMOTE_ADDR")
If DulIp="" Then
GetIp=ProIP
Else
&n