Saludos
P.D. espero ser explicito!!! jeje
21/10/2005, 18:08
| ||||
| ||||
 SEMAFOROS ASP :serio: hola amigos, tengo una base de datos en asp mediante dreamweaver, quiero poner un "semáforo" por así llamarlo, es decir, que mediante el control de dos fechas me cambie el color de mi fila en la consulta, por ejemplo que si un reporte se pasa de dos dias sin una actualización la fila se ponga en color amarillo, pero si el reporte tarda mas de tres dias entonces cambie a color rojo, alguien me puede ayudar con esto??? Saludos P.D. espero ser explicito!!! jeje |
|
21/10/2005, 19:01
| ||||
| ||||
| se me ocurre color de la celda <% 'obtenes el valor de la fecha de hoy fecnahoy = date() 'averiguas cuantos dias de diferencia entre fechahoy y tu recordset diferencia_dias = datediff .... 'si diferencia en dias es menor que x if diferencias_dias = 0 color= "#000000" else if diferencias_dias < 2 color = #000000" ' y asi vas anidando dependiendo de la cantidad de colores que usaras else enf id ' y asi pones las diferencias en colores que usaras %> <tr bgcolor='<%response.write color%>'>
__________________ JuanRa Pérez San Salvador, El Salvador |
|
24/10/2005, 08:52
| ||||
| ||||
| hola sjam7, no, no me srivió, de hecho no entendí la explicación de JuanRAPerez, es decir, la idea si la capto, pero el código es el que me cuesta un poco de trabajo, sobre todo porque soy nuevo en esto, es por ello que pido de nuevo su ayuda... gracias |
|
24/10/2005, 10:52
| ||||
| ||||
| Ivan revisa este codigo a ver si te sirve el while seria en tu caso ( While not rst.eof) donde rst es el recordset El select case en tu caso diferencia en dias entre la fecha actual y la fechademodificacion <html> <table width="99%" align="center" border="1" cellpadding="1" cellspacing="1"> <tr bgcolor="#0033FF"> <td width="5%" bgcolor="#67bf7c"><font color="#003366"><b><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Numero </font></b> </font></td> </tr> <% I=1 n=1 Dim n,Numero while I<= 3 Select case I case 1 %> <tr bgcolor="#H000000FF"> <td width="5%" bgcolor="#H000000FF"><font color="#003366"><b><font size="2" face="Verdana, Arial, Helvetica, sans-serif"> <%response.write("WW")%> </font></b> </font></td> </tr><% case 2 %> <tr bgcolor="#H00FF0000"> <td width="5%" bgcolor="#H00FF0000"><font color="#003366"><b><font size="2" face="Verdana, Arial, Helvetica, sans-serif"> <%response.write("qq")%> </font></b> </font></td> </tr><% case 3 %> <tr bgcolor="#H00800080"> <td width="5%" bgcolor="#H00800080"><font color="#003366"><b><font size="2" face="Verdana, Arial, Helvetica, sans-serif"> <%response.write("eee")%> </font></b> </font></td> </tr><% end select I=I+1 wend%> </html> saludos espero te funcione y te sirva PD los colores que tienen las celdas no son ni amarillo ni rojo |
|
24/10/2005, 14:04
| ||||
| ||||
| Aqui esta lo que te dije en codigo, los demas if los asocias vos y pegas el codigo para que la gente lo vea tabla id | titulo | fecha 2 | titulo 2 | 18/10/2005 1 | titulo 1 | 18/10/2005 4 | titulo 4 | 20/10/2005 3 | titulo 3 | 20/10/2005 5 | titulo 5 | 21/10/2005 8 | titulo 8 | 22/10/2005 7 | titulo 7 | 22/10/2005 6 | titulo 6 | 22/10/2005 10 | titulo 10 | 24/10/2005 9 | titulo 9 | 24/10/2005
Código:
<html>
<head>
<meta http-equiv="Content-Language" content="es">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Semáforo con fechas</title>
</head>
<body bgcolor="#C0C0C0">
<p><b>Semáforo con fechas</b></p>
<%
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("basemenu.mdb"))
SQL = "SELECT * FROM tabla_fecha order by fecha ASC"
Set objRS = oConn.Execute(SQL)
if objRS.bof and objRS.eof then
Response.write "Estamos dando mantenimiento al menú"
else
%>
<table border="0" width="500" id="table1">
<tr>
<td width="37"><b>id</b></td>
<td><b>titulo</b></td>
<td width="111"><b>fecha (difer.)</b></td>
</tr>
<%
while (not objRS.Eof)
'asigno un color por defecto para mis filas
'color = "#FFFFFF"
'obtengo la fecha de hoy
fecha_hoy = date()
'obtengo el valor de la fecha del recordset
fecha_registro = objRS("fecha")
'obtengo la diferencia en dias
diferencia_dias = DateDiff("d", fecha_registro, fecha_hoy)
'si es mayor que 3
if diferencia_dias > 3 then
'color rojo
color = "#FF0000"
else
'color amarillo
color = "#FFFF00"
end if
%>
<tr bgcolor='<%=color%>'>
<td>
<%=objRS("id")%>
</td>
<td>
<%=objRS("titulo")%>
</td>
<td>
<%=objRS("fecha")%>, (<%=diferencia_dias%>)
</td>
</tr>
<%
objRS.MoveNext
wend
end if
objRS.Close
set objRS = nothing
%>
</table>
<p>
<%
oConn.Close
set oConn = nothing
%>
</p>
</body>
</html>
__________________ JuanRa Pérez San Salvador, El Salvador |
|
24/10/2005, 19:44
| ||||
| ||||
| Hermano me has dado una gran ayuda!!! habia estado pensando toda la mañana en el texto que me pusiste antes!!!  Saludos desde México y gracias nuevamente!!! Iván |
