哪位老大帮我看看应该怎么增加或修改
我现在已经实现了帐号或密码为空或错误时弹出窗口,确定转入前一页.
还有一个问题就是我希望的Customer   Type字段为 "1 "的就弹出提示 "帐号过期 ",确定同样转入前一页.(这个字段只有0和1)
代码如下:未加入弹出提示 "账号过期 "代码.请求哪位老大帮帮我怎么修改.

<%option   explicit
Response.Buffer   =TRUE
dim   name,pws,err,errcode,connstr
dim   conn,con,rs,rst,sql
Response.Write   " <meta   http-equiv=Content-Type   content=text/html;   charset=gb2312> "
Response.Write   " <title> 正在登陆... </title> "

name=(request( "vipname "))
pws=trim(request( "vippws "))
set     conn=server.createobject( "ADODB.connection ")
  conn.open   "driver={Microsoft   Access   Driver   (*.mdb)};dbq= "   &   _  
                                      Server.MapPath( "../vip_data/vip.mdb ")
set     rs=server.createobject( "ADODB.recordset ")
errcode=0

if   name= " "   or   not   isnumeric(name)   then
response.Write   " <script   language=javascript> alert( '此卡号或密码不存在,请重新输入! ');window.location.href= '?action=showday ';Bjavascript:history.go(-1) </script> "
Response.End
end   if
if   pws= " "   then
response.Write   " <script   language=javascript> alert( '此卡号或密码不存在,请重新输入! ');window.location.href= '?action=showday ';Bjavascript:history.go(-1) </script> "
Response.End
end   if
rs.Open   "select   *   from   [VIP   Customer   Master]   where   [Card   No]= "   &   name   & " "   ,conn,1,3
if   rs.RecordCount   =0   then
response.write   " "
Response.End
end   if
err= "dd "
if   rs.Fields( "pws ")= " "   then        
      if   not   isnumeric(pws)   then
response.Write   " <script   language=javascript> alert( '此卡号或密码不存在,请重新输入! ');window.location.href= '?action=showday ';Bjavascript:history.go(-1) </script> "
    rs.close
    response.end
    end   if  
     
      if   clng(pws) <> clng(name)       then
response.Write   " <script   language=javascript> alert( '此卡号或密码不存在,请重新输入! ');window.location.href= '?action=showday ';Bjavascript:history.go(-1) </script> "
  rs.Close  
Response.End
        end   if
else
      if   trim(rs.Fields( "pws "))   <>   pws     then
response.Write   " <script   language=javascript> alert( '此卡号或密码不存在,请重新输入! ');window.location.href= '?action=showday ';Bjavascript:history.go(-1) </script> "
      rs.Close  
      Response.End  
      end   if
end   if

session( "passed ")=true


set     con=server.createobject( "ADODB.connection ")
connstr= "Provider=Microsoft.Jet.OLEDB.4.0;Data   Source= "   & &nbs