%@language=vbscript%> <% Status = "" if Request.Form("action") = "submit" Then Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.RemoteHost = "scriptmail.intermedia.net" Mailer.FromAddress = Request.Form("Email") Mailer.FromName = Request.Form("FirstName") & " " & Request.Form("LastName") Mailer.AddRecipient "Recipient", "bill@babyholder.com" Mailer.Subject = "Find Distributor Form" messBody = "Requesting closest distributor for the foll. address:" & vbCrLf & vbCrLf messBody = messBody & "First Name: " & Request.Form("FirstName") & vbCrLf messBody = messBody & "Last Name: " & Request.Form("LastName") & vbCrLf messBody = messBody & "City: " & Request.Form("City") & vbCrLf messBody = messBody & "State/Province: " & Request.Form("State") & vbCrLf messBody = messBody & "Zip: " & Request.Form("Zip") & vbCrLf messBody = messBody & "Country: " & Request.Form("Country") & vbCrLf messBody = messBody & "Area Code: " & Request.Form("AreaCode") & vbCrLf messBody = messBody & "Email: " & Request.Form("Email") & vbCrLf & vbCrLf messBody = messBody & vbCrLf & "How did you hear about us:" & vbCrLf messBody = messBody & Request.Form("HeardAboutusHow") & vbCrLf & vbCrLf messBody = messBody & vbCrLf & "Anything else you would like to ask us:" & vbCrLf messBody = messBody & Request.Form("AnythingElse") & vbCrLf & vbCrLf Mailer.BodyText = messBody if Mailer.SendMail then Set Mailer = Nothing Response.Redirect "find-distributor-thanks.htm" else Status = "Mail send failure. Error was " & Mailer.Response end if end if %>