<%
'iniciamos la tabla donde mostraremos todo
Response.Write "<TABLE BORDER=""0"" class=dia2>"
' Hacemos el bucle mostrando los datos del registro
' Hacemos el bucle mostrando los datos del registro
registro_mostrado = 0
Do While registro_mostrado < mostrar And Not RS.EOF
Response.Write("<tr><td class=diaviolin><img border=0 src=archivo2.gif width=32 height=32>&nbsp;" & RS("Nombre") & "</td></tr><tr><td valign=top>Especialidad:&nbsp;" & RS("Especialidad") & "&nbsp;</td></tr><tr><td>Email:&nbsp;<a href=""mailto:" & RS("Email") & """>" & RS("Email") & "</a></td></tr><tr><td>Web:&nbsp;<a href=""" & RS("Web") & """>" & RS("Web") & "</a></td></tr><tr><td>Dirección:&nbsp;&quo t; & RS("Direccion") & "</td></tr><tr><td>País:&nbsp;" & RS("Pais") & "</td></tr><tr><td>Teléfono:&nbsp;" ; & RS("Telefono") & "</td></tr><tr><td>Comentarios:&nbsp;&q uot; & RS("Comentarios") & "</td></tr>")
' Sumamos 1 a los mostrados
registro_mostrado = registro_mostrado + 1
' Nos movemos al próximo registro...
RS.MoveNext
Loop
'listo...
Response.Write "</TABLE>" & vbCrLf
End If
' Cerramos y limpiamos...
RS.Close
Set RS = Nothing
oConn.Close
Set oConn = Nothing
' Espacios
Response.Write "<BR><BR>" & vbCrLf
' Ahora mostramos los enlaces a las otras páginas con el resto de los registros...
If pagina_actual > 1 Then
%>
<font face=verdana size=1><a href="tupagina.asp?eje=30&page=<%= pagina_actual - 1 %>">&nbsp;[<< Anterior]</font></a>
<%
End If
' mostramos la paginacion por numeros de página
For I = 1 To cant_paginas
If I = pagina_actual Then
%>
<font face=verdana size=1><%= I %></font>
<%
Else
%>
<font face=verdana size=1><a href="tupagina.asp?eje=30&page=<%= I %>">&nbsp;<%= I %></font></a>
<%
End If
Next 'I
If pagina_actual < cant_paginas Then
%>
<font face=verdana size=1><a href="tupagina.asp?eje=30&page=<%= pagina_actual + 1 %>">&nbsp;[Siguiente >>]</font></a>
<%
End If
'Fin...
%>
<a href="http://www.canalpublicidad.com"><img border="0" src="http://www.canalpublicidad.com/images/banner_crystal_g.gif" width="468" height="60"></a>