<%if Request.ServerVariables("CONTENT_LENGTH") <> 0 then%> <% dim mailto,name,email,message pid=Request.Form("pid") ' cid=Request.Form("cid") 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="jeyporecrystals@yahoo.co.in" 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 = "Item quote through website jeyporecrystals.com" cdoMessage.TextBody = "Dear Sir," & Chr(13) & Chr(10) & _ Chr(13) & Chr(10) & _ "Item : " & pid & Chr(13) & Chr(10) & _ Chr(13) & Chr(10) & _ message & Chr(13) & Chr(10) & _ Chr(13) & Chr(10) & _ "Thanking You" & Chr(13) & Chr(10) & _ 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 quote


Message has been sent successfully








Exit



<%else %> <% dim pid, cid pid=Request.QueryString("pid") cid=Request.QueryString("cid") %>
Item Quote : <%=pid%>
Name:
Company:
Address:
Country:
Contact No.:
E-mail:
Message:

Exit
<%end if%>