ASP Table listing from another Server - FOXPro [Archive]

Kent Dyer

03-25-2000, 03:28 PM

I am trying to list contents of a table from a FoxPro Database that is on
another server on the same domain. If I copy the tables to the server where
IIS and such resides, it works fine. However, when I try to list the contents
of the table that resides on the server, it comes back with the following
from the Workstation side -
ActiveX Data Object (ADO)
Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][ODBC Visual FoxPro Driver]Cannot open file \\portntsa00\tables\setups.dbc.

/brokeraccess2/test.asp, line 17

It also seems to work just from the server in it's browser..
I have just updated the Server to -
Service Pack 6a
IE 5.01
And several security patches.

This has never worked from a Workstation perspective.

Here are the contents of my test script-
'---Code Start ---
'---There are three different tests for the connection string
'---It has been recommended to use the one for Driver

<%@ LANGUAGE="VBSCRIPT" %>
<HTML>
<HEAD>
<TITLE>VFP ASP ADO Test</TITLE>
</HEAD>
<BODY>
<H3>ActiveX Data Object (ADO)</H3>
<%
Set Conn = Server.CreateObject("ADODB.connection")

ConnStr= "DSN=DataTracSP;"
ConnStr= "FILEDSN=VfpFile.dsn"
ConnStr= "Driver={Microsoft Visual FoxPro Driver};UID=;Deleted=Yes;Null=Yes;Collate=Machine;BackgroundFetch=No;Exclusive=No;SourceTy pe=DBC;SourceDB=\\portntsa00\tables\setups.DBC"

Conn.Open ConnStr 'This can be a datasource name or a connect string

Set rs = Server.CreateObject("ADODB.Recordset")

SQLText="Select gen.loan_num,gen.borrow_mn,gen.borrow_fn FROM datatrac!gen
WHERE loan_num LIKE '105%'"
SQLText="Select Interface,file_id FROM DATATRAC!imp_path WHERE interface
= 'CALYX'"
SQLText="Select brokers.dba,brokers.address,brokers.city from setups!brokers"
rs.Open SQLText,Conn

%>
<P>
<TABLE BORDER=1>
<TR>
<% For i = 0 to RS.Fields.Count - 1 %>
<TD><B><% = RS(i).Name %></B></TD>
<% Next %>
</TR>
<% Do While Not RS.EOF %>
<TR>
<% For i = 0 to RS.Fields.Count - 1 %>
<TD VALIGN=TOP><% = RS(i) %></TD>
<% Next %>
</TR>
<%
RS.MoveNext
Loop
RS.Close
Conn.Close
%>
</TABLE>
<BR>
<BR>
</BODY>
</HTML>
'----Code end

Thanks,

Kent

Kent Dyer

03-27-2000, 03:57 PM

I figured this out. To complete, I did the following-
1. Create the IUSR_SERVERNAME as a user on the domain.
2. In IIS under Directory Security, I attached the DOMAIN\IUSR_ SERVERNAME
user and applied the password to the virtual Directory.
3. Brought up the test page and it works great! Now, I should be able to
complete my task at hand.

Thanks,

Kent

"Kent Dyer" <kdyer@meritage.com> wrote:
>
>I am trying to list contents of a table from a FoxPro Database that is on
>another server on the same domain. If I copy the tables to the server where
>IIS and such resides, it works fine. However, when I try to list the contents
>of the table that resides on the server, it comes back with the following
>from the Workstation side -
>ActiveX Data Object (ADO)
>Microsoft OLE DB Provider for ODBC Drivers error '80004005'
>
>[Microsoft][ODBC Visual FoxPro Driver]Cannot open file \\portntsa00\tables\setups.dbc.
>
>
>/brokeraccess2/test.asp, line 17
>
>It also seems to work just from the server in it's browser..
>I have just updated the Server to -
>Service Pack 6a
>IE 5.01
>And several security patches.
>
>This has never worked from a Workstation perspective.
>
>Here are the contents of my test script-
>'---Code Start ---
>'---There are three different tests for the connection string
>'---It has been recommended to use the one for Driver
>
> <%@ LANGUAGE="VBSCRIPT" %>
> <HTML>
> <HEAD>
> <TITLE>VFP ASP ADO Test</TITLE>
> </HEAD>
> <BODY>
> <H3>ActiveX Data Object (ADO)</H3>
> <%
> Set Conn = Server.CreateObject("ADODB.connection")
>
> ConnStr= "DSN=DataTracSP;"
> ConnStr= "FILEDSN=VfpFile.dsn"
> ConnStr= "Driver={Microsoft Visual FoxPro Driver};UID=;Deleted=Yes;Null=Yes;Collate=Machine;BackgroundFetch=No;Exclusive=No;SourceTy pe=DBC;SourceDB=\\portntsa00\tables\setups.DBC"
>
>
> Conn.Open ConnStr 'This can be a datasource name or a connect string
>
> Set rs = Server.CreateObject("ADODB.Recordset")
>
>
> SQLText="Select gen.loan_num,gen.borrow_mn,gen.borrow_fn FROM datatrac!gen
>WHERE loan_num LIKE '105%'"
> SQLText="Select Interface,file_id FROM DATATRAC!imp_path WHERE interface
>= 'CALYX'"
> SQLText="Select brokers.dba,brokers.address,brokers.city from setups!brokers"
> rs.Open SQLText,Conn
>
> %>
> <P>
> <TABLE BORDER=1>
> <TR>
> <% For i = 0 to RS.Fields.Count - 1 %>
> <TD><B><% = RS(i).Name %></B></TD>
> <% Next %>
> </TR>
> <% Do While Not RS.EOF %>
> <TR>
> <% For i = 0 to RS.Fields.Count - 1 %>
> <TD VALIGN=TOP><% = RS(i) %></TD>
> <% Next %>
> </TR>
> <%
> RS.MoveNext
> Loop
> RS.Close
> Conn.Close
> %>
> </TABLE>
> <BR>
> <BR>
> </BODY>
> </HTML>
> '----Code end
>
>Thanks,
>
>Kent
>