<% if request.form("fname")<>"" then fname=request.form("fname") end if if request.form("email")<>"" then email=request.form("email") session("email")=email end if if request.form("comp")<>"" then comp=request.form("comp") end if if request.form("address")<>"" then addr=request.form("address") end if if request.form("country")<>"" then country=request.form("country") end if if request.form("telephone")<>"" then tele=request.form("telephone") end if if request.form("fax")<>"" then fax=request.form("fax") end if if request.form("category")<>"" then category=request.form("category") end if if request.form("agent")<>"" then agent=request.form("agent") end if if request.form("remarks")<>"" then remarks=request.form("remarks") end if strHead = "" strCustDetails=strHead & "
  Enquiry from Web Site : www.magixfireworks.com
" strCustDetails=strCustDetails & "" strCustDetails=strCustDetails & "" strCustDetails=strCustDetails & "" strCustDetails=strCustDetails & "" strCustDetails=strCustDetails & "" strCustDetails=strCustDetails & "" strCustDetails=strCustDetails & "" strCustDetails=strCustDetails & "" strCustDetails=strCustDetails & "" strCustDetails=strCustDetails & "" ' strCustDetails=strCustDetails & strProDetails strCustDetails=strCustDetails & "" strCustDetails=strCustDetails & "" strCustDetails=strCustDetails & "
  Personal Information
  Name :First Name
" & request.form("fname") & "		Last Name
" & request.form("lname") & "
  company :" & comp & "
  Address :" & addr & "
  Country :" & country & "
  Phone :" & tele & "
  Fax :" & fax & "
  Email :" & email & "
  Type of Fireworks Interested in :" & category & "
  Others :" & agent & "
  Message :
  " & Replace(Request.Form("remarks"), vbCrLf, "
  ") & "
"' 'Response.Write(strCustDetails) Dim strBody Dim objMail Dim strMyEmailAddress Dim strCCEmailAddress Dim strBCCEmailAddress Dim strReturnEmailAddress Set objMail = Server.CreateObject("CDONTS.NewMail") objMail.From = email objMail.To = "sales@magixfireworks.com" objMail.Cc = "enquiry@magixfireworks.com" objMail.Subject = "wwww.magixfireworks.com" objMail.BodyFormat = 0 objMail.MailFormat = 0 objMail.Body = strCustDetails objMail.Importance = 1 objMail.Send Set objMail = Nothing pagename="FACTORY" %> ::::: Magix Fireworks ::::: Leading Fireworks Products Manufacturer
<% top %>
<% left %>
<% title %>
  Message Sent  
 

Dear <%=fname%>,

  
    Thank you for your query, your message was sent successfully.  
     
     
 
We listed in our website just a part of the products. If you want more features, Please Email or Fax Us
 
Magix Fireworks Ltd
192, Liuyang River Road,
Liuyang city, Hunan Province, China,
Phone: 0086-731-3684661,
Fax :0086-731-3684661,
Email : indianpyro@hotmail.com, magixfireworks.china@gmail.com
MSN Chat : indianpyro@hotmail.com
 
<% news %>
<% bottom_navigs %>
<% footer %>