新手求救,以下哪里错了?

<%
          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>&nbsp;&nbsp;&nbsp;<b><font color=#FF3300>"&trim(rs("shengname"))&"</font></b>&nbsp;&nbsp;<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 "&nbsp;&nbsp;&nbsp;<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