🚀 go-pugleaf

Crea una conexion DNS de Sistema (ODBC), con eso y el siguiente codigo ASP
me funciona a mi.
DNS de Sistema: AS400 ASP

<%
' Abrir una conexi�n
Set db = Server.CreateObject("ADODB.Connection")
db.Open("AS400 ASP")
' Construcci�n de una instrucci�n SQL
strSQL = "SELECT * FROM MCLI ORDER BY CLNOMB"
' Ejecuci�n de la consulta
Set ds = Server.CreateObject("ADODB.Recordset")
ds.Open strSQL, db, 3
Do While Not ds.EOF
 %>
 <BR CLEAR="ALL">
 <%=ds("CLNOMB")%>/<%=ds("CLPOBL")%>
 <%
 ds.MoveNext
Loop
'Cierre de la base de datos
ds.Close
db.Close
Set ds = Nothing
Set db = Nothing
%>

Espero que te funcione, saludos y animo




FELIX <padreangel@mixmail.com> escribi� en el mensaje de noticias
8pl92l$95e$1@diana.bcn.ttd.net...
> Hola a todos:
>
> Estoy intentando acceder al AS400 mediante una p�gina ASP, he intentado la
> configuracion del onjeto connection de varias formas pero no me funciona,
el
> driver ODBC si funciona ( al menos con Excel y Access).
>
> Saludos
>
> F�lix.
>
>
>