s

<% @Language = "VBScript" %>
<% Response.buffer = true %>

<html>
<head>
<title>QODBC Customer List Demo Page</title>
</head>

<body TOPMARGIN="3" LEFTMARGIN="3" MARGINHEIGHT="0" MARGINWIDTH="0" BGCOLOR="#FFFFFF"
LINK="#000066" VLINK="#000000" ALINK="#0000FF" TEXT="#000000">
QODBC Customer List Demo Page<BR>
<%
Const adOpenStatic = 3
Const adLockOptimistic = 3
Const adUseClient = 3
Const adSchemaTables = 20
Const adSchemaColumns = 4
Const adSchemaIndexes = 12
Const adSchemaPrimaryKeys = 28

Dim oConnection
Dim oRecordset
response.write "Preparing to Create Connection Object<BR>" & vbCrLf
response.flush

Set oConnection = CreateObject("ADODB.Connection")
response.write "ADO Connection Created<BR>" & vbCrLf
response.flush

Set oRecordset = CreateObject("ADODB.Recordset")
response.write "ADO Recordset Created<BR>" & vbCrLf
response.flush

oConnection.Open "QuickBooks Data" 'This is the name of your System DSN
response.write "DSN QuickBooks Data Open<BR>" & vbCrLf
response.flush

oRecordset.CursorLocation = adUseClient
oRecordset.Open "SELECT * FROM Customer" , oConnection, adOpenStatic, adLockOptimistic
Response.Write "<BR>" & vbCrLF
response.write "ADO Recordset Open<BR>" & vbCrLf
response.flush
Response.Write "Tables:" & "<BR>" & vbCrLF
Response.Write "*****************************" & "<BR>" & vbCrLF
Set oRecordSet = oConnection.OpenSchema(adSchemaTables, Array(Empty, Empty, Empty, "TABLE"))
sMsg = ""
Do While (not oRecordset.EOF)
	Response.Write oRecordSet.Fields("TABLE_NAME") & "<BR>" & vbCrLF
	oRecordset.MoveNext
Loop
Response.Write "*****************************" & "<BR>" & vbCrLF
oRecordset.Close
Set oRecordset = Nothing
oConnection.Close
Set oConnection = Nothing
%>
</html>