Ver Mensaje Individual
  #1 (permalink)  
Antiguo 15/06/2002, 05:16
majesus
 
Fecha de Ingreso: noviembre-2001
Mensajes: 117
Antigüedad: 23 años, 5 meses
Puntos: 0
ASP y sigue sigue ...

Estimados amigos:

Tengo las siguientes dudas ...

A) Quisiera que los registros quedasen alineados en la parte superior de cada celda.

B) Me gustaría que sólo se mostrasen un número determinado de caracteres en cada celda.

C) Finalmente, me gustaría que los registros de Email y Web quedasen vinculados con sus correspondientes mails y webs.

Si tuvieseis un momento os lo agradecería enormemente.

Os indico el código que uso:

<%
Dim oConn,strSQL, objRS

Set oConn = Server.CreateObject("ADODB.Connection")

oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\canalpublicidad\db\agencias. mdb"))

strSQL = "SELECT Nombre, Email, Web, Direccion, Telefono, Especialidad FROM datos"
Set objRS = oConn.Execute(strSQL)

%>
<TABLE BORDER=0 CELLSPACING=1 CELLPADDING=1 class="dia2" valign="top">
<TR><TD valign="top">Nombre</TD><TD valign="top">Email</TD><TD valign="top">Web</TD><TD valign="top">Dirección</TD><TD valign="top">Teléfono</TD><TD valign="top">Especialidad</TD></TR>
<%

while (not objRS.Eof)
Response.Write("<tr><td>" & objRS("Nombre") & "</td><td>" & objRS("Email") & "</td><td>" & objRS("Web") & "</td><td>" & objRS("Direccion") & "</td><td>" & objRS("Telefono") & "</td><td>" & objRS("Especialidad") & "</td></tr>")
objRS.MoveNext
wend

oConn.Close
set objRS = nothing
set oConn = nothing

%>

Un abrazo,

Majesus

<a href="http://www.canalpublicidad.com"><img border="0" src="http://www.canalpublicidad.com/images/banner_crystal_g.gif" width="468" height="60"></a>