|
|
|
|
 |
 |
<%if request.Form("mail")<>1 then%>
|
|
<%else%>
| |
<%
btext =""
btext = btext & "| Details | "
btext = btext & "| Company | "& request.form("company")&" | "
btext = btext & "| Your Name | "& request.form("name")&" | "
btext = btext & "| Designation | "& request.form("designation")&" | "
btext = btext & "| Address | "& request.form("address")&" | "
btext = btext & "| Country | "& request.form("country")&" | "
btext = btext & "| Telephone | "& request.form("phone")&" | "
btext = btext & "| Fax | "& request.form("fax")&" | "
btext = btext & "| Email | "& request.form("email")&" | "
btext = btext & "| Please | "& request.form("r1")&" | "
btext = btext & "| Comments | "& request.form("comment")&" | "
btext = btext & "| How did you come to know about us? | "& request.form("r2")&" | "
btext = btext & "| Queries | "& request.form("queries")&" | "
%>
<%'=btext%>
<%
' response.end
sch = "http://schemas.microsoft.com/cdo/configuration/"
Set cdoConfig = Server.CreateObject("CDO.Configuration")
cdoConfig.Fields.Item(sch & "sendusing") = 2
cdoConfig.Fields.Item(sch & "smtpserver") = "localhost"
cdoConfig.fields.update
Set cdoMessage = Server.CreateObject("CDO.Message")
Set cdoMessage.Configuration = cdoConfig
cdoMessage.From = request.Form("email")
cdoMessage.To = "enertech@gmail.com"
cdoMessage.Bcc = "support@binaryinfotech.co.in"
cdoMessage.Subject = "Feedback Form Inquiry"
cdoMessage.HTMLBody = btext
cdoMessage.Send
Set cdoMessage = Nothing
' Set cdoConfig = Nothing
%>
<%
msg1=""
msg1= msg1 &"Dear "& request("name")&",
"
msg1= msg1 & "Thank you for showing intrest in our product. Our executive will get back to you ASAP.
"
msg1= msg1 &"Regards,
Enertech Electronics Pvt. Ltd "
msg1= msg1 &"62, Raja Industrial Estate, 1st Floor, P. K. Road, Mulund (West), Mumbai 400 080, INDIA. "
msg1= msg1 &"Tel : 91 - 22 - 2561 1865 / 5555 2664 Fax : 91 - 22 - 2565 6483 "
msg1= msg1 &"Email : enertech@gmail.com "
msg1= msg1 &"Website : www.enertechindia.com"
%>
<%' = msg1 %>
<%
Set cdoMessage1 = Server.CreateObject("CDO.Message")
Set cdoMessage1.Configuration = cdoConfig
cdoMessage1.From = "enertech@gmail.com"
cdoMessage1.To = request.Form("email")
cdoMessage1.Subject = "Response from www.enertechindia.com"
cdoMessage1.HTMLBody = msg1
cdoMessage1.Send
Set cdoMessage1 = Nothing
Set cdoConfig = Nothing
'Response.Write(msg1)
'Response.End()
%>
Thank You,
<% =request.form("name") %>
We appreciate your Feedback. |
| |
<%end if%>
|
 |
 |
 |
|
  |
 |
 |
 |
|