%@ 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
" %>