Kailash Krishi Yahtra Udyog

<%if Request.ServerVariables("CONTENT_LENGTH") <> 0 then%> <% dim mailto,name,email,message Response.Cookies("name")=Request.Form("name") Response.Cookies("company")=Request.Form("company") Response.Cookies("address")=Request.Form("address") Response.Cookies("country")=Request.Form("country") Response.Cookies("phone")=Request.Form("phone") Response.Cookies("email")=Request.Form("email") iname=Request.Form("iname") name=Request.Form("name") company=Request.Form("company") address=Request.Form("address") country=Request.Form("country") phone=Request.Form("phone") email=Request.Form("email") message=Request.Form("message") mailto="info@kkyujpr.com" sch = "http://schemas.microsoft.com/cdo/configuration/" Set cdoConfig = Server.CreateObject("CDO.Configuration") Const cdobasic = 1 cdoConfig.Fields.Item(sch & "smtpserver") = "mail.jangidsamaj.org" cdoConfig.Fields.Item(sch & "smtpauthenticate") = cdobasic cdoConfig.Fields.Item(sch & "sendusername") = "cdomail@jangidsamaj.org" cdoConfig.Fields.Item(sch & "sendpassword") = "dc12345" cdoConfig.Fields.Item(sch & "smtpserverport") = 25 cdoConfig.Fields.Item(sch & "smtpusessl") = false cdoConfig.Fields.Item(sch & "sendusing") = 2 cdoConfig.fields.update Set cdoMessage = Server.CreateObject("CDO.Message") Set cdoMessage.Configuration = cdoConfig cdoMessage.From = email cdoMessage.To = mailto cdoMessage.BCC = "web@dishacreations.com" cdoMessage.Subject = "Request quote through kkyujpr.com" cdoMessage.TextBody = "To" & Chr(13) & Chr(10) & _ "Kailash Krishi Yahra Udyog" & Chr(13) & Chr(10) & _ "Bagru, Jaipur (India)" & Chr(13) & Chr(10) & _ Chr(13) & Chr(10) & _ "Item Name : " & iname & Chr(13) & Chr(10) & _ Chr(13) & Chr(10) & _ message & Chr(13) & Chr(10) & _ Chr(13) & Chr(10) & _ "FROM" & Chr(13) & Chr(10) & _ "Name : " & name & Chr(13) & Chr(10) & _ "Company : " & company & Chr(13) & Chr(10) & _ "Address : " & address & Chr(13) & Chr(10) & _ "Country : " & country & Chr(13) & Chr(10) & _ "Phone : " & phone & Chr(13) & Chr(10) & _ "Email : " & email cdoMessage.Send Set cdoMessage = Nothing Set cdoConfig = Nothing %>



Thank you for your request


Message has been sent successfully










Close


<%else %> <% dim ic, iname iname=Request.QueryString("iname") %>

Quote Me - <%=iname%>
Name:	" style="border: 1 solid #aaaaaa">
Company:	" style="border: 1 solid #aaaaaa">
Full Address:	<%=Request.Cookies("address")%>
Country:	" style="border: 1 solid #aaaaaa">
Contact No.:	" style="border: 1 solid #aaaaaa">
E-mail:	" style="border: 1 solid #aaaaaa">
Requirement:	Please quote me the price with the details of <%=iname%>.

Close

<%end if%>

Copyright ©, kkyujpr.com. All Rights Reserved