30/08/2002, 02:54
|
 | | | Fecha de Ingreso: marzo-2002
Mensajes: 60
Antigüedad: 23 años, 2 meses Puntos: 0 | |
| Re: consulta el la base de datos
Grandeeeeee mestreeee
mira el codigo me funciono perfecto
ahora me surgio una duda como haria para paginar...asi que el final de pagina tenga 1 link Siguientes >>
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
OPTION EXPLICIT
dim cnpath,datasource,conn,rs,counter
cnpath="DBQ=" & Server.MapPath("base.mdb")
DataSource = "Driver={Microsoft Access Driver (*.mdb)}; " & cnpath
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open DataSource
set rs=conn.execute("select*from tabla order by Ano")
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<table width="100" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<%
counter=0
Do While Not Rs.EOF
%>
<td><table width="100" border="1" cellpadding="3" cellspacing="2" bordercolor="#CC0000" bgcolor="#F3F3F3">
<tr>
<td width="102"><div align="center"><a href="#"><img src="fotos/<%=RS("Foto")%>" alt="<%=RS("Equipe")%>" width="80" height="60" border="0"></a></div></td>
</tr>
<tr>
<td><div align="center"><%= RS("ANO") %>&nbsp;</div></td>
</tr>
</table></td>
<%
counter=counter+1
If counter Mod 4=0 Then Response.Write "</tr><tr>"
Rs.MoveNext
Loop
conn.close
%>
</tr>
</table>
</body>
</html> |