<%
strcon=Application("strcon_C")
Action=Request("Action")
if Action="" then Action="List"
select case Action
case "List"
case "ListCate"
ID=Request("ID")
if ID="" then ID=1
sql="select * From [系列單元表],[系列表] Where [系列代表號]=" & ID & _
" AND [系列ID]=[系列代表號]"
set rs=GetRecordset(strcon,sql)
end select
%>
<%Select case Action
case "List"%>