asp登陸驗証系統問題 急死人的問題 100分求解決,该怎么解决

asp登陸驗証系統問題 急死人的問題 100分求解決
錯誤提示:錯誤類型:
ADODB.Recordset   (0x800A0BB9)
引數可能有類型錯誤,或超過可接受的定義範圍,或與其他引數衝突。
/check1.asp,   line   40                              

下面標記好了40行的位置


問題困擾我一個月了,請幫忙解決啊,幫忙在電腦上調試     asp+sql

三個文件index1.asp     conn1.asp     check1.asp


瀏覽器類型:


index1.asp


<%
dim   rndnum,verifycode
randomize

do   while   len(rndnum) <4
num1=cstr(chr((57-48)*rnd+48))
rndnum=rndnum&   num1
loop
session( "verifycode ")=rndnum

%>
<html>
<head>
<meta   name= "GENERATOR "   content= "Microsoft   FrontPage   5.0 ">
<meta   name= "ProgId "   content= "FrontPage.Editor.Document ">
<meta   http-equiv= "Content-Type "   content= "text/html;   charset=gb2312 ">
<title> 明日实业办公自动化系统 </title>


<style   type= "text/css ">
<!--
.style1   {
font-size:   16pt;
font-weight:   bold;
}
.style2   {font-size:   10pt}
.style3   {font-size:   16px}
-->
</style>
</head>
<body>
<table   width= "520 "   height= "264 "   border= "0 "   align= "center ">
    <tr>
        <td   height= "21 "   bgcolor= "#CCFFFF "> &nbsp; </td>
    </tr>
    <tr>
        <td   height= "75 "   bgcolor= "#FFFF66 ">     <div   align= "center "   class= "style1 ">
            <p> 辦   公   自   動   化   系   統 </p>
            <p   align= "right ">   <span   class= "style2 "> system   user   login   </span> </p>
        </div> </td>
    </tr>
    <tr>  
        <td   height= "62 "> <form     name= "form1 "   action= "check1.asp?action=login "   method= "POST ">
            <table   width= "518 "   height= "150 "   border= "0 ">
                <tr>
                    <td   colspan= "3 "> 登陸窗口: </td>
                    </tr>
                <tr>
                    <td   width= "60 "> &nbsp; </td>
                    <td   width= "73 "> 用戶名: </td>
                    <td   width= "371 "> <label>
                        <input   name= "admin_name "   type= "text "   id= "admin_name "     onFocus= "this.select(); "   onMouseOver= "this.style.background= '#EAEAEA '; "     onMouseOut= "this.style.background= 'FFFFFF ' ">