<% if strOpt="A" And strType <> "" then sqlText="SELECT * FROM ChapterDesc WHERE Sec_Index ='" & strType & _ "' and Year ='" & strYear & "' order by ChapId ASC" set rsChap = Server.CreateObject("ADODB.Recordset") rsChap.Open sqlText,Conn if rsChap.EOF = false then Response.Write "Details of " & strType & " in year " & strYear Response.Write"

" %> <% do while not rsChap.EOF %> <% rsChap.MoveNext Loop rsChap.Close 'end if %>

	Chapter		Chapter Description		PageNo
	" title="Detail Information"> <%=rsChap("ChapId")%>		<%=rsChap("ChapterDesc")%>		<%=rsChap("PageNo")%>

<% end if end if %> <% if strOpt="B" And strType <> "" then sqlText="SELECT * FROM ChapterDesc WHERE ChapId ='" & strType & _ "' and Year ='" & strYear & "'" set rsChap = Server.CreateObject("ADODB.Recordset") rsChap.Open sqlText,Conn if rsChap.EOF = false then Response.Write "Details of " & strType & " in year " & strYear Response.Write"

" %> <% do while not rsChap.EOF %> <% rsChap.MoveNext Loop rsChap.Close 'end if %>

	Chapter		Chapter Description		Section		PageNo
	" title="Detail Information"> <%=rsChap("ChapId")%>		<%=rsChap("ChapterDesc")%>		<%=rsChap("Sec_Index")%>		<%=rsChap("PageNo")%>

<% end if end if %> <% if strOpt="C" And strType <> "" then sqlText="SELECT * FROM ChapterDesc WHERE ChapterDesc like '%" & strType & "%'" & _ " and Year ='" & strYear & "' order by ChapId ASC" set rsChap = Server.CreateObject("ADODB.Recordset") rsChap.Open sqlText,Conn if rsChap.EOF = false then Response.Write "Details of " & strType & " in year " & strYear Response.Write"

" %> <% do while not rsChap.EOF %> <% rsChap.MoveNext Loop rsChap.Close 'end if %>

	Chapter		Chapter Description		Section		PageNo
	" title="Detail Information"> <%=rsChap("ChapId")%>		<%=rsChap("ChapterDesc")%>		<%=rsChap("Sec_Index")%>		<%=rsChap("PageNo")%>

<% end if end if %> <% if strOpt="D" then %>