asp循环问题
我想循环以下这段代怎么写循环语句
<tr>
<td> <div align= "center "> <%=rs0( "PERSON_CNAME ")%> </div> </td>
<td> <div align= "center "> <%=rs0( "DEPT_CODE ")%> </div> </td>
</tr>
这是整个代码 <%@LANGUAGE= "VBSCRIPT " CODEPAGE= "936 "%>
<!--#include file= "inc/xconn.asp "-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN " "http://www.w3.org/TR/html4/loose.dtd ">
<html>
<head>
<meta http-equiv= "Content-Type " content= "text/html; charset=gb2312 ">
<title> 无标题文档 </title>
<style type= "text/css ">
<!--
.style1 {color: #FFFFFF;
font-size: 14px;
font-weight: bold;
font-family: "宋体 ";
}
-->
</style>
<link href= "css.css " rel= "stylesheet " type= "text/css ">
</head>
<body>
<p>
<%
sql= "select * from T_DEPT_PERSON where MARKET_CODE= '青岛 ' "
set rs0=server.createobject( "adodb.recordset ")
rs0.open sql,conn,1,1
%>
</p>
<table width= "750 " height= "25 " border= "0 " align= "center " cellpadding= "0 " cellspacing= "0 ">
<tr>
<td background= "images/788.gif "> <div align= "center " class= "style1 "> 通 知 管
理 </div> </td>
</tr>
</table>
<table width= "750 " border= "0 " align= "center " cellpadding= "0 " cellspacing= "1 " bgcolor= "#5AAE18 ">
<tr>
<td bgcolor= "#FFFFFF "> <table width= "100% " border= "0 " align= "center " cellpadding= "0 " cellspacing= "0 ">
<tr>
<td> <div align= "center "> 姓 名： </div> </td>
<td> <div align= "center "> 所在部门 </div> </td>
</tr>
<tr>
<td> <div align= "center "> <%=rs0( "PERSON_CNAME ")%> </div> </td>
<td> <div align= "center "> <%=rs0( "DEPT_CODE ")%> </div> </td>
</tr>
</table> </td>
</tr>
</table>
</body>
</html>
[解决办法]
<table width= "100% " border= "0 " align= "center " cellpadding= "0 " cellspacing= "0 ">
<tr>
<td> <div align= "center "> 姓 名： </div> </td>
<td> <div align= "center "> 所在部门 </div> </td>
</tr>
<% do while not rs0.eof %>
<tr>
<td> <div align= "center "> <%=rs0( "PERSON_CNAME ")%> </div> </td>
<td> <div align= "center "> <%=rs0( "DEPT_CODE ")%> </div> </td>
</tr>
<%
rs0.movenext
loop
%>
</table>
