<%@ Language=VBScript %>
SRO Search
<%
set Conn=server.createobject("adodb.connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../database/SRO.mdb")
sqlText = "select SRO_SERIAL,SRO_NO from sro_cntl where COMMENTS = 'T'" & _
" order by ID asc"
set rsSRO = Server.CreateObject("ADODB.Recordset")
rsSRO.Open sqlText,Conn
sqlText = "select SRO_TYPE,SRO_TYPE_DESC from sro_type order by SRO_TYPE asc"
set rsSROType = Server.CreateObject("ADODB.Recordset")
rsSROType.Open sqlText,Conn
if Request("btnSearch")="Search" then
if Request("radSro")="A" then
Response.Redirect "DetailSro.asp?opt=A&SroType="& Trim(left(Request("sroSerial"),14))
elseif Request("radSro")="B" then
Response.Redirect "DetailSro.asp?opt=B&SroType="& Trim(left(Request("sroType"),2))
elseif Request("radSro")="C" then
Response.Redirect "DetailSro.asp?opt=C&SroType="& Request("HSCode")
elseif Request("radSro")="D" then
Response.Redirect "DetailSro.asp?opt=D&SroType="& Request("HSCode")
elseif Request("radSro")="E" then
Response.Redirect "DetailSro.asp?opt=E&FromYear="& Request("FromYear") & "&ToYear=" & Request("ToYear")
end if
end if
%>
