37
Use data from
SQLServer: ASPX record sets
<%@ Page language="VB"
debug="true" aspcompat="true" %>
<%
Const adOpenStatic = 3
DIM nStart AS Long,i AS Integer,j AS
Long,k AS Long,cNotes AS String
DIM oField AS Object
nStart=TIMER
Response.Write("Start
"+CSTR(NOW())+"<br>")
DIM oConn =
Server.CreateObject("ADODB.Connection")
oConn.Open("DRIVER={SQL
Server};SERVER=(local);DATABASE=test;UID=user;Password=pass;")
DIM oRS =
Server.CreateObject("ADODB.Recordset")
oRS.Open("SELECT
_ID,Appointment_Notes FROM Visit_",oConn) ',adOpenStatic)
Response.Write(oRS.RecordCount)
j=0
k=0
DO WHILE NOT oRS.EOF
j=j+oRS("_ID").Value
oField=oRS("Appointment_Notes")
IF oField.ActualSize>0
cNotes=oField.Value
k=k+LEN(cNotes)
END IF
oRS.MoveNext
LOOP
Response.Write("Done
"+CSTR(TIMER-nStart)+" "+CSTR(j)+"
"+CSTR(k)+"<br>")
%>
On 850 MHz PIII: 4.2 seconds, 26
seconds if adOpenStatic parameter is included (to be able to
count rows and navigate back and
forth in the record set).