ASP y sigue sigue ...

[majesus]

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>

[AlZuwaga]

A) A cada &lt;td&gt; del bucle while/wend, reemplazalo por &lt;td valign=&quot;top&quot;&gt;

B) Por ejemplo 5 caracteres para el nombre: Left(objRS(&quot;Nombre&quot;),5)

C) &quot;&lt;a href='mailto:&quot; &amp; objRS(&quot;Email&quot;) &amp; &quot;'&gt;&quot; &amp; objRS(&quot;Email&quot;) &amp; &quot;&lt;/a&gt;&quot;
y similar para la URL

[majesus]

Estimado amigo:

He intentado lo del mailto ... pero no consigo nada ...

Te indico el mensaje de alerta:

Microsoft VBScript compilation error '800a03ee'

Expected ')'

/canalpublicidad/ejem11d.asp, line 591

Response.Write(&quot;&lt;tr&gt;&lt;td class=diaviolin&gt;&lt;img border=0 src=http://www.canalpublicidad.com/images/archivo2.gif width=32 height=32&gt;&amp;nbsp;&quot; &amp; objRS(&quot;Nombre&quot;) &amp; &quot;&lt;/td&gt;&lt;/tr&gt;&lt;tr&gt;&lt;td&gt;Email:&amp;nbsp;&quot;&l t;a href='mailto:&quot; &amp; objRS(&quot;Email&quot;) &amp; &quot;'&gt;&quot; &amp; objRS(&quot;Email&quot;) &amp; &quot;&lt;/a&gt;&quot;&lt;/td&gt;&lt;/tr&gt;&lt;tr&gt;&lt;td&gt;Web:&amp;nbsp;&quot; &amp; objRS(&quot;Web&quot;) &amp; &quot;&lt;/td&gt;&lt;/tr&gt;&lt;tr&gt;&lt;td&gt;Dirección:&amp;nbsp;&quo t; &amp; objRS(&quot;Direccion&quot;) &amp; &quot;&lt;/td&gt;&lt;/tr&gt;&lt;tr&gt;&lt;td&gt;Teléfono:&amp;nbsp;&quot ; &amp; objRS(&quot;Telefono&quot;) &amp; &quot;&lt;/td&gt;&lt;/tr&gt;&lt;tr&gt;&lt;td valign=top&gt;Comentario:&amp;nbsp;&quot; &amp; objRS(&quot;Especialidad&quot;) &amp; &quot;&amp;nbsp;&lt;/td&gt;&lt;/tr&gt;&quot;)
-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------^


Mi código es:


&lt;%

while (not objRS.Eof)
Response.Write(&quot;&lt;tr&gt;&lt;td class=diaviolin&gt;&lt;img border=0 src=http://www.canalpublicidad.com/images/archivo2.gif width=32 height=32&gt;&amp;nbsp;&quot; &amp; objRS(&quot;Nombre&quot;) &amp; &quot;&lt;/td&gt;&lt;/tr&gt;&lt;tr&gt;&lt;td&gt;Email:&amp;nbsp;&quot;&l t;a href='mailto:&quot; &amp; objRS(&quot;Email&quot;) &amp; &quot;'&gt;&quot; &amp; objRS(&quot;Email&quot;) &amp; &quot;&lt;/a&gt;&quot;&lt;/td&gt;&lt;/tr&gt;&lt;tr&gt;&lt;td&gt;Web:&amp;nbsp;&quot; &amp; objRS(&quot;Web&quot;) &amp; &quot;&lt;/td&gt;&lt;/tr&gt;&lt;tr&gt;&lt;td&gt;Dirección:&amp;nbsp;&quo t; &amp; objRS(&quot;Direccion&quot;) &amp; &quot;&lt;/td&gt;&lt;/tr&gt;&lt;tr&gt;&lt;td&gt;Teléfono:&amp;nbsp;&quot ; &amp; objRS(&quot;Telefono&quot;) &amp; &quot;&lt;/td&gt;&lt;/tr&gt;&lt;tr&gt;&lt;td valign=top&gt;Comentario:&amp;nbsp;&quot; &amp; objRS(&quot;Especialidad&quot;) &amp; &quot;&amp;nbsp;&lt;/td&gt;&lt;/tr&gt;&quot;)
objRS.MoveNext
wend

oConn.Close
set objRS = nothing
set oConn = nothing

%&gt;



Agradeceré tus ayudas.

Majesus

nota: aunque aquí aparezcan comillas dobles antes de mailto y al final de ese código, son simples.

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

[Hereje]

Holasss !!
A ver si esto ayuda de algo...

&lt;a href=&quot;&lt;%= oRs(&quot;Email&quot;) %&gt;&quot;&gt;&lt;%= oRs(&quot;Email&quot;) %&gt;&lt;/a&gt;

Se usan comillas dobles en href !!

Salu2 !!

Sergio Flores<br>La Rioja, Argentina.<br><a href="http://www.lamatufia.com.ar">La Matufia</a>

[Hereje]

Perdon, me comi una parte...
asi seria:

&lt;a href=&quot;mailto:&lt;%= oRs(&quot;Email&quot;) %&gt;&quot;&gt;&lt;%= oRs(&quot;Email&quot;) %&gt;&lt;/a&gt;

o sino...

Response.Write (&quot;&lt;a href=&quot;&quot;mailto:&quot; &amp; oRs(&quot;Email&quot;) &amp; &quot;&quot;&quot;&gt;&quot; &amp; oRs(&quot;Email&quot;) &amp; &quot;&lt;/a&gt;&quot;)

Ahora si..
Salu2!

Sergio Flores<br>La Rioja, Argentina.<br><a href="http://www.lamatufia.com.ar">La Matufia</a>

[majesus]

Lo probaré.

En cualquier caso, te agradezco enormemente tu ayuda.

Un fuerte 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>

[majesus]

:) FUNCIONA ... ;)

