ASP查询分列显示问题

 <table border="1" width="80%">

  <% 

dim rsname,i

i=0

rsname=request("name")

rsname=Trim(request("name"))

set rs=server.CreateObject("adodb.recordset")  '(建立recordset对象) 

sqlstr="select * from pinmu  where GOODSITEMNAME like'%"&rsname&"%' order by id desc" 

  '---->(message为数据库中的一个数据表即你要显示的数据所存放的数据表) 

rs.open sqlstr,conn,1,3         '---->(表示打开数据库的方式) 

rs.movefirst                    '---->(将指针移到第一条记录) 

while not rs.eof                  '---->(判断指针是否到末尾) 

%>



<%if i Mod 2 = 0 then%>

<tr><td>

<a href="javascript:()"> 

  <%

response.write(rs("GOODSITEMNAME"))      '---->(显示数据表message中的name字段) 

%>

  </a>

  </td>

  <%else%>

  <td>

   <a href="javascript:()"> 

   <%

response.write(rs("GOODSITEMNAME"))      '---->(显示数据表message中的name字段) 

%>

 </a>

</td></tr>

<%

end if

i=i+1

%>

 <%

rs.movenext                    ' ---->(将指针移动到下一条记录) 

wend %> 

</table>

<%                          ' ---->(循环结束) 

'------------------------------------------------------         

rs.close 

conn.close                    '这几句是用来关闭数据库 

set rs=nothing 

set conn=nothing 

'