Codigo customer_list.asp
Gracias por tu respuesta.
Aqui esta el codigo de la pagina:
<!--
-->
<%@ LANGUAGE = VBScript %>
<html>
<h1>Customer_List.ASP</h1>
<%
'Abrir la base
set oConnection = Server.CreateObject( "adodb.connection" )
oConnection.ConnectionString = "DRIVER={Microsoft Visual FoxPro Driver};" &_
"UID=;" &_ "Deleted=Yes;" &_
"Null=Yes;" &_ "Collate=Machine;" &_
"BackgroundFetch=Yes;" &_
"Exclusive=No;" &_
"SourceType=DBC;" &_
"SourceDB=c:\glgdw_web\data\tastrade.dbc"
oConnection.Open
'Recordset
set oRecordSet = Server.CreateObject( "adodb.recordset" )
oRecordSet.Open "select * from customer", oConnection, adOpenStatic
%>
<!-- Despliega los nombres de campos como cabecera -->
<table border=1>
<tr>
<%
dim i
for i=0 to 2%>
<td><b><%=oRecordSet.Fields(i).Name %></b></td>
<%next%>
</tr>
<!-- Recorre los registros y los agrega en una fila de la tabla y cada campo en una columna.-->
<%do while Not oRecordSet.Eof%>
<tr>
<td><a href=customer_edit.asp?id=<% =oRecordSet.Fields(0).Value %>>
<%=oRecordSet.Fields(0).Value %></a></td>
<td><%=oRecordSet.Fields(1).Value %></td>
<td><%=oRecordSet.Fields(2).Value % ></td></tr>
<%oRecordSet.MoveNext%>
<%loop%>
</table>
<%
'Cerramos todo
oRecordSet.Close
oConnection.Close
set oRecordSet = nothing
set oConnection = nothing
%>
</html>
Aqui esta el codigo de la pagina:
<!--
-->
<%@ LANGUAGE = VBScript %>
<html>
<h1>Customer_List.ASP</h1>
<%
'Abrir la base
set oConnection = Server.CreateObject( "adodb.connection" )
oConnection.ConnectionString = "DRIVER={Microsoft Visual FoxPro Driver};" &_
"UID=;" &_ "Deleted=Yes;" &_
"Null=Yes;" &_ "Collate=Machine;" &_
"BackgroundFetch=Yes;" &_
"Exclusive=No;" &_
"SourceType=DBC;" &_
"SourceDB=c:\glgdw_web\data\tastrade.dbc"
oConnection.Open
'Recordset
set oRecordSet = Server.CreateObject( "adodb.recordset" )
oRecordSet.Open "select * from customer", oConnection, adOpenStatic
%>
<!-- Despliega los nombres de campos como cabecera -->
<table border=1>
<tr>
<%
dim i
for i=0 to 2%>
<td><b><%=oRecordSet.Fields(i).Name %></b></td>
<%next%>
</tr>
<!-- Recorre los registros y los agrega en una fila de la tabla y cada campo en una columna.-->
<%do while Not oRecordSet.Eof%>
<tr>
<td><a href=customer_edit.asp?id=<% =oRecordSet.Fields(0).Value %>>
<%=oRecordSet.Fields(0).Value %></a></td>
<td><%=oRecordSet.Fields(1).Value %></td>
<td><%=oRecordSet.Fields(2).Value % ></td></tr>
<%oRecordSet.MoveNext%>
<%loop%>
</table>
<%
'Cerramos todo
oRecordSet.Close
oConnection.Close
set oRecordSet = nothing
set oConnection = nothing
%>
</html>
1 Respuesta
Respuesta
1
1) Corrige el string de conexion de esta manera:
"DRIVER={Microsoft Visual FoxPro Driver};" &_
"UID=;Deleted=Yes;Null=Yes;Collate=Machine;BackgroundFetch=Yes;Exclusive=No;" &_
"SourceType=DBC;SourceDB=c:\glgdw_web\data\tastrade.dbc"
2) Tienes un espacio de mas
<%=oRecordSet.Fields(2).Value % >
^
Debe ser:
<%=oRecordSet.Fields(2).Value %>
De esa manera funcionará bien
"DRIVER={Microsoft Visual FoxPro Driver};" &_
"UID=;Deleted=Yes;Null=Yes;Collate=Machine;BackgroundFetch=Yes;Exclusive=No;" &_
"SourceType=DBC;SourceDB=c:\glgdw_web\data\tastrade.dbc"
2) Tienes un espacio de mas
<%=oRecordSet.Fields(2).Value % >
^
Debe ser:
<%=oRecordSet.Fields(2).Value %>
De esa manera funcionará bien