<%
' Check to be sure http referral is not from denied source
if CheckReferrer(Application("DenyString")) = True Then
Response.Write Application("TheResponse")
Response.End
End if
' access allowed. Continue
function CheckReferrer(sPages)
Dim sRef, aRef
Dim lcv
CheckReferrer = False
aRef = Split(sPages, ",")
sRef = Cstr(Request.ServerVariables("HTTP_REFERER"))
For lcv = 0 To UBound(aRef)
if InStr(1,sRef, aRef(lcv), 1) <> 0 Then
CheckReferrer = True
Exit function
End if
Next
End function
%>
Online Imperial Club (OIC) for Imperial, Chrysler Imperial, and Chrysler
New Yorker Brougham Enthusiasts
Text
Version
Visitors currently online: <%=Application("Visitors")%>
