<%@ 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 using the field references
Response.write "
"
Do While Not objRS.EOF
Response.write "
"
Response.write objField1
Response.write "
"
Response.write objField2
Response.write "
"
Response.write objField3
Response.write "
"
Response.write objField4
Response.write "
"
objRS.MoveNext
Loop
Response.write "
"
objRS.Close
objCN.Close
Set objCN = Nothing
Set objRS = Nothing
EndTime = Timer
Response.write "