发一个简单的ASP代码，请大伙指正

[code=ASP]
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%Response.CodePage=65001%>
<%Response.Charset="UTF-8" %>

<%
  '声明一个名为 xiaomanger 的类
Class xiaomanger
''定义一个方法
Public Sub shuchu(rs,cs)
str=" <div class=" & "'css'" & "> <table>"
'循环所有记录
for i=1 to rs.recordcount
str=str & chr(13) & " <tr>"
'循环所有字段
for each field in rs.fields '  RS.Fields.Count-1
str=str & " <td>" & left(field.Value,5) & " </td>"
'记录字段的循环结束
next
'记录条数的循环结束
str=str & " </tr>"
rs.movenext
next
str=str & chr(13) &" </table> </div>"
Response.write str
End Sub
End Class
  sqlconn="Driver={SQL Server};Server=服务器;UID=登录名;PWD=密码;Database=数据库名"
  set conn=server.createobject("ADODB.Connection")
  set rs=server.CreateObject("adodb.recordset")
  conn.open sqlconn
  Set xiaomanger1=New xiaomanger ''定义一个名为xiaomanger1的xiaomanger对象实例
  rs.open