请帮忙看以下代码。
我用interdev6.0+sqlserver2000。我写的代码为什么无法提取记录个数?请指教,谢谢!
<%
dim objConn
Set objConn=Server.CreateObject("ADODB.Connection")
objConn.ConnectionString="Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=Northwind;Data Source=BLUE"
objConn.Open
'Dim objRs
dim strQ
strQ="select * from Customers"
Set objRs=objConn.Execute(strQ)
'objRs.Open strQ,objConn
'if objRs.RecordCount>0 then
'document.write"<TABLE BORDER=2>"
objRs.MoveLast
objRs.MoveFirst
Response.Write objRs.RecordCount
'set objRs=nothing
'end if
%>