%
response.buffer=true
%>
<%
Set rsCat= Server.CreateObject("ADODB.Recordset")
Set rsSubCat= Server.CreateObject("ADODB.Recordset")
rsSubCat.CursorType = adOpenStatic
rsSubCat.CursorType = adOpenStatic
rsCat.open "select * from Cat where catcode ='1' order by Catorder",strdb
rsSubCat.open "select * from SubCat where catcode='" & rsCat.fields(0) & "'",strdb
if request("cc")="" and request("scc")="" then
cc=rscat.fields(0)
scc=rssubcat.fields(1)
sc=rssubcat.fields(2)
c=rscat.fields(1)
else
cc=request("cc")
scc=request("scc")
sc=request("sc")
c=request("c")
end if
rscat.close
rssubcat.close
%>