<% If Request.Form("SendThis") = "Yes" Then %>

Greetings from Bankrate.com,

Thanks for your interest and we hope you continue to read Bankrate and find us your source for independent, objective financial information. Every letter is sent to the appropriate department, but due to the volume of e-mail we get, we cannot guarantee a personal answer. -- Bankrate's editorial team

P.S. A copy of this letter has been e-mailed to you.

You wrote:

<% =Request.Form("question") %>

<% mailBody = "Greetings from Bankrate.com's editors," & chr(10) & chr(10) mailBody = mailbody & "Thanks for your interest and we hope you continue to enjoy the service we provide and find us your source for independent, objective financial information!" & chr(10) & chr(10) mailBody = mailbody & "Thank you from" & chr(10) mailBody = mailbody & "Bankrate.com" & chr(10) & chr(10) mailBody = mailBody & "You wrote:" & chr(10) & chr(10) mailBody = mailBody & Request.Form("question") 'Mailer script 'for not allowing spam to sumbit form dim spamStop1 spamStop1 = trim(request.form("EmailAddress")) if spamStop1 <> "" then response.redirect "ask_editors.asp" end if set Mailer = Server.CreateObject("CDO.Message") Set obj_conf = CreateObject("CDO.Configuration") Set obj_fields = obj_conf.Fields ' SENDUSING = 1 MEANS USE LOCAL SMTP SERVICE obj_fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1 ' USER MUST HAVE CHANGE RIGHTS TO THE PICKUP DIRECTORY obj_fields("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory") = "c:\Inetpub\mailroot\Pickup" obj_fields.Update Set Mailer.Configuration = obj_conf Mailer.From = "editors@bankrate.com" Mailer.To = Request.Form("email") Mailer.Subject = "Thank you for contacting Bankrate" Mailer.TextBody = mailBody Mailer.Send set Mailer = Nothing set obj_conf = Nothing set Mailer = Server.CreateObject("CDO.Message") Set obj_conf = CreateObject("CDO.Configuration") Set obj_fields = obj_conf.Fields ' SENDUSING = 1 MEANS USE LOCAL SMTP SERVICE obj_fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1 ' USER MUST HAVE CHANGE RIGHTS TO THE PICKUP DIRECTORY obj_fields("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory") = "c:\Inetpub\mailroot\Pickup" obj_fields.Update Set Mailer.Configuration = obj_conf Mailer.From = Request.Form("email") Mailer.To = Request.Form("topic") Mailer.Subject = Request.Form("topic") Mailer.TextBody = Request.Form("name") & " writes: " & chr(10) & chr(10) & Request.Form("question") Mailer.Send set Mailer = Nothing set obj_conf = Nothing %> <% Else %>

Write to Bankrate editors

Thanks for your interest in Bankrate. This form will generate a letter to Bankrate editors, and an automated e-mail back to you. You can comment on a story, suggest a story idea, request information or inquire about reprint or licensing rights.

<% End If %>