%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
Response.CacheControl = "no-cache"
%>
<%
fname=Request.Form("name")
organisation=Request.Form("organisation")
address=Request.Form("address")
city=Request.Form("city")
country=Request.Form("country")
telephone=Request.Form("telephone")
fax=Request.Form("fax")
email=Request.Form("email")
comment=Request.Form("comment")
body=body & "
"
body=body & ""
body=body & "| Name : | " & fname & " |
"
body=body & "| Organisation : | " & organisation & " |
"
body=body & "| Postal Address : | " & address & " |
"
body=body & "| City : | " & city & " |
"
body=body & "| Country : | " & country & " |
"
body=body & "| Telephone : | " & telephone & " |
"
body=body & "| Fax : | " & fax & " |
"
body=body & "| E-mail : | " & email & " |
"
body=body & "| Comments/Enquiry : | " & comment & " |
"
'response.Write body
'response.end
Set ObjCDOMail = Server.CreateObject("CDONTS.Newmail")
ObjCDOMail.From =email
ObjCDOMail.To ="info@essentialinv.com"
ObjCDOMail.BodyFormat = 0
ObjCDOmail.Mailformat = 0
ObjCDOMail.Subject = "ENQUIRY FORM"
ObjCDOMail.body=body
ObjCDOMail.Send
Set ObjCDOMail = Nothing
%>
Essential Investment
ENQUIRY FORM
Please feel free to
contact us for any information/enquiry or if you have any questions,
comments or suggestions.
* Required fields
|
|
|