<%@ Language=VBScript %> <% pageTitle = "ArtistaNet.com " %> <% strOrderBy = Request.QueryString("strOrderBy") If strOrderBy = "" Then strOrderBy = "empresa" else End If %> <%= pageTitle %>
<% 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 %>
Orden Ascendente  Apellido y Nombre  Orden Ascendente  Actividad  Orden Ascendente País Trabajos C.V.
  "> <%= rsProdInfo("apellido") %>  <%= rsProdInfo("nombre") %> <%= rsProdInfo("tipo") %> <%= rsProdInfo("pais")%>

">

Ver los trabajos de este Miembro

"> Ver el Curriculum de este Miembro


 INICIO | MIEMBROS | COLABORADORES | MISION | BUSCAR | REGISTRATE | CONTACTO

ArtistaNet.com ® LLC 2006 | Términos y Condiciones | Powered by eData Servicios Web