% dim ip_address,strIP,sql dim conn,rsRecords session("ip_address")=request.ServerVariables("REMOTE_ADDR") ip_address=session("ip_address") %>