<%@ Language=VBScript %> Search Result <% Dim strOpt,strType,sqlText set Conn=server.createobject("adodb.connection") Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../database/ACT.mdb") strOpt = Request.QueryString("opt") strType = Request.QueryString("Type") %>
Bangladesh Customs Bangladesh Flags


<% if strOpt="A" And strType <> "" then sqlText="SELECT * FROM tbl_Chapter WHERE Chap_Name ='" & strType & "'" set rsChap = Server.CreateObject("ADODB.Recordset") rsChap.Open sqlText,Conn sqlText="SELECT * FROM tbl_section WHERE Chap_Name ='" & strType & "'" set rsSection = Server.CreateObject("ADODB.Recordset") rsSection.Open sqlText,Conn if rsChap.EOF = false then Response.Write "Details of " & strType & " in year " & "2002
" %> Description :" title="Detail Information"> <%=rsChap("Chap_Description")%> <% Response.Write "
" Response.Write"

" %> <% do while not rsSection.EOF %> <% rsSection.MoveNext Loop rsSection.Close 'end if %>
 
Section No
 
Section Description
  
Page No
 
<%=rsSection("Sec_Index")%>
 
<%=rsSection("Sec_Description")%>
 
<%=rsSection("PageNo")%>
<% end if rsChap.Close end if %> <% if strOpt="B" And strType <> "" then sqlText="SELECT * FROM tbl_section WHERE Sec_Index ='" & strType & "'" set rsSection = Server.CreateObject("ADODB.Recordset") rsSection.Open sqlText,Conn if rsSection.EOF = false then sqlText="SELECT FileName FROM tbl_Chapter WHERE Chap_Name ='" & rsSection("Chap_Name") & "'" set rsChap = Server.CreateObject("ADODB.Recordset") rsChap.Open sqlText,Conn %> <% Response.Write "Details of " & rsSection("Sec_Description") Response.Write "
" %> " title="Detail Information"> <% Response.Write "Chapter: " & rsSection("Chap_Name") & "
" Response.Write"

" %>
<% do while not rsSection.EOF %> <% rsSection.MoveNext Loop rsChap.Close rsSection.Close %>
 
Section No
 
Section Description
  
Chapter
  
PageNo
 
" title="Detail Information"> <%=rsSection("Sec_Index")%>
 
<%=rsSection("Sec_Description")%>
 
<%=rsSection("Chap_Name")%>
 
<%=rsSection("PageNo")%>
<% end if end if %> <% if strOpt="C" And strType <> "" then sqlText="SELECT * FROM tbl_section WHERE Sec_Description like '%" & strType & "%'" set rsSection = Server.CreateObject("ADODB.Recordset") rsSection.Open sqlText,Conn if rsSection.EOF = false then Response.Write "Details of " & strType Response.Write "
" Response.Write"

" %>
<% do while not rsSection.EOF sqlText="SELECT FileName FROM tbl_Chapter WHERE Chap_Name ='" & rsSection("Chap_Name") & "'" set rsChap = Server.CreateObject("ADODB.Recordset") rsChap.Open sqlText,Conn %> <% rsSection.MoveNext Loop rsSection.Close 'end if %>
 
Section No
 
Section Description
  
Chapter
  
PageNo
 
" title="Detail Information"> <%=rsSection("Sec_Index")%>
 
<%=rsSection("Sec_Description")%>
 
<%=rsSection("Chap_Name")%>
 
<%=rsSection("PageNo")%>
<% else Response.Write "
" Response.Write "Information of " & strType & " is not available" Response.Write "
" end if end if %> <% if strOpt="D" then %>
<% sqlText = "select Chap_Name,Chap_Description,FileName from tbl_Chapter" set rsAll = Server.CreateObject("ADODB.Recordset") rsAll.Open sqlText,Conn Response.Write "Details of All Bangladesh Customs Act in year 2002" Response.Write"

" %>


<% Conn.Close %>