<% Function InputFilter(userInput) Dim newString, regEx Set regEx = New RegExp regEx.Pattern = "([^A-Za-z0-9@.' _-]+)" regEx.IgnoreCase = True regEx.Global = True newString = regEx.Replace(userInput, "") Set regEx = nothing InputFilter = newString End Function %> ASP Mailer Form

ASP Mailer Form Test

Mail To: <% = Request.QueryString("name") %>

<% Set Mailer = Server.CreateObject("SMTPsvg.Mailer") session("name")=client rem change this RemoteHost to a valid SMTP address before testing Mailer.RemoteHost = "localhost" Mailer.FromName = Request.QueryString("bus_name") Mailer.FromAddress = Request.QueryString("bus_email") Mailer.AddRecipient "Bill", "billw@1awsm.com" Mailer.AddCC "Bill Wright", "bwright@1awsm.com" Mailer.Subject = "Basic Business AD Re: SWFClassifieds.com" Mailer.BodyText = "Business Information:" Mailer.BodyText = Request.QueryString("bus_name") Mailer.BodyText = Request.QueryString("bus_contact") Mailer.BodyText = Request.QueryString("bus_email") if not Mailer.SendMail then Response.Write " Mailing Failed... Error is:
" Response.Write Mailer.Response else Response.Redirect "basic_ad_listing2.asp?name=" & Request.QueryString("bus_name") & "&contact=" & Request.QueryString("bus_contact") & "&email=" & Request.QueryString("bus_email") & "&cat_id=" & Request.QueryString("cat_id") & "&subcat_id=" & Request.QueryString("subcat_id") end if Response.Write "This component expires: " & Mailer.Expires & "

" %> Mail To: <% = Request.QueryString("name") %>