32
Load
table from SQLServer: ASPX in compatibility
mode
<%@ Page language="VB"
debug="true" aspcompat="true" %>
<%
Const adOpenStatic = 3
DIM cFields AS String,nStart AS
Double,oConn AS Object,oRS AS Object
cFields="_ID,Appointment_Notes
FROM Visit_"
cFields="* FROM
Visit_"
nStart=TIMER
Response.Write("Start
"+CSTR(NOW())+"<br>")
oConn=Server.CreateObject("ADODB.Connection")
oConn.Open("DRIVER={SQL
Server};SERVER=(local);DATABASE=test;UID=user;Password=pass;")
oRS=Server.CreateObject("ADODB.Recordset")
oRS.Open("SELECT
"+cFields+" WHERE Appointment_Notes IS NOT NULL",oConn,adOpenStatic)
Response.Write("Done
"+CSTR(TIMER-nStart)+"
"+CSTR(oRS.RecordCount)+"<br>")
'must close explicitly or subsequent
page access will be slow (because of delayed
'garbage collection??)
oRS.Close
oConn.Close
%>
On 850 MHz PIII: First cFields list
gives .25, second gives .70 seconds