36
Use data from
SQLServer: ASP
<%
Const adOpenStatic = 3
DIM
nStart,oConn,oRS,i,j,k,cNotes,oField
nStart=TIMER
Response.Write("Start
"+CSTR(NOW())+"<br>")
SET oConn =
Server.CreateObject("ADODB.Connection")
oConn.Open "DRIVER={SQL
Server};SERVER=(local);"+ _
"DATABASE=test;UID=user;Password=pass;"
SET oRS =
Server.CreateObject("ADODB.Recordset")
oRS.Open "SELECT
_ID,Appointment_Notes FROM Visit_",oConn ',adOpenStatic
j=0
k=0
DO WHILE NOT oRS.EOF
j=j+oRS("_ID").Value
cNotes=oRS("Appointment_Notes").Value
IF NOT ISNULL(cNotes) THEN
k=k+LEN(cNotes)
END IF
IF NOT ISNULL(cString) THEN k=k+LEN(cString)
oRS.MoveNext
LOOP
Response.Write("Done
"+CSTR(TIMER-nStart)+" "+CSTR(j)+"
"+CSTR(k)+"<br>")
%>
On 850 MHz PIII: 2.2 seconds, 26
seconds if adOpenStatic parameter is included (to be able to
count rows and navigate back and
forth in the record set).