%@LANGUAGE="VBSCRIPT"%> <%OPTION EXPLICIT%> <% Response.AddHeader "Pragma", "no-cache" Response.ExpiresAbsolute = Now() - 1 Response.AddHeader "cache-control", "must-revalidate, private, no-cache" dim oDB, oRS, sTest Set oDb = Server.CreateObject("FurrySys.DB") if oDb.System("IpCheck.xml") then if oDb.CmdSetup("up_IPCheck") = 1 then oDb.CmdParamAdd isErr(Request.ServerVariables("REMOTE_ADDR")),2,100,"vIP" oDb.CmdParamAdd isErr(Request.ServerVariables("HTTP_USER_AGENT")),2,200,"vBrowser" oDb.CmdParamAdd isErr(Request.ServerVariables("SCRIPT_NAME")),2,100,"vPage" oDb.CmdParamAdd isErrRef(Request.ServerVariables("HTTP_REFERER")),2,100,"vRef" oDb.CmdParamAdd isErr(Session.SessionID),2,200,"vSession" sTest = oDb.CmdExecute end if end if Set oDb = Nothing function isErrRef(sInpt) if len(sInpt) = 0 then sInpt = "Typed" end if isErrRef = sInpt end function function isErr(sInpt) if len(sInpt) = 0 then sInpt = "Blocked" end if isErr = sInpt end function %>