2级输出

[yymzzl]

导航一级类 A B C D E
导航二级类 a b c d e(每个一级类2个二级以上)

我想通过点击一级类 来获得对应的2级类所有小类
一级类连接<A class=top href="<%=rs("SortLink")%>.asp?action="<%=rs("SortName")%>">
获得2级是不是
request(“action”)?
但我写不好这个循环
<%
Dim rs,sort
sort=request("action")
set rs=server.createobject("adodb.recordset")
rs.open "select * from "&GuTablePrefix&"_Sort where SortName ",conn,1,1 --这里不会写 通过sort来查询二级类

%>

通过一级查询二级 输出 怎么写啊 哎 着急 谢谢了
谢谢

[yymzzl]

<%
Dim rs,sort
sort=request("action")
set rs=server.createobject("adodb.recordset")
rs.open "select * from "&GuTablePrefix&"where SortName="&sort,conn,1,1

%>
<TABLE class=style1 cellSpacing=0 cellPadding=0 width=180 border=0>
<TBODY>
<TR>
<TD class=stylezz1 height=20 align=center bgcolor=#325C84><%=sort%></TD>
</TR>
<TR>
<TD align=middle>
<DIV align=center>
<TABLE height=34 cellSpacing=0 cellPadding=0 width="99%"
border=0>
<TBODY>
<TR>
<TD></TD> <TD height="10"></TD>
</TR>

<tr>
<TD width="11%" align=right><img src="newinc/arrow_5.gif"><%=rs("SortName")%></td>
</tr>

<%
set SubRs=server.createobject("adodb.recordset")
SubRs.open "select * from "&GuTablePrefix&"_AsSort where SortID="&Rs("SortID")&" order by AsSortID asc",conn,1,1
if err.number <> 0 then
response.write "数据库查询出错"
else
if SubRs.bof and SubRs.eof then
response.write "<font class=style3>没有相关信息</font>"
else
do while not SubRs.eof
%>

<TD height="20"> <%=SubRS("AsSortName")%>&<br>
<%
SubRs.movenext
loop
end If
End If
%>

为什么 显示 数据库查询出错啊

[-晴天]

<%
Dim rs,sort
sort=request("action")
set rs=server.createobject("adodb.recordset")
rs.open "select * from "&GuTablePrefix&"where SortName="&sort,conn,1,1
%>
是不是应该为:
<%
Dim rs,sort
sort=request("action")
set rs=server.createobject("adodb.recordset")
rs.open "select * from GuTablePrefix where SortName='"& sort &"'",conn,1,1
%>

[yymzzl]

怎么没人啊

[yymzzl]

好像接受不到数据啊 怎么回事 谢谢了