Muscovite Group

<%if request.QueryString("mail")<>1 then%>

		All the fields marked by * are mandatory

Person Name*	:
Address*	:
City*	:
State*	:
Country*	:
Pincode*	:
E-Mail*	:
Telephone*	:	(eg. 91 22 12345678)
Mobile	:	(Country Code, Mobile no.)
Fax	:
Enquiry	:

<%else%>

<% ' ============================================ ' ' ======== For Sending mail ============== ' ' ============================================ ' btext = btext & "" btext = btext & "

Personal Details
Person Name	" btext = btext & request.form("name") btext = btext & "
Address	" btext = btext & request.form("address") btext = btext & "
City	" btext = btext & request.Form("city") btext = btext & "
State	" btext = btext & request.Form("state") btext = btext & "
Country	" btext = btext & request.Form("country") btext = btext & "
Pincode	" btext = btext & request.Form("pincode") btext = btext & "
Email	" btext = btext & request.form("email") btext = btext & "
Telephone	" btext = btext & request.Form("telephone")&"-"& request.Form("telephone1")&"-"& request.Form("telephone2") btext = btext & "
Mobile	" btext = btext & request.form("mobile1")&"-"&request.form("mobile1") btext = btext & "
Fax	" btext = btext & request.Form("fax") btext = btext & "
Comments	" btext = btext & request.form("comment") btext = btext & "

" %> <%'=btext%> <% 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 = "sujata@binaryinfotech.in" 'cdoMessage.Bcc = "...@abc.com" cdoMessage.Subject = "Feedback from www.muscovite.com" cdoMessage.HTMLBody = btext cdoMessage.Send Set cdoMessage = Nothing ' Set cdoConfig = Nothing ' ============================================ ' ' ======== End of Sending mail =========== ' ' ============================================ ' ' ============================================ ' ' === For Sending Auto Response mail ====== ' ' ============================================ ' btext1 = btext1 & "" btext1 = btext1 & "Dear "&request.form("name")&",

We appreciate your Feedback. Support Team will contact soon.

" btext1 = btext1 & "www.muscovite.com" sch = "http://schemas.microsoft.com/cdo/configuration/" Set cdoConfig1 = Server.CreateObject("CDO.Configuration") cdoConfig1.Fields.Item(sch & "sendusing") = 2 cdoConfig1.Fields.Item(sch & "smtpserver") = "localhost" cdoConfig1.fields.update Set cdoMessage1 = Server.CreateObject("CDO.Message") Set cdoMessage1.Configuration = cdoConfig1 cdoMessage1.From = "support@binaryinfotech.co.in" ' cdoMessage1.To = request.Form("email") cdoMessage1.Subject = "Autoresponse from www.muscovite.com" cdoMessage1.HTMLBody = btext1 cdoMessage1.Send Set cdoMessage1 = Nothing ' ============================================ ' ' === End of Sending Auto Response mail ====== ' ' ============================================ ' %> <%'=btext1%>

Thank You, <% =request.form("name") %>
We appreciate your Feedback.

<%end if%>

Bhandup (W) .

Mumbai.

binary | Optimized for IE 5.0 & 1024 x 768 Resolution