% 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.metromanilaproperties.com" ' Specify a valid SMTP server your SMTP Mail Here Mail.From = "sales@metromanilaproperties.com" ' Specify sender's address exzample : you@abcd.com Mail.FromName = request.form("Name____Mr_Mrs") ' Specify sender's name Mail.AddAddress "sales@metromanilaproperties.com", "Metro-Manila Properties Online Inquiry" Mail.Subject = "Metro-Manila Properties Online Inquiry" Mail.Body = Body On Error Resume Next Mail.Send If Err <> 0 Then Response.Write "Error encountered: " & Err.Description End if %>
![]() |
|||
| |
|||
| |
|||