<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> Det Orissa,Diploma In Orissa
 
 
  • 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%>