Eagle Paints

<% openconnection() %>

<% if request("flag")="1" then stxtReq=replace(request.Form("txtReq"),"'","''") stxtComName=replace(request.Form("txtComName"),"'","''") stxtName=replace(request.Form("txtName"),"'","''") stxtEmail=request.Form("txtEmail") stxtPhone=request.Form("txtPhone") stxtFax=replace(request.Form("txtFax"),"'","''") stxtAdd=replace(request.Form("txtAdd"),"'","''") stxtCity=replace(request.Form("txtCity"),"'","''") stxtZip=replace(request.Form("txtZip"),"'","''") scmbCountry=request.Form("cmbCountry") set rsCount=server.CreateObject("ADODB.Recordset") strCount="SELECT max(int_Contactid) FROM tbl_contactus" rsCount.open strCount,objConn,1,3 if rsCount(0)<>"" then ncount=rsCount(0) ncount=cint(ncount)+1 Else ncount=1 End if set rsContact=server.CreateObject("ADODB.Recordset") strSql1="Insert into tbl_contactus (int_contactid,txtReq,txtComName,txtName,txtEmail,txtPhone,txtFax,txtAdd,txtCity,txtZip,txtCountry) Values("& ncount &",'"& stxtReq &"','"& stxtComName &"','"& stxtName&"','"& stxtEmail &"','"& stxtPhone &"','"& stxtFax &"','"& stxtAdd &"','"& stxtCity &"','"& stxtZip &"','"& scmbCountry &"')" 'response.Write(strSql1) 'response.End() objConn.execute strSql1 Subject = "Feed back" strBody="" strBody=strBody&"" strBody=strBody&"" strBody=strBody&"" strBody=strBody&"" strBody=strBody&"" strBody=strBody&"" strBody=strBody&"" strBody=strBody&"" strBody=strBody&"" strBody=strBody&"" strBody=strBody&"

A Visitor has contacted with the following details

Name : " & stxtname & "

Email : " & stxtEmail & "

Address : " & stxtAdd & "

City : " & stxtCity & "

State : " & scmbCountry & "

Zip Code : " & stxtZip & "

Comments : " & stxtReq & "

" Set myMail = CreateObject("CDO.Message") myMail.From = semail myMail.To = "info@eaglepaints.in" myMail.Subject = Subject myMail.HTMLBody = strBody myMail.Send set myMail=nothing %>

Thank you for contacting Eagle Paints.

One of our representatives will contact you shortly regarding your request.

Click Here to go to Home page

<% else %>

To
	Srivatsa Synthetics Pvt. Ltd 1-4/7-5A, EAGLE TOWERS, Near Telephone Exchange, Vidhyadharapuram, Vijayawada-520012, A.P Telephone : (0866) 2416565 Fax : (0866) 2416956 Mail :info@eaglepaints.in

	(OR)
(Fields marked with asterisk * are mandatory)
*	Please describe your requirements	:

	Company Name	:

*	Name	:

*	Business E-mail	:

*	Business Phone	:

	Business Fax	:

	Address	:

	City/State	:

	Zip/Postal Code	:

*	Country	:

<% end if %>


	Copyright 2008-2009, All rights Reserved.