Tema: GetRows ++
Ver Mensaje Individual
  #3 (permalink)  
Antiguo 11/08/2008, 23:19
NA1TM3R
 
Fecha de Ingreso: agosto-2008
Mensajes: 82
Antigüedad: 16 años, 8 meses
Puntos: 4
Respuesta: GetRows ++

Saludos . . . y muchas gracias por responder . . .

Lo que me comentas lo tengo . . . sin problemas . . . de hecho te digo que la consulta inicial si me la ejecuta

El problema sería cuando tengo que anidar una segunda consulta para que me coloque el nombre de SUBY en ligar del IDY . . .

Te coloco mi código de impresión de datos para dar un mejor panorama:
En rojo la consulta que debo anidar . . . en Verde lo que debo sustituir por la matriz de la consulta anidada

Cita:
<% for I = 0 to UBound(toda,2)
dt = DateDiff("d", CDate(toda(fecha,I)), date)
if (dt > 1) and (toda(asignado,I) = "0") then
fondo = "#FFF0F0"
fondov = "#ffb0b0"
fondou = "#FFF0F0"
fontov = "#ffffde"
fontou = "#666666"
else
diascoment = DateDiff("H", CDate(toda(ultcom,I)), date)
if diascoment <= 24 then
img = "imagenes/png/ok.png"
elseif (diascoment > 24) and (diascoment <= 72) then
img = "imagenes/png/warning.png"
else
img = "imagenes/png/error.png"
end if
fondo = "#ffffff"
fondov = "#f0f0ff"
fondou = "#ffffff"
fontov = "#0099CC"
fontou = "#666666"
end if
consulta = "select nombrecliente from clientes where idcliente="& toda(subcliente,I)
Set subcli = conexion.execute(consulta)
nomsub = subcli.GetRows
subcli.close
nomsubcliente = 0

%>
<TR height="25" bgcolor="<%=fondo%>" OnMouseOver=bgColor='<%=fondov%>';style.cursor='ha nd';style.color='<%=fontov%>';style.border='solid' OnMouseOut=bgColor='<%=fondou%>';style.cursor='def ault';style.color='<%=fontou%>' class="text" onClick="self.location.href='index.asp'">
<td><img border ="0" src="<%=img%>" align="left" alt="La solicitud se coment&oacute; por &uacute;ltima vez el d&iacute;a: <%=Day(toda(ultcom,I))%> de <%=mes(Month(toda(ultcom,I)))%> de <%=Year(toda(ultcom,I))%> a las <%=Hour(toda(ultcom,I))%>:<%=Minute(toda(ultcom,I) )%>"><b><%=toda(solicitud,I)%></b></td>
<td><%=toda(cliente,I)%> </td>
<td><%=toda(subcliente,I)%></td>
<td><%=toda(investigado,I)%></td>
<td><% if asignado = 0 then Response.Write("---") else Response.Write(toda(asignado,I)) end if %></td>
<td align="right"><%=Day(toda(fecha,I)) & "/" & left(mes(Month(toda(fecha,I))),3) & "/" & Year(toda(fecha,I)) %></td>
</TR>
<% next %>
</table>

Y una vez mas . . . Grax por la respuesta

Última edición por NA1TM3R; 11/08/2008 a las 23:24