¿Y algún código sencillito para paginar y que mantenga la estructura del siguiente código?

&lt;%
Dim oConn,strSQL, objRS

Set oConn = Server.CreateObject(&quot;ADODB.Connection&quot;)

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

strSQL = &quot;SELECT Nombre, Email, Web, Direccion, Pais, Telefono, Especialidad, Comentarios FROM datos ORDER BY nombre&quot;
Set objRS = oConn.Execute(strSQL)

%&gt;
&lt;TABLE BORDER=0 CELLSPACING=1 CELLPADDING=1 class=dia2&gt;

&lt;%

while (not objRS.Eof)
Response.Write(&quot;&lt;tr&gt;&lt;td class=diaviolin&gt;&lt;img border=0 src=../images/archivo2.gif width=32 height=32&gt;&amp;nbsp;&quot; &amp; objRS(&quot;Nombre&quot;) &amp; &quot;&lt;/td&gt;&lt;/tr&gt;&lt;tr&gt;&lt;td valign=top&gt;Especialidad:&amp;nbsp;&quot; &amp; objRS(&quot;Especialidad&quot;) &amp; &quot;&amp;nbsp;&lt;/td&gt;&lt;/tr&gt;&lt;tr&gt;&lt;td&gt;Email:&amp;nbsp;&lt;a href=&quot;&quot;mailto:&quot; &amp; objRS(&quot;Email&quot;) &amp; &quot;&quot;&quot;&gt;&quot; &amp; objRS(&quot;Email&quot;) &amp; &quot;&lt;/a&gt;&lt;/td&gt;&lt;/tr&gt;&lt;tr&gt;&lt;td&gt;Web:&amp;nbsp;&lt;a href=&quot;&quot;&quot; &amp; objRS(&quot;Web&quot;) &amp; &quot;&quot;&quot;&gt;&quot; &amp; objRS(&quot;Web&quot;) &amp; &quot;&lt;/a&gt;&lt;/td&gt;&lt;/tr&gt;&lt;tr&gt;&lt;td&gt;Dirección:&amp;nbsp;&quo t; &amp; objRS(&quot;Direccion&quot;) &amp; &quot;&lt;/td&gt;&lt;/tr&gt;&lt;tr&gt;&lt;td&gt;País:&amp;nbsp;&quot; &amp; objRS(&quot;Pais&quot;) &amp; &quot;&lt;/td&gt;&lt;/tr&gt;&lt;tr&gt;&lt;td&gt;Teléfono:&amp;nbsp;&quot ; &amp; objRS(&quot;Telefono&quot;) &amp; &quot;&lt;/td&gt;&lt;/tr&gt;&lt;tr&gt;&lt;td valign=top&gt;Comentarios:&amp;nbsp;&quot; &amp; objRS(&quot;Comentarios&quot;) &amp; &quot;&amp;nbsp;&lt;/td&gt;&lt;/tr&gt;&quot;)
objRS.MoveNext
wend

oConn.Close
set objRS = nothing
set oConn = nothing

%&gt;

&lt;/table&gt;




GRACIAS POR TODO ...

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>