新手求救,以下哪里错了?
<%set rs=server.CreateObject("adodb.recordset")
rs.open "select shengname,proid from province order by shengorder",conn,1,1
do while not rs.eof %>
<%response.write "<br> <b><font color=#FF3300>"&trim(rs("shengname"))&"</font></b> <br>"%>
<% set rs2=server.CreateObject("adodb.recordset")
rs2.open "select shiname,ctid from city where proid="&rs("proid")&" order by shiorder",conn,1,1
do while not rs2.eof
response.write " <font color=#0099cc>"&trim(rs2("shiname"))&"</font> "
rs2.movenext
loop
rs2.close
set rs2=nothing
response.write "<br>"%>
<% rs.movenext
loop
rs.close
set rs=nothing%>
数据表
province
prodi shengname shengid shengorder
city
ctid shiname shiNO shiorder shengid