<%@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
%>
|| Entourage Management ||
