|
QATAR
|
 |
Doha, Qatar
Tel: +974 4215079
GSM: +974 5669096
P.O.Box: 30419
UAE
|
 |
Dubai, UAE
Tel: +971 4 267285
|
USA
|
 |
Chicago, IL
60608
Tel: 312-492-6600 ext.14
GENERAL CONTACT
E-mail:
info@grantvisions.com
|
|
:: QUICK CONTACT FORM
Please
complete and submit the form below if you wish to be
contacted by Grant Visions Team regarding a service
issue. All fields are required to be filled.
* indicates required
field.
<%
posted = request.form ("Send")
if posted = "Send" then
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'' Customize the following 5 lines with your own information. ''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
vtoaddress = "info@grantvisions.com" ' Change this to the email address you will be receiving your notices.
vmailhost = "mail.grantvisions.com" ' Change this to your actual Domain name.
vsubject = "Feedack Grantvisions" 'Change this to your own email message subject.
'''''''''''''''''''''''''''''''''''''''''''
'' DO NOT CHANGE ANYTHING PAST THIS LINE ''
'''''''''''''''''''''''''''''''''''''''''''
vfromname = request.form ("TName")
vbody = request.form ("TBody")
vrplyto = request.form ("TEmail")
vmsgbody = vfromname &" "& vrplyto &" "& vbody
Set objEmail = Server.CreateObject("Persits.MailSender")
objEmail.Username = vfromaddress
objEmail.Password = vfrompwd
objEmail.Host = vmailhost
objEmail.From = vfromaddress
objEmail.AddAddress vtoaddress
objEmail.Subject = vsubject
objEmail.Body = vmsgbody
objEmail.IsHTML = True
objEmail.Send
vErr = Err.Description
if vErr <> "" then
response.write vErr & "
There was an error on this page."
else
response.write "Thank you, your message has been sent."
End If
Set objEmail = Nothing
end if
%>
|