%
If Request.Form.Count > 0 Then
For I = 1 to Request.Form.Count
Body = Body & Request.Form.Key(I) & " " _
& Request.Form.Item(I) & vbCRLF
Next
end if
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "mail.jovitaresort.com" ' Specify a valid SMTP server your SMTP Mail Here
Mail.From = "inquire@jovitaresort.com" ' Specify sender's address exzample : you@abcd.com
Mail.FromName = request.form("Name____Mr_Mrs") ' Specify sender's name
Mail.AddAddress "inquire@jovitaresort.com", "Jovita Resort On-line Inquiry"
Mail.Subject = "Jovita Resort On-Line Inquiry"
Mail.Body = Body
On Error Resume Next
Mail.Send
If Err <> 0 Then
Response.Write "Error encountered: " & Err.Description
End if
%>