<%@LANGUAGE="VBSCRIPT"%> <% Dim rs_inscriptos Dim rs_inscriptos_numRows Set rs_inscriptos = Server.CreateObject("ADODB.Recordset") rs_inscriptos.ActiveConnection = MM_cnx_inscriptos_STRING rs_inscriptos.Source = "SELECT * FROM inscriptos ORDER BY id DESC" rs_inscriptos.CursorType = 0 rs_inscriptos.CursorLocation = 2 rs_inscriptos.LockType = 1 rs_inscriptos.Open() rs_inscriptos_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rs_inscriptos_numRows = rs_inscriptos_numRows + Repeat1__numRows %> Sociedad Argentina de Medicina Reproductiva
Nuevos Registros » Sólo para administradores

<% While ((Repeat1__numRows <> 0) AND (NOT rs_inscriptos.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rs_inscriptos.MoveNext() Wend %>
Apellido
Nombre
mail
borrar
<%=(rs_inscriptos.Fields.Item("apellido").Value)%> <%=(rs_inscriptos.Fields.Item("nombre").Value)%> <%=(rs_inscriptos.Fields.Item("mail").Value)%>

 

exportar listado a excel

......................................................................................................................................................................................................

volver ยป