%@language=vbscript%> <% if Request.Form("action") = "submit" Then Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.RemoteHost = "mail.toofansounds.com" Mailer.FromAddress = Request.Form("dj@toofansounds.com") Mailer.FromName = Request.Form("Customer") Mailer.AddRecipient "Recipient", "dj@toofansounds.com" Mailer.Subject = "Customer Contact" messBody = "Clients information is below" & vbCrLf & "--------------------------------------------------------------" & vbCrLf messBody = messBody & "firstname: " & Request.Form("firstname") & vbCrLf messBody = messBody & "lastname: " & Request.Form("lastname") & vbCrLf messBody = messBody & "email: " & Request.Form("email") & vbCrLf messBody = messBody & "phone: " & Request.Form("phone") & vbCrLf & vbCrLf messBody = messBody & "Event: " & Request.Form("Event") & vbCrLf & vbCrLf messBody = messBody & "month: " & Request.Form("month") & vbCrLf & vbCrLf messBody = messBody & "date: " & Request.Form("date") & vbCrLf & vbCrLf messBody = messBody & "year: " & Request.Form("year") & vbCrLf & vbCrLf messBody = messBody & "location: " & Request.Form("location") & vbCrLf & vbCrLf messBody = messBody & "city: " & Request.Form("city") & vbCrLf & vbCrLf messBody = messBody & "state: " & Request.Form("St") & vbCrLf & vbCrLf messBody = messBody & "inquiry: " & Request.Form("inquiry") & vbCrLf & vbCrLf messBody = messBody & vbCrLf & "Message:" & vbCrLf messBody = messBody & Request.Form("message") & vbCrLf & vbCrLf Mailer.BodyText = messBody if Mailer.SendMail then Set Mailer = Nothing Response.Redirect "Thanks.html" else Response.Write "Mail send failure. Error was " & Mailer.Response end if end if %>
![]() |
|||||||||||
|
|||||||||||
|
|