肛塞尾巴打屁股:关于ASP的!~谁来帮我!~

<!--#include file="manage/mConn.asp"-->
<!--#include file="manage/mConst.asp"-->
<%

If Not ChkPost Then
Response.Write ("<script Language=Javascript>alert('Please input username/password and try again!!!');history.go(-1)</script>")
Response.End
End If

If CheckStr(Request.Form("login_name"))="" Then
Response.Write ("<script Language=Javascript>alert('Please input username/password and try again!!!');history.go(-1)</script>")
Response.End
End If

If CheckStr(Request.Form("login_pwd"))="" Then
Response.Write ("<script Language=Javascript>alert('Please input username/password and try again!!!');history.go(-1)</script>")
Response.End
End If

Dim UserName,Password
UserName=CheckStr(Request.Form("login_name"))
Password=CheckStr(Request.Form("login_pwd"))

Dim mRs
Set mRs=Server.CreateObject("Adodb.RecordSet")
Set mRs=Conn.Execute("Select Login_name,Login_Pwd,stat,Is_Login,Login_time,sess_ID From [m_member] Where Login_Name='"&UserName&"' Order By ID Desc")
if isdate(mRs("Login_time")) then
if datediff("n",mRs("Login_time"),now())>1 then
Set Rs6=Conn.Execute("update m_member set Is_Login=0,sess_ID='"&session.SessionID&"' Where Login_Name='"&UserName&"'")
大家帮我看下哪里错误了
最后他提示500错误!~但是刷新没错`!数据库连接没错~!