Much like the soulless face of Corporate America, we want to collect all of your information and use it to bend you to our will. Unlike Corporate America, we will give you something useful in return. Once you’ve entered your info, click the “Submit to Download” button and you’ll receive a copy of our priceless
(‘cause it’s free) white paperon marketing your business. It’s a quick read and might even give you some information you didn’t already know.
<%
function killChars(strWords)
dim badChars, newChars, i
badChars = array("select", ";", "--", "insert", "delete", "xp_", "=")
newChars = strWords
for i = 0 to uBound(badChars)
newChars = replace(newChars, badChars(i), "")
next
newChars = trim(replace(newChars,"'","''"))
killChars = newChars
end function
sub errorHandler
if err.number <> 0 then
Dim errMail
Set errMail = Server.CreateObject("CDONTS.NewMail")
errMail.From = "nhampton@columbus.rr.com"
errMail.To = "nhampton@columbus.rr.com"
errMail.Subject = "An error has occurred in the hansen cs mailing list page"
errMail.Body = "The error is: " & err.description & vbcrlf & vbcrlf
errMail.Send
set errMail = nothing
Response.Redirect "error.asp"
end if
end sub
%>
