Problemas al usar Dos Recordset... en aplicacion asp

yio_loko2003 · #1 (**permalink**) 01/09/2005, 09:42

Hola, que tal... espero que alguien pueda ayudarme... estoy armando una aplicacion asp para mi curso , en el colegio... y tengo el siguiente problema...
tengo usuarios, ke forman grupos... un usuario puede pertenecer a mas de un grupo...
al iniciar sesion, el usuario puede ver los grupos a los ke pertenece... para esto tengo tablas asi
Usuario: nombre,apellido,mail,telefono, etc...
Grupos: nombre,fecha,descripcion,creador
Integrantes: grupo,usuario

la tabla integrantes tiene los integrantes del grupo... y bueno, las hice en access, estan relacionadas y todo okey... el tema es ke kuando trato de ke la pag. asp me traiga los grupos en los ke esta el usuario de la tabla integrantes... y me traiga la fecha de la tabla grupos ... tengo problemas. Este es el codigo de mi pagina

Código:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>


	<% 'conexion a base de datos
		dim con,rs,sql2
		set con = server.CreateObject("ADODB.Connection")
		con.open "Driver={Microsoft Access Driver (*.mdb)};Dbq=C:\\inetpub\\wwwroot\\promo2006\\proyecto asp\proyecto.mdb;Exclusive=1;Uid='';Pwd="
		set rs = server.CreateObject("ADODB.Recordset")
		sql2 = "Select * From INTEGRANTES Where USUARIO=" & "'" & session("usuario") & "'"
		rs.open sql2,con,1,2
	%>
		
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>&gt;&gt;&gt;Desarrollador de Proyectos - 4to A&ntilde;o</title>
<link rel="stylesheet" type="text/css" href="../librerias/estilo_base.css">
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_reloadPage(init) {  //reloads the window if Nav4 resized
  if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
    document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
  else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);
//-->
</script>
</head>

<body>

	
<center>
  <table width="750" border="0">
    
	 <% If session("categoria") = "" then %>
	<tr bgcolor="#265D9D"> 
      <td colspan="2" bgcolor="#265D9D" class="celdaBorde"> 
      <td width="170" colspan="4" class="celdaBorde"> <%
    Response.write("Hoy es " & date)  
	Else %>
	<tr bgcolor="#265D9D">  
      <td colspan="2" bgcolor="#265D9D" class="celdaBorde"> 	Bienvenido 
	  <%  Dim nombreUsuario
	  nombreUsuario = session("usuario")
	  response.Write(nombreUsuario) %>
      <td width="170" colspan="4" class="celdaBorde"> 
		<a href="../login/logout.asp">Cerrar Sesión</a> - <a href="../login/panel.asp">Mi Cuenta</a>
	<%
	   End If
	   %>
	
    <tr> 
      <td colspan="3"><div align="center"><img src="../image/head.jpg" width="740" height="110"></div></td>
    </tr>
    <tr bgcolor="#265D9D"> 
      <td colspan="3" class="celdaBorde"> <div align="center">| <a href="../index.asp">Home</a> 
          | <a href="../comentarios.asp">Comentarios</a> | <a href="../proyecto.asp">Proyectos</a> 
          | <a href="../grupos.asp">Grupos</a> | <a href="../usuarios.asp">Usuarios</a> 
          | <a href="../tesoreria.asp">Tesoreria</a> | </div>
        <div align="right"></div>
        <div align="center"> </div></td>
    </tr>
    <tr> 
      <td width="212">&nbsp;</td>
      <td width="389"><div align="center"></div></td>
      <td>&nbsp;</td>
    </tr>
  </table>
  <table width="88%" border="1">
    <tr> 
      <td colspan="3" class="titularesPintados">A continuaci&oacute;n aparecen 
        los grupos en los cuales tienes participaci&oacute;n</td>
    </tr>
    <tr> 
      <td>&nbsp;</td>
      <td>&nbsp;</td>
      <td>&nbsp;</td>
    </tr>

    <% 	dim sqlGrupo,rsGrupo,grupo
		Set rsGrupo = server.CreateObject("ADODB.Recordset")
	while (not rs.EOF)

	session("grupo") = rs.Fields("GRUPO")


	sqlGrupo = "Select * FROM GRUPOS Where NOMBRE =" & "'" & session("grupo") & "'"
	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>&nbsp;</td>
    </tr>
	<% rs.moveNext
	wend%>
  </table>
  <p>&nbsp;</p>
</center>
</body>
</html>

<%
	rs.Close
	con.Close
	Set rs = Nothing
	%>

Espero ke puedan ayudarme, muchas gracias!

Myakire · #2 (**permalink**) 01/09/2005, 09:53

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>&nbsp;</td>
    </tr>
     
	<% 
           rsGrupo.close
           set rsGrupo = nothing
           rs.moveNext
	wend%>