%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
Response.CacheControl = "no-cache"
Name=request.form("name")
email=request.form("email")
phone=request.form("phone")
comments=request.form("comments")
body=""
body=body & "Name : " & Name & "
"
body=body & "Email : " & email & "
"
body=body & "Phone :" & phone & "
"
body=body & "Comments :" & comments & "
"
Set ObjCDOMail = Server.CreateObject("CDONTS.Newmail")
ObjCDOMail.From =request.form("email")
ObjCDOMail.To ="info@121dubai.com"
ObjCDOMail.BodyFormat = 0
ObjCDOmail.Mailformat = 0
ObjCDOMail.Subject = "Request Information From Clients"
ObjCDOMail.body=body
ObjCDOMail.Send
Set ObjCDOMail = Nothing
%>