<% Dim iPageSize 'Number of rows in page Dim iPageCount 'The number of pages we'll get back Dim strParam 'Passing a parameter Dim strSQL 'SQL command Dim iRecordsShown 'Loop controller for displaying just iPageSize records Dim I 'Standard looping var Dim rsProdInfo strSQL = "SELECT * FROM clientes where publicar like 'SI' order by "&strOrderBy&" asc" Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open ConString Set rsProdInfo = Server.CreateObject("ADODB.Recordset") rsProdInfo.Open strSQL, Conn, adOpenStatic, adLockReadOnly, adCmdText If rsProdInfo.BOF or rsProdInfo.EOF then Set rsProdInfo= Nothing Response.Write "

" Response.Write "

" Response.Write "" Response.Write "No hay registros en la Categoría!" Response.Write "

" Response.Write "

" Response.Write "" Response.Write "" Response.Write "Volver

" Else %>

<% Do While Not rsProdInfo.EOF %> <% rsProdInfo.MoveNext loop End if rsProdInfo.Close set rsProdInfo = Nothing Conn.Close set Conn = Nothing %>

Apellido y Nombre	Actividad	País	Trabajos	C.V.
"> <%= rsProdInfo("apellido") %>  <%= rsProdInfo("nombre") %>	<%= rsProdInfo("tipo") %>	<%= rsProdInfo("pais")%>	">	">