图片输出的问题，在线等！

[sure9961]

哪位知道我的错误所在，请多多指点，小弟先谢过了。
******************************************

数据库连接没有问题，

<%
set cn=server.createobject("adodb.connection")
cn.open"bank"
set rs=server.createobject("adodb.recordset")
strsql="select * from user where username='admin'"
rs.open strsql,cn
if rs.eof then
response.write"没有记录！"
else
response.write"用户及其相片显示如下"

do while not rs.eof
username=rs("username")
pic=rs("pic")
'数据库中admin对应的pic值为：img src="d:\1.jpeg"
%>

'下面对数据进行输出
<center>
<table border=1>
<tr>
<td weith="123" height="80"><center><%=username%></center></td>
<td weith="123" height="80"><<%=pic%>></td>
</tr>
</table>
</center>


<%
rs.movenext
loop
rs.close
set rs=nothing
cn.close
set cn=nothing

end if
%>

但是提示说出现下面的错误：


Microsoft VBScript 编译器错误 错误 '800a03f6'

缺少 'End'

/iisHelp/common/500-100.asp，行242

ADODB.Recordset 错误 '800a0cc1'

项目在所需的名称或序数中未被发现。

/pic.asp，行14

[sure9961]

那样子不行，后来我把程序改为：
<%
set conngraph=server.createobjcet("adodb.connection")
conngraph.connectionstring="driver={microsoft access driver(*.mdb)};dbq="&server.mappath("pic.mdb")&""
conngraph.open

set rs=server.createobject("adodb.recordset")
strsql="select * from pic where id=clng(1) "
rs.open strsql,conngraph
response.contenttype="image/*"
'在输出到浏览器之前指定response.contenttype="image/*",以便正常显示图片
response.binarywrite rs("pic").getchunk(7500000)
rs.close
set rs=nothing
set conngraph=nothing
%>

而且我检查过id=clng(1）没有问题

但还是不行啊，又出现下面的错误：麻烦再帮我看看，谢了。

Microsoft VBScript 编译器错误 错误 '800a03f6'

缺少 'End'

/iisHelp/common/500-100.asp，行242

Microsoft VBScript 运行时错误 错误 '800a01b6'

对象不支持此属性或方法: 'server.createobjcet'

/look.asp，行2

[sure9961]

将首行server.createobjcet("adodb.connection")改为
server.createobject("adodb.connection")后出现下面的错误：


Microsoft VBScript 编译器错误 错误 '800a03f6'

缺少 'End' "

/iisHelp/common/500-100.asp，行242

Microsoft OLE DB Provider for ODBC Drivers 错误 '80004005'

[Microsoft][ODBC 驱动程序 管理器] 未发现数据源名称并且未指定默认驱动程序

/new.asp，行4

[dingdi]

pic字段是什么呀。代表图片的路径码？那就把此内容做为路径
<img src="<%=rs("pic")%>">看看

[zhang_luo]

<%
rs.movenext
loop
rs.close
set rs=nothing
cn.close
set cn=nothing

end if
%>

这样写：


<%
rs.movenext
loop
end if
rs.close
set rs=nothing
cn.close
set cn=nothing
%>

[zhang_luo]

还有就是我不建议你的查询那样做，写代码不容易检查
也不方便，不怎么爽（ 我个人观点，看你个人习惯）

[lxxstarii]

strsql="select * from user where username='admin'"改为

strsql="select * from user where username='"&admin&"'"

[monkeys]

你需要将end if放到rs.close前面

应该就可以了