求高手帮忙解答 asp 会员登陆时间验证

我想做一个会员过期就关闭 前有表里有  setupdata是会员过期日期！我用的是SQL
改怎么写
  这个是原来代码
<!--#include file="inc/Conn.asp"-->
<!--#include file="INC/funs.asp"-->
<!--#include file="INC/md5.asp"-->
<%
   Dim username,password,md5pass
   UserName=SelctStr(Trim(Request("UserName")))
   PassWord=SelctStr(Trim(Request("PassWord")))
   md5pass=md5(PassWord,32)
   '/**********用户登陆检测**********/
   Session("Info_Username")=""
   ErrMsg=""
   
  sql="select id,md5pass,setupdata from leaguelistnd where username='"&UserName&"'"
   Set Rs = Server.CreateObject("ADODB.Recordset")
   Rs.OPEN SQL,Conn,1,1
   IF Not Rs.EOF Then     
      '先验证md5密码
     IF Rs("isuser")=1 Then
     
         IF Rs("md5pass")<>md5pass Then
           ErrMsg="登陆失败：登录密码错误！"
         End If
   
     Else
      ErrMsg="登陆失败：帐户还没有经过审查！"
     End IF
     Session("Info_Id")=Rs("Id")
   Else  
    ErrMsg="登陆失败：登陆用户名或登陆密码错误！"
   End IF   

   IF ErrMsg<>"" Then
    Response.Write "<script language=JavaScript>alert('"&ErrMsg&"');window.history.back(-1);</script>"
    Response.End()

   Else
    Response.write  "<script language=JavaScript>alert('登录成功!');window.location='index.asp';</script>"
    Response.End()
   End IF
      Rs.Close
   Set Rs=Nothing
   Conn.Close
   Set Conn=Nothing
%>