% if Request("ACT") = "OK" then Dim i Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = "mail.vnn.vn" 'Mail.Host = "172.16.250.1" Mail.Port = 25 Mail.From = Request("txtFName") Mail.From = Request("txtLName") Mail.From = Request("txtCompany") Mail.From = Request("txtAddress") Mail.From = Request("txtPhone") Mail.From = Request("txtFax") Mail.From = Request("txtEmail") Mail.Subject = "Contact us" Mail.Body = "First Name: " & Request("txtFName") & chr(13) & chr(10) & _ "Last Name: " & Request("txtLName") & chr(13) & chr(10) & _ "Company: " & Request("txtCompany") & chr(13) & chr(10) & _ "Address: " & Request("txtAddress") & chr(13) & chr(10) & _ "Phone: " & Request("txtPhone") & chr(13) & chr(10) & _ "Fax: " & Request("txtFax") & chr(13) & chr(10) & _ "Email Address: " & Request("txtEmail") & chr(13) & chr(10) & _ "Comments: " & Request("txtComment") Mail.AddAddress "backinh75@hcm.vnn.vn", "Nguyen Chien Thang" 'Mail.AddAddress "nhandt@cdit.com.vn", "Do Tan Nhan" On Error Resume Next Mail.Send If Err <> 0 Then Response.Write "An error occurred: " & Err.Description End If Mail.Reset end if %>