 |
 |
<%'if request("btnSearch")="Search" then
dim strOpt,strSroHeader,strFromYear,strToYear
set Conn=server.createobject("adodb.connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../database/SRO.mdb")
strOpt = Session("strOpt")
strSroHeader = Session("strSroType")
strFromYear = Request.QueryString("sroFromYear")
strToYear= Request.QueryString("sroToYear")
'sqlText = "select SRO_NO,FILE_NAME from sro_cntl where SRO_TYPE ='" & strSroHeader & "'" & _
'" AND format(SRO_DATE,'yyyy') BETWEEN " & strFromYear & " and " & strToYear
sqlText = "select SRO_TYPE_DESC from sro_type where SRO_TYPE ='" & strSroHeader & "'"
set rsSROType = Server.CreateObject("ADODB.Recordset")
rsSROType.Open sqlText,Conn
sqlText = "select SRO_NO,FILE_NAME from sro_cntl where SRO_TYPE ='" & strSroHeader & "'" & _
" AND format(SRO_DATE,'yyyy') BETWEEN " & strFromYear & " and " & strToYear & _
" AND COMMENTS = 'NT' ORDER BY format(SRO_DATE,'yyyy')"
'Response.Write sqlText
set rsSROSerial = Server.CreateObject("ADODB.Recordset")
rsSROSerial.Open sqlText,Conn
%>
- <%=rsSROType("SRO_TYPE_DESC")%>
-
<% while not rsSROSerial.EOF%>
- title="Detail Information"><%=rsSROSerial("SRO_NO")%> <%rsSROSerial.MoveNext wend %>