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


<% 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 "
" Response.Write "

" %> <% do while not rsChap.EOF %> <% rsChap.MoveNext Loop rsChap.Close %>
 
Chapter
  
Chapter Description
  
PageNo
 
" title="Detail Information"> <%=rsChap("ChapId")%>
 
" title="Detail Information"> <%=rsChap("ChapterDesc")%>
 
<%=rsChap("PageNo")%>
<% else Response.Write "
" Response.Write "Information of " & strType & " in year " & strYear & " is not available" Response.Write "
" 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 "
" Response.Write"

" %> <% do while not rsChap.EOF %> <% rsChap.MoveNext Loop rsChap.Close %>
 
Chapter
  
Chapter Description
  
Section
  
PageNo
 
" title="Detail Information"> <%=rsChap("ChapId")%>
 
<%=rsChap("ChapterDesc")%>
  
<%=rsChap("Sec_Index")%>
  
<%=rsChap("PageNo")%>
<% else Response.Write "
" Response.Write "Information of " & strType & " in year " & strYear & " is not available" Response.Write "
" 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 "
" Response.Write"

" %> <% do while not rsChap.EOF %> <% rsChap.MoveNext Loop rsChap.Close %>
 
Chapter
  
Chapter Description
 
  
Section
 
  
PageNo
 
 
" title="Detail Information"> <%=rsChap("ChapId")%>
 
<%=rsChap("ChapterDesc")%>
  
<%=rsChap("Sec_Index")%>
  
<%=rsChap("PageNo")%>
<% else Response.Write "
" Response.Write "Information of " & strType & " in year " & strYear & " is not available" Response.Write "
" end if end if %> <% if strOpt="D" then %>
<% sqlText = "select Sec_Type from Section_Type WHERE Year ='" & strYear & "'" set rsAll = Server.CreateObject("ADODB.Recordset") rsAll.Open sqlText,Conn Response.Write "Details of All Bangladesh Customs Tariff in year " & strYear Response.Write"

" %>

<% Conn.Close %>