29/04/2002, 09:04
|
| | | Fecha de Ingreso: abril-2002
Mensajes: 27
Antigüedad: 23 años, 1 mes Puntos: 0 | |
| Re: Que hago mal?
Les incluyo todo:
<HTML>
<HEAD><TITLE>Leyendo una base de datos de Access con ASP</TITLE></HEAD>
<BODY bgcolor="#006666" text="#bbcccc">
<TABLE BORDER="0" bgcolor="#333399" width="760">
<%
Dim conexion, registros, basedatos
basedatos = Server.MapPath("\usuario\db\prueba.mdb")
Set conexion = Server.CreateObject("ADODB.Connection")
conexion.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & basedatos & ";"
Set registros = conexion.Execute("SELECT * FROM nombretabla WHERE Continente=""& Africa &"" ORDER BY nombretabla.Nombre")
Do While Not registros.EOF
%>
<TR>
<TD width="17" height="36"><%= registros.Fields("Nombre").Value %></TD>
<TD width="32"><IMG SRC="<%=registros.Fields("Continente& quot;).Value %>" width="80" height="50"></TD>
<TD width="18"><A HREF="<%= registros.Fields("Web Principal").Value %>"><%= registros.Fields("Web Principal").Value %></A></TD>
<TD width="18"><A HREF="<%= registros.Fields("Perfíl").Value %>"><%= registros.Fields("Perfíl").Value %></A></TD>
</TR>
<%
registros.MoveNext
Loop
registros.Close
Set registros = Nothing
conexion.Close
Set conexion = Nothing
%>
</TABLE>
</BODY>
</HTML>
|