Det Orissa,Diploma In Orissa

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> Det Orissa,Diploma In Orissa

IMPORTANT LINKS

Admission Open for the Session 2011-2012 for Diploma & ITI:- Admission Enquiry Contact :-9938877887/9337053366

<%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("mobile")&"-"&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 = "info@srisikhya.edu.in" cdoMessage.Bcc = "info@icssoft.net" cdoMessage.Subject = "Feedback from SRI SIKHYA BHARATI" 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 & "SRI SIKHYA BHARATI
" btext1 = btext1 & "Hotel Janapath Complex,
" btext1 = btext1 & "29,Janpath,Bapuji Nagar,
" btext1 = btext1 & "Bhubaneswar-751009,,
" btext1 = btext1 & "Orissa,India
" btext1 = btext1 & "Pone:0674-2597368,Mob :91+9337053366
" 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 = "info@srisikhya.edu.in" ' cdoMessage1.To = request.Form("email") cdoMessage1.Subject = "Autoresponse from SRI SIKHYA BHARATI" 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%>