31
Load table from SQLServer: ASP
l<%
lConst adOpenStatic = 3
lDIM nStart,oConn,oRS,cFields
lcFields="_ID,Appointment_Notes FROM Visit_"
lcFields="* FROM Visit_"
lnStart=TIMER
lResponse.Write("Start "+CSTR(NOW())+"<br>")
lSET oConn = Server.CreateObject("ADODB.Connection")
loConn.Open "DRIVER={SQL Server};SERVER=(local);DATABASE=test;UID=user;Password=pass;"
lSET oRS = Server.CreateObject("ADODB.Recordset")
loRS.Open "SELECT "+cFields+" WHERE Appointment_Notes IS NOT NULL", _
l  oConn,adOpenStatic
lResponse.Write("Done "+CSTR(TIMER-nStart)+" "+CSTR(oRS.RecordCount)+"<br>")
l%>
l
lOn 850 MHz PIII: First cFields list gives .25, second gives .70 seconds