<%
Dim DataConn, cmdDC, rsDC
Dim Item
Dim iFieldCount, iLoopVar
Dim strLTorGT, iCriteria, strSortBy, strOrder

' Retrieve QueryString Variables and convert them to a usable form





' Create and establish data connection
Set DataConn = Server.CreateObject("ADODB.Connection")
DataConn.ConnectionTimeout =  15 
DataConn.CommandTimeout =  30 


'Our SQL Server code - use above line to use sample on your server
DataConn.Open "Provider=SQLOLEDB;Data Source=192.168.0.1;" _
	& "Initial Catalog=rsvbase;User Id=sa;Password=sa;" _
	& "Connect Timeout=15;Network Library=dbmssocn;"


' Create and link command object to data connection then set attributes and SQL query
Set cmdDC = Server.CreateObject("ADODB.Command")
cmdDC.ActiveConnection = DataConn
cmdDC.CommandText = "SELECT * FROM Products;"
cmdDC.CommandType =  1 

' Create recordset and retrieve values using command object
Set rsDC = Server.CreateObject("ADODB.Recordset")
' Opening record set with a forward-only cursor (the  0 ) and in read-only mode (the  1 )
rsDC.Open cmdDC, ,  0 ,  1 
%>

<p><strong>Results of <%= cmdDC.CommandText %></strong></p>

<table border="1">
	<thead>
	<tr>
<% For Each Item in rsDC.Fields %>
		<th><%= Item.Name %></th>
<% Next %>
	</tr>
	</thead>
<%
' Loop through recordset and display results
If Not rsDC.EOF Then rsDC.MoveFirst

' Get the number of fields and subtract one so our loops start at  0 
iFieldCount = rsDC.Fields.Count -  1 

' Continue till we get to the end, and while in each <TR> loop through fields
Do While Not rsDC.EOF
%>	<tr>
		<% For iLoopVar = 0 to iFieldCount %>
		<td><%= rsDC.Fields(iLoopVar) %></td>
		<% Next %>
	</tr>
<%
rsDC.MoveNext
Loop
%>
</table>

<%
' Close Data Access Objects and free DB variables
	rsDC.Close
	Set rsDC =  Nothing
	' can't do a "cmdDC.Close" !
	Set cmdDC = Nothing
	DataConn.Close
	Set DataConn = Nothing
%>

<br />