<% 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("cc")%>

<% 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 = "SWFClassifieds.com" Mailer.FromAddress = "info@swfclassifieds.com" Mailer.AddRecipient "SWFClassifieds.com", "info@swfclassifieds.com" Mailer.AddBCC "undisclosed", Request.QueryString("cc") & ";" Mailer.Subject = Request.QueryString("subject") Mailer.BodyText = Request.QueryString("body") if not Mailer.SendMail then Response.Write " Mailing Failed... Error is:
" Response.Write Mailer.Response else Response.Redirect "email_list.asp" end if Response.Write "This component expires: " & Mailer.Expires & "

" %>