alrb1
05-31-2003, 09:08 AM
I have attached the code I am using and the database file. When I open the ASP page in the browser I get a return of all 1's. Any ideas on what I am doing wrong?
Thanks
<%
Option Explicit
Dim strConnect
%>
<!-- #include file="datastore.asp" -->
<!-- METADATA TYPE="typelib"
FILE="C:\Program Files\Common Files\SYSTEM\ADO\msado15.dll" -->
<HTML>
<HEAD>b
<TITLE>Marwan's Middle East Marketplace </TITLE>
</HEAD>
<BODY>
<%
Dim objRS
Dim avarFields
Dim intRow
Dim intCol
Dim intLastRow
Dim intLastCol
set objRS = Server.CreateObject ("ADODB.Recordset")
objRS.Open "[DVD Programs]", strConnect, adOpenKeyset, adLockReadOnly, adCmdTable
avarFields = objRS.GetRows
objRS.Close
Set objRS = Nothing
intLastCol = UBound(avarFields, 1)
intLastRow = UBound(avarFields, 2)
For intLastRow = 0 To intLastCol
For intLastCol = 0 To intLastRow
Response.write avarFields(intCol, intRow) & " "
Next
Response.Write "<BR>"
Next
%>
</Body>
</HTML>
Thanks
<%
Option Explicit
Dim strConnect
%>
<!-- #include file="datastore.asp" -->
<!-- METADATA TYPE="typelib"
FILE="C:\Program Files\Common Files\SYSTEM\ADO\msado15.dll" -->
<HTML>
<HEAD>b
<TITLE>Marwan's Middle East Marketplace </TITLE>
</HEAD>
<BODY>
<%
Dim objRS
Dim avarFields
Dim intRow
Dim intCol
Dim intLastRow
Dim intLastCol
set objRS = Server.CreateObject ("ADODB.Recordset")
objRS.Open "[DVD Programs]", strConnect, adOpenKeyset, adLockReadOnly, adCmdTable
avarFields = objRS.GetRows
objRS.Close
Set objRS = Nothing
intLastCol = UBound(avarFields, 1)
intLastRow = UBound(avarFields, 2)
For intLastRow = 0 To intLastCol
For intLastCol = 0 To intLastRow
Response.write avarFields(intCol, intRow) & " "
Next
Response.Write "<BR>"
Next
%>
</Body>
</HTML>