<%@LANGUAGE="VBSCRIPT"%> <% Dim dbpersonal__MMColParam dbpersonal__MMColParam = "1" if (Request.QueryString("ID_Persona") <> "") then dbpersonal__MMColParam = Request.QueryString("ID_Persona") %> <% set dbpersonal = Server.CreateObject("ADODB.Recordset") dbpersonal.ActiveConnection = MM_dbflasef_STRING dbpersonal.Source = "SELECT * FROM Actividades_Por_Participantes WHERE ID_Persona = '" + Replace(dbpersonal__MMColParam, "'", "''") + "' ORDER BY Dia_Partici ASC" dbpersonal.CursorType = 0 dbpersonal.CursorLocation = 2 dbpersonal.LockType = 3 dbpersonal.Open() dbpersonal_numRows = 0 %> <% Dim Repeat1__numRows Repeat1__numRows = -1 Dim Repeat1__index Repeat1__index = 0 dbpersonal_numRows = dbpersonal_numRows + Repeat1__numRows %>

Nombre:	<%=(dbpersonal.Fields.Item("Tratamiento").Value)%> <%=(dbpersonal.Fields.Item("Nombre").Value)%> <%=(dbpersonal.Fields.Item("Apellido").Value)%>	">
Institución:	<%=(dbpersonal.Fields.Item("Institucion").Value)%>
País:	<%=(dbpersonal.Fields.Item("Pais").Value)%>
Contacto:	"><%=(dbpersonal.Fields.Item("e_mail").Value)%>
Links:	"><%=(dbpersonal.Fields.Item("Links").Value)%>
Curriculum: <%=(dbpersonal.Fields.Item("Curriculum").Value)%>

<% While ((Repeat1__numRows <> 0) AND (NOT dbpersonal.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 dbpersonal.MoveNext() Wend %>

Fecha	Hora Comienzo	Tipo	En Calidad de	Tema	Trabajo
<%=(dbpersonal.Fields.Item("Dia_Partici").Value)%>	<%=(dbpersonal.Fields.Item("Hora_Comienzo").Value)%>	<%=(dbpersonal.Fields.Item("Tipo_Espanol").Value)%>	<%=(dbpersonal.Fields.Item("En_Calidad_de").Value)%>	<%=(dbpersonal.Fields.Item("Tema_Espanol").Value)%>	<%=(dbpersonal.Fields.Item("Trabajo_Espanol").Value)%>

 

<% dbpersonal.Close() %>