<% dim strOpt,strSroType,sqlText,strFromYear,strToYear set Conn=server.createobject("adodb.connection") Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../database/SRO.mdb") strOpt = Request.QueryString("opt") strSroType = Request.QueryString("SroType") if strOpt <> "" and strSroType <> "" then Session("strOpt")= strOpt Session("strSroType")=strSroType end if if Request("btnSearch")="Search" then Response.Redirect "NonTDateTypeSro.asp?sroFromYear=" & Request("FromYear") & "&sroToYear=" & Request("ToYear") end if %>
Bangladesh Customs Bangladesh Flags



<% if strOpt="B" then Response.Write "
" Response.Write "Details of Non Tariff SRO type" Response.Write "
" Response.Write "
" dim blnVisible sqlText = "select SRO_TYPE_DESC from sro_type where SRO_TYPE ='" & strSroType & "'" set rsSROType = Server.CreateObject("ADODB.Recordset") rsSROType.Open sqlText,Conn sqlText = "select SRO_NO,FILE_NAME,SUMMARY from sro_cntl where SRO_TYPE ='" & strSroType & "'" & _ " AND COMMENTS = 'NT'" set rsSROSerial = Server.CreateObject("ADODB.Recordset") rsSROSerial.Open sqlText,Conn %>
  • <%=rsSROType("SRO_TYPE_DESC")%> <%end if%> <% if strOpt="D" then sqlText = "select SRO_TYPE,SRO_TYPE_DESC from sro_type" set rsSROType = Server.CreateObject("ADODB.Recordset") rsSROType.Open sqlText,Conn %>
      <%while not rsSROType.EOF%>
    • <%=rsSROType("SRO_TYPE_DESC")%>
        <% sqlText = "select SRO_NO,FILE_NAME,SUMMARY from sro_cntl where SRO_TYPE ='" & rsSROType("SRO_TYPE") & "'" & _ " AND COMMENTS = 'NT'" set rsSROSerial = Server.CreateObject("ADODB.Recordset") rsSROSerial.Open sqlText,Conn if rsSROSerial.EOF = true then%>
      • There is no more information in this SRO Type <%end if while not rsSROSerial.EOF%>
      • title="<%=rsSROSerial("SUMMARY")%>"> <%=rsSROSerial("SRO_NO")%> <%rsSROSerial.MoveNext wend rsSROType.movenext %>
      <% wend end if %>
<% if strOpt="C" And strSroType <> "" then sqlText = "select SRO_SERIAL,SRO_NO,SUMMARY,FILE_NAME from sro_cntl " & _ "where SUMMARY like '%" & strSroType & "%' AND COMMENTS = 'NT' ORDER BY SRO_SERIAL" set rsSROSummary = Server.CreateObject("ADODB.Recordset") rsSROSummary.Open sqlText,Conn if rsSROSummary.EOF then Response.Write "
" Response.Write "

" Response.Write "No Search Record is Found." Response.Write "
" %> <% else Response.Write "
" Response.Write "Details of Non Tariff SRO" Response.Write "
" Response.Write "
" %>
<% do while not rsSROSummary.EOF %> <% rsSROSummary.MoveNext Loop rsSROSummary.Close %>
 
SRO Serial
  
SRO Number
  
Header/Summery
 
" title="Detail Information"> <%=rsSROSummary("SRO_SERIAL")%>
 
<%=rsSROSummary("SRO_NO")%>
  
<%=rsSROSummary("SUMMARY")%>
<% end if ''This is for eof else condition. %>
<%end if ''This is for opt=C condition.%> <% if strOpt="A" then sqlText = "select SRO_SERIAL,SRO_NO,SUMMARY,FILE_NAME,COMMENTS from sro_cntl " & _ "where SRO_SERIAL='" & strSroType & "'" set rsSROSummary = Server.CreateObject("ADODB.Recordset") rsSROSummary.Open sqlText,Conn if rsSROSummary.EOF then Response.Write "
" Response.Write "

" Response.Write "No Search Record is Found." Response.Write "
" %> <% else Response.Write "
" Response.Write "Details of Non Tariff SRO " & strSroType Response.Write "
" Response.Write "
" %>
<% do while not rsSROSummary.EOF %> <% rsSROSummary.MoveNext Loop rsSROSummary.Close %>
 
SRO Serial
  
SRO Number
  
Header/Summery
 
" title="Detail Information"><%=rsSROSummary("SRO_SERIAL")%>
 
<%=rsSROSummary("SRO_NO")%>
  
<%=rsSROSummary("SUMMARY")%>
<% end if ''This is for eof else condition.%>
<% end if ''This is for opt=A condition.%> <% if strOpt="E" then strFromYear = Request.QueryString("FromYear") strToYear = Request.QueryString("ToYear") sqlText = "select SRO_SERIAL,SRO_NO,SUMMARY,FILE_NAME,COMMENTS from sro_cntl " & _ "where format(SRO_DATE,'yyyy') BETWEEN " & strFromYear & " and " & strToYear & _ " AND COMMENTS = 'NT'" set rsSROSummary = Server.CreateObject("ADODB.Recordset") rsSROSummary.Open sqlText,Conn if rsSROSummary.EOF then Response.Write "
" Response.Write "
" Response.Write "No Search Record is Found." Response.Write "
" else Response.Write "
" Response.Write "Details of year from " & strFromYear & " to " & strToYear Response.Write "
" Response.Write "" %>
<% do while not rsSROSummary.EOF %> <% rsSROSummary.movenext Loop rsSROSummary.Close %>
 
SRO Serial
  
SRO Number
  
Header/Summery
 
" title="Detail Information"> <%=rsSROSummary("SRO_SERIAL")%>
 
<%=rsSROSummary("SRO_NO")%>
  
<%=rsSROSummary("SUMMARY")%>
<% end if ''This is for eof else condition.%>
<% end if ''This is for opt=E condition.%> <% if strOpt="B" and blnVisible = true then%>
  Search With The Year

From Year To Year

<%end if Conn.Close %>