<%
Set rs=Server.CreateObject("Adodb.Recordset")
rs.open "select name from news",conn,1,1
do while not rs.eof
dim newstitle=rs("name")
rs.movenext
loop
rs.close
set rs=nothing
%>
<table width="660">
<tr>
<td><img src="reguest1.gif" /><a href=""><%=newstitle%></a></td>
代码就这点点。
错误类型：
Microsoft VBScript 编译器错误 (0x800A0401)
语句未结束
/js.asp, line 43, column 13
dim newstitle=rs("name")
------------^
高手帮帮忙。。 大概是do while 没有结束 。帮帮忙。。人在等。。谢谢各位了 分不都。。代表我的诚意
dim newstitle
newstitle=rs("name")
呵呵呵，谢谢这位仁兄了。。出来效果了。
。net搞习惯了。。
谢谢。。
不对。。咋只有最后一条数据啊。
我要循环输出多条数据，再帮帮忙
<table width="660">
<tr>
<%
Set rs=Server.CreateObject("Adodb.Recordset")
rs.open "select name from news",conn,1,1
do while not rs.eof
response.write "<td><img src='reguest1.gif'/><a href=''>"&rs("name")&"</a></td>"
rs.movenext
loop
rs.close
set rs=nothing
%>
</tr></table>
不知道哦！
兄
