
18/09/2004, 07:18
|
| | Fecha de Ingreso: septiembre-2003
Mensajes: 24
Antigüedad: 21 años, 7 meses Puntos: 0 | |
Con algo así puedes tirar.
<table width="35%" border="0" cellspacing="1" align="center">
<tr>
<%
Dim cn, rs, SQL
ruta=Server.MapPath("tubase.mdb")
Set cn = Server.CreateObject ("ADODB.Connection")
cn.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="+ruta+";"
Response.Write path
SQL = "SELECT DISTINCT cliente FROM tutabla WHERE Cliente LIKE 'F%' ORDER BY Cliente" 'el LIKE es para que muestre los que empiezan por la F,si no quieres eso lo puedes quitar
Set rs =Server.CreateObject("ADODB.Recordset")
rs.open SQL,cn
While Not rs.EOF
%>
<td bgcolor="#CCCCCC">
<div align="center"><font size="2"><font size="2"><font face="Verdana, Arial, Helvetica, sans-serif"><font face="Verdana, Arial, Helvetica, sans-serif"><font color="#000000"><font size="1"><font size="1"><font face="Verdana, Arial, Helvetica, sans-serif"><font face="Verdana, Arial, Helvetica, sans-serif"><font color="#000000">
<a href="pagina2.asp?Cliente=<%response.write(rs.Fiel ds("Cliente"))%>"><%response.write(rs.("Cliente")) %></a></font></font></font></font></font></font></font></font></font></font></div>
</td>
</tr>
<%rs.MoveNext
Wend
rs.Close
set rs=nothing
cn.close
set cn=nothing%>
</table>
Sustituyes "Cliente" por el nombre de tu campo
Última edición por JaviM; 18/09/2004 a las 07:21 |