<%@language=vbscript%> <% if Request.Form("action") = "submit" Then Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.RemoteHost = "correo.kinebit.com" Mailer.FromAddress = Request.Form("email") Mailer.FromName = Request.Form("name") Mailer.AddRecipient "Recipient", "info@kinebit.com" Mailer.Subject = "Testing ASPMail" messBody = "Clients information is below" & vbCrLf & "--------------------------------------------------------------" & vbCrLf messBody = messBody & "Name: " & Request.Form("name") & vbCrLf messBody = messBody & "Company: " & Request.Form("company") & vbCrLf messBody = messBody & "Address: " & Request.Form("address") & vbCrLf messBody = messBody & "E-mail: " & Request.Form("email") & 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 "http://www.kinebit.com" else Response.Write "Mail send failure. Error was " & Mailer.Response end if end if %>