<% 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 %> Without Excuse

Home \ Online Books \ Without Excuse | --Next>


Without Excuse
by Kelly L. Segraves

The first in a series of three allegorical books which present the will of God in three distinct views. This is the story of a man who dies and debates with God over his soul and loses. A frightening tale of truth and the end that awaits those who choose to reject God even as they stand before Him in judgement and find that they too, are Without Excuse.