急急急！高手大哥大姐们帮帮忙！

用下面这段换换, 看行不行, 把你那段全换





<%
on error resume next
dim rs
UserName1=checkstr(request.form("UserName"))
passwd1=md5(trim(request.form("passwd")))
verifycode=checkstr(request.form("verifycode"))
set rs=server.createobject("adodb.recordset")
sql="select * from admin where username='"&username1&"'"
rs.open sql,conn,1,3
rs("IP")=Request.ServerVariables("REMOTE_ADDR")
rs("lastlogin")=Now()
rs("logins")=rs("logins")+1
rs.update
response.cookies("UserName")=RS("Username")
response.cookies("KEY")=rs("OSKEY")
response.cookies("purview")=rs("purview")
response.cookies("fullname")=rs("fullname")
response.cookies("reglevel")=rs("reglevel")
response.cookies("passwd")=rs("passwd")
response.cookies("sex")=rs("sex")
response.cookies("reglevel")=rs("reglevel")
rs.close
set rs=nothing
conn.execute("delete from uploadpic where username='"&request.cookies("username")&"'")
response.redirect "index.asp"

%>

这样提交后，页面无法显示了！