<%@ Language=VBScript %> <% 'Variable declaration set rstBatch=Server.CreateObject("ADODB.Recordset") set rstInfo=Server.CreateObject("ADODB.Recordset") set rstCourse=Server.CreateObject("ADODB.Recordset") set dbcn=Application("addbcnNimc") strSQL="select distinct course from alumni" rstCourse.CursorLocation = 3 rstCourse.Open strSQL,dbcn,3,3 %>

Home   Site Map   E-Mail   About AIM | Infrastructure | Management | Programme | Admission | Placement | Current News | Core Faculty | Faculty Activities | Visiting Faculty | MDP & Consultancy | Students Activities | Alumni |   Registration Message  MBA  MCA <% if rstCourse.RecordCount > 0 then %> <% do while (not rstCourse.EOF)%> <% strSQL="select * from alumni where batchfrom = '" & rstBatch("batchfrom") & "' and course = '"& rstCourse("course") & "' order by st_name" rstInfo.CursorLocation = 3 rstInfo.Open strSQL,dbcn,3,3 if rstInfo.RecordCount > 0 then do while (not rstInfo.EOF) Response.Write "" rstInfo.MoveNext loop rstInfo.Close End if rstBatch.MoveNext loop rstBatch.Close End if %> <%rstCourse.MoveNext loop rstCourse.Close end if%> "><%=rstCourse("course")%> <%strTSQL="select DISTINCT batchfrom, batchto from alumni where course = '" & rstCourse("course") & "'" rstBatch.CursorLocation = 3 rstBatch.Open strTSQL,dbcn,3,3 if rstBatch.RecordCount > 0 then do while (not rstBatch.EOF)%>   <%=rstBatch("batchfrom")%>-<%=rstBatch("batchto")%>     " & rstInfo("st_name") & " top         Copyright AIM, 2005