
10/11/2002, 19:32
|
 | | | Fecha de Ingreso: enero-2002 Ubicación: Ontario,Toronto [Canada]
Mensajes: 2.017
Antigüedad: 23 años, 3 meses Puntos: 6 | |
hola
no se si es esto a lo que te refires
<% dim oConn, RS
'Creamos los objectos a usar.
Set oConn = Server.CreateObject ("ADODB.Connection")
Set RS = Server.CreateObject ("ADODB.RecordSet")
oConn.Open "Driver={Microsoft Access Driver (*.mdb)}; " & "Dbq=" & Server.MapPath("Noticias.mdb")
'Conectamos a la conexion a la base de datos.
sql = "SELECT * FROM Noticias"
'Abrimos la tabla pidiendo todos sus registros.
RS.Open sql, oConn
Do While not RS.EOF
'Ahora el path de la imagen.
'Y la siguiente linea muestra la imagen. %>
<table width="75%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="7%"><img src="<%=RS("imagen")%>"></td>
<td width="93%"><%=rs("noticia")%> </td>
</tr>
</table>
<%
RS.MoveNext
Loop
'Cerramos y eliminamos todo.
RS.Close
oConn.Close
Set RS = Nothing
Set oConn = Nothing
%>
espero que te sirva
__________________ Un Saludo www.tutores.org
Asp | Php | Javascript | Perl | Coldfusion | Flash | +- 2000 codigos |