<% 'on error resume next %> <% dim connTemp,sql,rs set connTemp=server.createobject("adodb.connection") ConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("./jdcnews.mdb")& ";Persist Security Info=False;Jet OLEDB:Database Password=;Jet OLEDB:Compact Without Replica Repair=True" connTemp.Open ConnString ' create sql statement Dim strSQL strSQL = "SELECT * from news order by id desc" Set rsTemp = Server.CreateObject("ADODB.Recordset") rsTemp.CursorLocation = 3 rsTemp.Open strSQL, Conntemp rsTemp.MoveFirst %> J.D.C Bytco IMSR, Nashik
Our Mission   
Founder Director   
Principal   
About the Institute   
Our Faculty   
Courses Offered   
Admission Process   
Beyond Academics   
Seminars   
News   
Alumni   
Alumni Meet 2009-10   
Response Sheet   
Mandatory Disclosure   
Minimum Disclosure   
Ph.D. Admission   
Home   
Download MBA brochure   
Download MCM brochure   
Download MPM brochure   
   
   
   
   
   
   
   
   
   
   
   
Site Designed and Developed by Santech Systems
   
   

<% dim i dim j for j=0 to rstemp.recordcount-1 ntitle = rstemp("ntitle") ndate = rstemp("ndate") nvenue = rstemp("nvenue") ndesc = rstemp("ndesc") response.write "" response.write "" response.write "" response.write "" if ndate<>"" then response.write "" response.write "" end if if nvenue<>"" then response.write "" response.write "" end if response.write "" response.write "" rsTemp.MoveNext next 'j %> <% set ntitle = Nothing set ndate = Nothing set nvenue = Nothing set ndesc = Nothing set conntemp = Nothing set rstemp = Nothing %>
  " & ntitle & "
" & nl2br(ndesc) & "
Date : " & nl2br(ndate) & "
Venue : " & nl2br(nvenue) & "