<%
function hideFromBots(strE)
dim bots, re, c
bots = Array("^EmailSiphon","^EmailWolf","^ExtractorPro","^Mozilla.*NEWT","^Crescent","^CherryPicker","^[Ww]eb[Bb]andit","^WebEMailExtrac.*","^NICErsPRO","^Telesoft","^Zeus.*Webster","^Microsoft.URL","^Mozilla/3.Mozilla/2.01","^Xenu.*Link.*Sleuth.*","^EmailCollector")
for each spambot in bots
Set re = new RegExp
re.IgnoreCase = false
re.global = false
re.Pattern = spambot
if re.Test(request.servervariables("HTTP_USER_AGENT")) then c=c+1
next
if c>0 then
hideFromBots="Email address witheld"
else
hideFromBots=strE
end if
end function
%>
CCMS Ordering Information
 |
Ordering Information |
Please contact us,
and mention this website:
Creative Christian
Media Service
7026
E Kiva Ave
Mesa, AZ 85208
1-800-575-2267
Fax 480-641-8048
____________________________________
If you have any questions
please send e-mail to:
terrsher@mac.com
or
ccms@parentcompany.com.
____________________________________
CCMS Start Page / Topic's Cross-Reference List / Complete List / Scripture Reference List
CCMS
7026 E Kiva Ave
Mesa, AZ 85208 |
1-800-575-2267
Fax 480-641-8048 |