数据库从ACCESS升级到MSSQL无法显示列表内容，急！急！急！

我的网站以前是用ASP+ACCESS数据库，后来数据库资料太多改成MSSQL数据库，其它地方都能正在使用，唯有内容管理页面无法正常显示，页面代码如下
<!--#include file="../Inc/conn.asp"-->
<!--#include file="../Inc/saveimage.asp"-->
<!--#include file="../Inc/Function_Page.asp"-->
<!--#include file="Admin_check.asp"-->
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equtv="Content-Type" content="text/html; charset=gb2312" />
<title>网站后台管理</title>
<link href="images/Admin_css.css" type=text/css rel=stylesheet>
<script src="js/admin.js"></script>
</head><body>
<script language=javascript>
function CheckForm()
{ 
  if (document.myform.Title.value==""){
alert("请填写标题！");
document.myform.Title.focus();
return false;
  }
  if (document.myform.ClassID.value==""){
alert("请选择分类！");
document.myform.ClassID.focus();
return false;
  }
  if (document.myform.Hits.value==""){
alert("请填写浏览次数！");
document.myform.Hits.focus();
return false;
  }
  var filter=/^\s*[0-9]{1,6}\s*$/;
  if (!filter.test(document.myform.Hits.value)) { 
alert("浏览次数填写不正确,请重新填写！"); 
document.myform.Hits.focus();
return false; 
  }
}
</script>
<table width="95%" border="0" cellspacing="2" cellpadding="3"  align=center class="admintable" style="margin-bottom:5px;">
    <tr><form name="form1" method="get" action="Admin_Article.asp?page=<%=page%>">
      <td height="25" bgcolor="f7f7f7">快速查找：
        <SELECT onChange="javascript:window.open(this.options[this.selectedIndex].value,'main')"  size="1" name="s">
        <OPTION value="" selected>-=请选择=-</OPTION>
        <OPTION value="?s=all">所有文章</OPTION>
        <OPTION value="?s=yn0">已审的文章</OPTION>
        <OPTION value="?s=yn1">未审的文章</OPTION>
        <OPTION value="?s=yn2">会员私有文章</OPTION>
          <OPTION value="?s=istop">固顶文章</OPTION>
        <OPTION value="?s=ishot">推荐文章</OPTION>
        <OPTION value="?s=img">有缩略图文章</OPTION>
        <OPTION value="?s=url">转向链接文章</OPTION>
        <OPTION value="?s=user">会员发表的文章</OPTION>
        <OPTION value="?hits=1">按浏览次数排序</OPTION>
      </SELECT>      </td>
      <td align="center" bgcolor="f7f7f7">
        <a href="?hits=1"></a>
        <input name="keyword" type="text" id="keyword" value="<%=request("keyword")%>" class="s26">
        <input type="submit" name="Submit2" class="bnt" value="搜索">
      </form></td>
      <td align="right" bgcolor="f7f7f7">跳转到：
        <select name="ClassID" id="ClassID" onChange="javascript:window.open(this.options[this.selectedIndex].value,'main')">
    <%
   Dim Sqlp,Rsp,TempStr
   Sqlp ="select * from Yao_Class Where TopID = 0 and link=0 order by num"   
   Set Rsp=server.CreateObject("adodb.recordset")   
   rsp.open sqlp,conn,1,1 
   Response.Write("<option value="""">请选择分类</option>") 
   If Rsp.Eof and Rsp.Bof Then
      Response.Write("<option value="""">请先添加分类</option>")
   Else
      Do while not Rsp.Eof   
         Response.Write("<option value=" & """?ClassID=" & Rsp("ID") & """" & "")
 If int(request("ClassID"))=Rsp("ID") then
Response.Write(" selected" ) 
 End if
         Response.Write(">|-" & Rsp("ClassName") & " ("&Mydb("Select Count([ID]) From [Yao_Article] Where ClassID="&rsp("ID")&"",1)(0)&")</option>")  & VbCrLf
 
    Sqlpp ="select * from Yao_Class Where TopID="&Rsp("ID")&" and link=0 order by num"   
    Set Rspp=server.CreateObject("adodb.recordset")   
    rspp.open sqlpp,conn,1,1
Do while not Rspp.Eof 
Response.Write("<option value=" & """?ClassID=" & Rspp("ID") & """" & "")
If int(request("ClassID"))=Rspp("ID") then
Response.Write(" selected" ) 
End if
          Response.Write(">　|-" & Rspp("ClassName") & " ("&Mydb("Select Count([ID]) From [Yao_Article] Where ClassID="&rspp("ID")&"",1)(0)&")")
Response.Write("</option>" )   & VbCrLf
Rspp.Movenext   
       Loop

      Rsp.Movenext   
      Loop   
   End if
%>
        </select></td>
    </tr>
</table>
<%
if request("action") = "add" then 
call add()
elseif request("action")="edit" then
call edit()
elseif request("action")="savenew" then
call savenew()
elseif request("action")="savedit" then
call savedit()
elseif request("action")="yn1" then
call yn1()
elseif request("action")="yn2" then
call yn2()
elseif request("action")="del" then
call del()
elseif request("action")="delAll" then
call delAll()
else
call List()
end ifsub List()
%>
<form name="myform" method="POST" action="Admin_Article.asp?action=delAll">
<table width="95%" border="0"  align=center cellpadding="3" cellspacing="1" bgcolor="#F2F9E8" class="admintable">
<tr> 
  <td colspan="5" align=left class="admintitle">文章列表　[<a href="?action=add">添加</a>]</td></tr>
    <tr bgcolor="#f1f3f5" style="font-weight:bold;">
    <td width="5%" height="30" align="center" class="ButtonList">&nbsp;</td>
    <td width="53%" align="center" class="ButtonList">文章名称</td>
    <td width="20%" height="25" align="center" class="ButtonList">发布时间</td>
    <td width="7%" height="25" align="center" class="ButtonList">浏览</td>
    <td width="15%" height="25" align="center" class="ButtonList">管理</td>    
    </tr>
<%
Hits=request("hits")
s=Request("s")
Articleclass=request("ClassID")
keyword=request("keyword")
Set mypage=new xdownpage
mypage.getconn=conn
mysql="select * from Yao_Article"
if s="yn0" then
mysql=mysql&" Where yn=0"
elseif s="yn1" then
mysql=mysql&" Where yn=1"
elseif s="yn2" then
mysql=mysql&" Where yn=2"
elseif s="istop" then
mysql=mysql&" Where istop=1"
elseif s="ishot" then
mysql=mysql&" Where ishot=1"
elseif s="img" then
mysql=mysql&" Where images<>''"
elseif s="url" then
mysql=mysql&" Where LinkUrl<>''"
elseif s="user" then
mysql=mysql&" Where UserName<>''"
elseif Articleclass<>"" then
mysql=mysql&" Where ClassID="&Articleclass&""
elseif keyword<>"" then
mysql=mysql&" Where Title like '%"&keyword&"%'"
End if
mysql=mysql&" order by "
If Hits=1 then
mysql=mysql&"Hits desc"
Else
mysql=mysql&"DateAndTime desc"
End if
mypage.getsql=mysql
mypage.pagesize=5
set rs=mypage.getrs()
for i=1 to mypage.pagesize
    if not rs.eof then 
%>
    <tr bgcolor="#ffffff" onMouseOver="this.style.backgroundColor='#EAFCD5';" onMouseOut="this.style.backgroundColor='';this.style.color=''">
    <td height="25" align="CENTER"><input type="checkbox" value="<%=rs("ID")%>" name="ID" onClick="unselectall(this.form)" style="border:0;"></td>
    <td height="25">[<a href="?ClassID=<%=rs("ClassID")%>"><%=Classlist(rs("ClassID"))%></a>]<a href="<%=SitePath%><%If html=1 then Response.Write("List.asp?ID="&rs("ID")&"") else Response.Write("Html/?"&rs("ID")&".html") End if%>" target="_blank"><%=rs("Title")%></a> <%if rs("IsTop")=1 then Response.Write("<font color=red>[顶]</font>") end if%><%if rs("IsHot")=1 then Response.Write("<font color=green>[荐]</font>") end if%><%if rs("Images")<>"" then Response.Write("<font color=blue>[图]</font>") end if%><%if rs("IsFlash")=1 then Response.Write("<font color=orange>[幻]</font>") end if%><%If rs("UserID")<>0 then Response.Write(" <font color=blue>["&rs("username")&"]</font>") end if%></td>
    <td height="25" align="center"><%=rs("DateAndTime")%></td>
    <td height="25" align="center"><%=rs("Hits")%></td>
    <td align="center"><%If rs("yn")=0 then Response.Write("已审") end if:If rs("yn")=1 then Response.Write("<font color=red>未审</font>") end if:If rs("yn")=2 then Response.Write("<font color=blue>私有</font>") end if%>|<a href="?action=edit&id=<%=rs("ID")%>&page=<%=page%>">编辑</a>|<%If Mydb("Select Count([ID]) From [Yao_Pl] Where ArticleID="&rs("ID")&"",1)(0)>0 Then Response.Write("<a href=""Admin_pl.asp?id="&rs("ID")&""">评论</a>") else Response.Write("<a href=""#""><font style='color:#ccc;'>评论</font></a>") End if%></td>    
    </tr>
<%
        rs.movenext
    else
         exit for
    end if
next
%>
<tr><td align="center" bgcolor="f7f7f7"><input name="Action" type="hidden"  value="Del"><input name="chkAll" type="checkbox" id="chkAll" onClick=CheckAll(this.form) value="checkbox" style="border:0"></td>
  <td colspan="4" bgcolor="f7f7f7"><font color=red>移动到：</font>
    <select id="ytype" name="ytype">
      <%call Admin_ShowClass_Option()%>
    </select>
    &nbsp;
    <input name="Del" type="submit" class="bnt" id="Del" value="移动">
<input name="Del" type="submit" class="bnt" id="Del" value="更新时间">
    <input name="Del" type="submit" class="bnt" id="Del" value="删除">
    <input name="Del" type="submit" class="bnt" id="Del" value="批量未审">
    <input name="Del" type="submit" class="bnt" id="Del" value="批量审核">
    <input name="Del" type="submit" class="bnt" id="Del" value="推荐">
    <input name="Del" type="submit" class="bnt" id="Del" value="解除推荐">
    <input name="Del" type="submit" class="bnt" id="Del" value="固顶">
    <input name="Del" type="submit" class="bnt" id="Del" value="解除固顶"></td>
  </tr><tr><td bgcolor="f7f7f7" colspan="5">
<div id="page">
<ul style="text-align:left;">
    <%=mypage.showpage()%>
    </ul>
</div>
</td></tr></table>
</form>
<%
rs.close
set rs=nothing
end sub
%>
<!--#include file="Admin_copy.asp"-->
</body>
</html>
文章列表不显示内容，请高手帮忙看看