<%@ Language=VBScript%> New Page 1
<% strAction =request.QueryString("strAction") if strAction = "send" then strCompanyName = request.Form("txtCompany") strIncharge = request.Form("txtPerson") strPostal = request.Form("txtPostal") strTel = request.Form("txtTel") strFax = request.Form("txtFax") strEmail = request.Form("txtMail") strWeb = request.Form("txtWebsite") strState = request.Form("txtState") strCountry = request.Form("Country") strComments = request.Form("txacomments") Dim objMsg set objMsg = Server.CreateObject("CDONTS.NewMail") objMsg.From = strEmail objMsg.To = "vinay@novaindustries.ae" objMsg.MailFormat = 0 objMsg.BodyFormat = 0 objMsg.Subject = "Online Enquiry" MailBody = "" MailBody = MailBody & "

" MailBody = MailBody & "

Company Name *

 

Person In charge *

Postal Address

Telephone *

Fax *

E-mail *

Website

State *

Country *

Notes

MEGA STAR TRADING CO. L.L.C
P.O.Box 6512, Dubai, UAE
T: (+9714) 3332211 (8 Lines)
F:(+9714) 3332667
Abu Dhabi:
T: (+9712) 5540600
F:(+9712) 5540747
E: mega@eim.ae

 
 
" MailBody = MailBody & "" MailBody = MailBody & "" MailBody = MailBody & "" MailBody = MailBody & "" MailBody = MailBody & "" MailBody = MailBody & "" MailBody = MailBody & "" MailBody = MailBody & "" MailBody = MailBody & "" MailBody = MailBody & "" MailBody = MailBody & "" MailBody = MailBody & "" MailBody = MailBody & "
"&"Notes :
"& strComments &"
"&" "&"
" & " Company Name :" & strCompanyName & "
" & " Person InCharge:" & strIncharge & "
" & " Postal Address :" & strPostal & "
" & " Telephone :" & strTel & "
" & " Fax :" & strFax & "
" & " E-mail :" & strEmail & "
" & " Website :" & strWeb & "
" & " State :" & strState & "
" & " Country :" & strCountry & "
" objMsg.Body = MailBody objMsg.Send response.Write "Your Mail has been Sent Successfully"%> <%End if %>