<%@ Language=VBScript %> <% Option Explicit %> <% Dim StartTime, EndTime StartTime = Timer Dim objCN ' ADO Connection object Dim objRS, objRS2 ' ADO Recordset objects Dim strsql ' SQL query string Dim RecordsArray, i ' Create a connection object Set objCN = Server.CreateObject("ADODB.Connection") ' Connect to the data source objCN.ConnectionString = "DSN=datasource" objCN.Open ' Prepare a SQL query string strsql = "SELECT * FROM tblData" ' Execute the SQL query and set the implicitly created recordset Set objRS = objCN.Execute(strsql) ' Write out the results using GetRows in a loop Response.write "

"
Do While Not objRS.EOF
	RecordsArray = objRS.GetRows(30)
	
	For i = 0 To UBound(RecordsArray, 2)
		Response.write RecordsArray(0, i)
		Response.write vbTab
		Response.write RecordsArray(1, i)
		Response.write vbTab
		Response.write RecordsArray(2, i)
		Response.write vbTab
		Response.write RecordsArray(3, i)
		Response.write vbTab
		Response.write vbCrLf
		
		' Issue a dummy query and write out the result
		Set objRS2 = Server.CreateObject("ADODB.RecordSet")
		strsql = "SELECT COUNT(*) FROM tblData WHERE Field1="&RecordsArray(0, i)
		objRS2.Open strsql, "DSN=datasource", adOpenForwardOnly, adLockReadOnly
		Response.write "Dummy query result="
		Response.write objRS2(0)
		objRS2.Close
		Set objRS2 = Nothing
		Response.write vbCrLf
	Next
Loop
Response.write "

" objRS.Close objCN.Close Set objCN = Nothing Set objRS = Nothing EndTime = Timer Response.write "

processing took "&(EndTime-StartTime)&" seconds

" %>