
01/09/2005, 09:53
|
 | Colaborador | | Fecha de Ingreso: enero-2002 Ubicación: Centro de la república
Mensajes: 8.849
Antigüedad: 23 años, 3 meses Puntos: 146 | |
Código:
<% dim sqlGrupo,rsGrupo,grupo
while (not rs.EOF)
session("grupo") = rs.Fields("GRUPO")
sqlGrupo = "Select * FROM GRUPOS Where NOMBRE =" & "'" & session("grupo") & "'"
Set rsGrupo = server.CreateObject("ADODB.Recordset")
rsGrupo.open sqlGrupo,con,3,3
%>
<tr>
<td><strong>Nombre: </strong><% =rs.Fields("GRUPO")%></td>
<td><strong>Fecha Creación: <% =rsGrupo.Fields("FECHA")%></strong></td>
<td> </td>
</tr>
<%
rsGrupo.close
set rsGrupo = nothing
rs.moveNext
wend%>
|