<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% dim strName, strCompany, strPhone, strEmail, strMessage dim strBody, sendAddress, fromAddress, subject strName = request.form("txtName") strCompany = request.form("txtCompany") strPhone = request.form("txtPhone") strEmail = request.form("txtEmail") strMessage = request.form("txtMessage") sendAddress = "info@royallmedia.com" fromName = "RMI Website" fromAddress = "info@royallmedia.com" subject = "Planet RMI Postcard" ' message body strBody = "Name: " & strName & vbCRLF strBody = strBody & "Company: " & strCompany & vbCRLF strBody = strBody & "Phone: " & strPhone & vbCRLF strBody = strBody & "Email: " & strEmail & vbCRLF strBody = strBody & "Message: " & strMessage & vbCRLF Set Mailer = Server.CreateObject("Persits.MailSender") Mailer.Host = "smtp.royallmedia.com" Mailer.FromName = fromName Mailer.From = fromAddress Mailer.AddAddress sendAddress Mailer.Subject = subject Mailer.Body = strBody Mailer.Username = "info@royallmedia.com" mailer.Password = "sysgod12" ' catch errors On Error Resume Next Mailer.Send If Err <> 0 Then ' error occurred Response.Write "isSent=false&descript="&Err.Description else Response.Write "isSent=true" End If %>