%@ Language=VBScript %> <% if request("Contact_Name") <> "" then Set pdmail=server.createobject("Persits.MailSender") pdmail.Host="mail.takaramonroe.com" pdmail.From=request("Contact_Email") pdmail.Username = "contact@takaramonroe.com" pdmail.Password = "password" pdmail.AddAddress "info@takaramonroe.com" pdmail.FromName=request("Contact_Name") pdmail.Subject="Takara Contact" pdmail.Body="Name : " & request("Contact_Name") & CHR(13) & "Email Address : " & request("Contact_Email") & CHR(13) & "Comments : " & request("Contact_Comments") & CHR(13) & "Phone : " & request("Contact_Phone") On Error Resume Next pdmail.Send If Err <> 0 Then Response.Write "An error occurred: " & Err.Description End If set pdmail=nothing end if %>