1. 你rs没定义
Set rs =Server.CreateObject("ADODB.RecordSet")
With rs
.LockType = ....
.CursorType = ....
End With
2. rs.fields.count应该是rs.Count
3. If rs = BOF AND rs = EOF Then
'What????
End If
for i=0 to rs.fields.count-1% >
改为
for i=0 to rs.fields.count-1 %>
百分号和“>”中间不能有空格
最好把错误的提示贴上来,就知道错误在哪里。