%
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
%>
Walking in the Light 1-25
Section
I - Knowing the Will of God
|
Keep
your eyes upon Him
praying that He will show
you any deviation.
You are filled with the Light, you will see
as He sees.
When you are tempted
realize your eyes are not
on Christ.
Turn from evil
and
focus your eyes on the Lord, so you do not yield to sin.
You will be
filled with the Light which is His perfect will.
|
|