<% 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 %> For a Friend

Home \ Online Books \ For a Friend | --Next>

For a Friend
by Kelly L. Segraves

The story of a man who talks with God, and discovers the true meaning of life in Him.  Coming into the Lord's presence, this man learns what the true will of God is for the Christian and what it means to dwell in Him.  Thus, he gains from God's perspective, the true meaning of love,
For a Friend.