登陆界面验证程序，缺少 'End' ？高分相送。谢谢

登陆界面验证程序。
conn.asp代码：
     <%
       Set conn=server.CreateObject("adodb.connection")
       connstr="provider=microsoft.jet.oledb.4.0;data source="&server.mappath("../userdb2003a.mdb")
       conn.open connstr
     %>

dl.asp传递给dl2.asp

dl.asp的代码：

..........
<form name="form1" method="post" action="dl2.asp"> 
<table width="35%" border="1" align="center" cellpadding="0" cellspacing="0"> 
<tr> 
<td width="24%"><span class="style1">用户名</span></td> 
<td width="76%"><span class="style1"> 
<input name="user" type="text" id="user" size="16"> 
</span></td> 
</tr> 
<tr> 
<td><span class="style1">密码</span></td> 
<td><span class="style1"> 
<input name="pwd" type="text" id="pwd" size="16"> 
</span></td> 
</tr> 
<tr> 
<td colspan="2"><div align="center"> 
<input type="submit" name="Submit" value="提交"> 
<input type="reset" name="Submit2" value="重置"> 
</div></td> 
</tr> 
</table> 
</form> 
..........




dl2.asp代码如下：
<!--#include file=conn.asp--> 
<% 
dim user,pwd 
user=trim(request.Form("user")) 
pwd=trim(request.Form("pwd")) 
if len(user)=0 then 
response.Redirect("dl.asp") 
response.End() 
else if len(pwd)=0 then 
response.Redirect("dl.asp") 
response.End() 
set rs=server.createobject("adodb.recordset") 
sql="select * from sales where username='"&user&"' and password='"&pwd&"'" 
rs.open sql,conn,1,1 
if rs.bof or rs.eof then 
response.write "您输入的用户名或密码错误!" 
response.write "<a href=dl.asp>" 
response.write "返回</a>" 
response.end 
else 
response.write "登陆成功" 
response.end 
end if 
rs.close 
set rs=nothing 
conn.close 
set conn=nothing 
%>

调试错误时：
Microsoft VBScript 编译器错误 错误 '800a03f6' 

缺少 'End' 

/admin_sales/dl2.asp，行 27  （set conn=nothing ）



请问什么地方有毛病？？高人指点，高分相送。