no me pinta los datos

engonga · #1 (**permalink**) 05/12/2007, 02:08

tengo este escript

Código PHP:

  <%
Dim rs_solares
Dim rs_solares_numRows
Set rs_solares = Server.CreateObject("ADODB.Recordset")
rs_solares.ActiveConnection = MM_habitat_STRING
'rs_solares.Source = "SELECT * FROM segunda_mano ORDER BY nombre ASC"
rs_solares.Source = "SELECT DISTINCT que_es FROM segunda_mano"
rs_solares.CursorType = 0
rs_solares.CursorLocation = 2
rs_solares.LockType = 1
rs_solares.Open()
rs_solares_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = -1
Repeat1__index = 0
rs_solares_numRows = rs_solares_numRows + Repeat1__numRows
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Documento sin t&iacute;tulo</title>
<link href="arxius/estils_admin.css" rel="stylesheet" type="text/css" />
</head>
<body><!--#include file="includes/menu_sup.asp" -->
<br />
<table>
  <tr>
    <td width="770" height="30" bgcolor="#E8E8E8" class="normal"><a href="index2.asp">&nbsp;<span >Tauler de control</span></a> &gt;<b>Edici&oacute; segunda mano </b></td>
  </tr>
</table>
<br />
  
    <% 
While ((Repeat1__numRows <> 0) AND (NOT rs_solares.EOF)) 
%><br /><br />
    <%=rs_solares("que_es")%>
 
 
 <%Dim rs_solares_det, que_esi
 que_esi = rs_solares("que_es")
Dim rs_solares_det_numRows
Set rs_solares_det = Server.CreateObject("ADODB.Recordset")
rs_solares_det.ActiveConnection = MM_habitat_STRING
rs_solares_det.Source = "SELECT * FROM segunda_mano  WHERE que_es='"&rs_solares("que_es")&"' ORDER BY nombre ASC"
'rs_solares.Source = "SELECT DISTINCT que_es FROM segunda_mano"
rs_solares_det.CursorType = 0
rs_solares_det.CursorLocation = 2
rs_solares_det.LockType = 1
rs_solares_det.Open()
rs_solares_det_numRows = 0
%>
 
<table width="850" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td width="31" height="30" class="normal_negreta_gris">id</td>
    <td width="268" class="normal_negreta_gris">nom</td>
    <td width="416" class="normal_negreta_gris">ubicacio</td>
    <td width="135" class="normal_negreta_gris">accio</td>
  </tr>
  <% 
While ((Repeat1__numRows <> 0) AND (NOT rs_solares_det.EOF)) 
%>
    <tr>
      <td height="20" class="normal9px"><%=(rs_solares_det.Fields.Item("id").Value)%></td>
      <td class="normal11px"><%=(rs_solares_det.Fields.Item("nombre").Value)%></td>
      <td class="normal11px"><%=(rs_solares_det.Fields.Item("ubicacion").Value)%></td>
      <td class="normal11px"><a href="segunda_edit.asp?id=<%=(rs_solares_det.Fields.Item("id").Value)%>">EDITA</a> / <a href="segunda_borra.asp?id=<%=(rs_solares_det.Fields.Item("id").Value)%>">BORRA </a></td>
    </tr>
   
  <tr><td colspan="4"><img src="imatges_admin/linea.gif" height="1" width="100%" /></td></tr>
   <% 
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
 rs_solares_det.MoveNext()
Wend
%>
</table>
    <% 
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  rs_solares.MoveNext()
Wend
%>

donde con el primer select recogo del campo "que_es" los valores

despues pinto tablas con un select pero en el where le pongo que_es='"&que_esi&"'

pero no me pinta nada

si lo pongo manual, por ejemplo where que_es ='casas' me lo pinta bien

alguien sabe donde esta el error

gracias de antemano

rociwo · #2 (**permalink**) 05/12/2007, 05:54

A mi esto me suena a que rs_solares("que_es") llega a la consulta vacio

prueba a imprimir esta consulta a ver que valor llega.

response.write "SELECT * FROM segunda_mano WHERE que_es='"&rs_solares("que_es")&"' ORDER BY nombre ASC"

A ver si asi ves donde esta el problema. Te ayudará.