新手求教ASP连SQL Server的问题

在SQL Server新建了一个数据库叫Shop，在Shop中新建了一个表Cup

现在需要对这个表进行访问，显示其中的内容

VBScript code

<%

Dim Conn, rs
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={SQL Server}; Database=Shop;
                    Server=(Local);uid=sa;pwd=123456"
                    
Set rs=Server.CreateObject("ADODB.Recordset")
SQL="SELECT * FROM Cup"
rs.open SQL,Conn,3,2

%>

<%

Do While Not rs.eof

Response.Write("<td>"+rs("Name")+"</td>")
Response.Write("<td>"+rs("Color")+"</td>")
Response.Write("</tr>")
rs.MoveNext

Loop

%>

测试无法显示，错在哪里

HTML code

<%

Dim Conn, rs
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={SQL Server}; Database=Shop;
                    Server=(Local);uid=sa;pwd=123456"
                    
Set rs=Server.CreateObject("ADODB.Recordset")
SQL="SELECT * FROM Cup"
rs.open SQL,Conn,1,1

%>
<table>
<%

Do While Not rs.eof

  Response.Write("<tr><td>"+rs("Name")+"</td>")
  Response.Write("<td>"+rs("Color")+"</td>")
  Response.Write("</tr>")
  rs.MoveNext
Loop
rs.close()
set rs=nothing
conn.close()
set conn=nothing
%>
</table>