asp小错误，高手来相助！！

问：是我机器有问题还是程序有问题？？原程序为：
<html>
<head>
<title>dbtable</title>
</head>
<body bgcolor="#ffffff">
<%
set conntemp=server.createobject("adodb.connection")
conntemp.open "DSN=pubs;Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=pubsn data source=accp"
set rstemp=conntemp.execute("select * from publishers")
howmanyfields=rstemp.fields.count-1
%>
<table border=1>
<tr>
<%for i=0 to howmanyfields%>
<td><b><%=rstemp(i).name%></b></td>
<%next%>
</tr>
<%do while not rstemp.eof%>
<tr>
<%for i=0 to howmanyfields%>
<td valign=top><%=rstemp(i)%></td>
<%next%>
</tr>
<%rstemp.movenext
 loop%>
</table>
<%
rstemp.close
set rstemp=nothing
conntemp.colse
set conntemp=nothing
%>
</body>
</html>IE报错为：
Microsoft VBScript 编译器错误 错误 '800a03f6' 缺少 'End' /iisHelp/common/500-100.asp，行242 Microsoft OLE DB Provider for SQL Server 错误 '80040e4d' Login failed for user 'ACCP\IUSR_ACCP'. /dbpubslist4.asp，行8