<%@ Language=VBScript %> <% Option Explicit %> Dim StartTime, EndTime StartTime = Timer Dim objCN ' ADO Connection object Dim objRS ' ADO Recordset object Dim strsql ' SQL query string Dim objField1, objField2, objField3, objField4 ' 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 Field1,Field2,Field3,Field4 FROM tblData" ' Execute the SQL query and set the implicitly created recordset Set objRS = objCN.Execute(strsql) ' Set up field references after opening recordset Set objField1 = objRS("Field1") Set objField2 = objRS("Field2") Set objField3 = objRS("Field3") Set objField4 = objRS("Field4") ' Write out the results as pre-formatted text Response.write "
"
Do While Not objRS.EOF
	Response.write objField1
	Response.write vbTab
	Response.write objField2
	Response.write vbTab
	Response.write objField3
	Response.write vbTab
	Response.write objField4
	Response.write vbTab
	Response.write vbCrLf
	objRS.MoveNext
Loop
Response.write "
" objRS.Close objCN.Close Set objCN = Nothing Set objRS = Nothing EndTime = Timer Response.write "

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

 " %>