20/09/2004, 13:27
|
 | | | Fecha de Ingreso: mayo-2003 Ubicación: Panama city, Panama, Panama
Mensajes: 1.154
Antigüedad: 22 años Puntos: 5 | |
Código:
<select name="select">
<%
while not RS.eof
select case RS("status")
case 1
estilo = "style=""background-color:#FFFFFF; color:#008080"""
case 2
estilo = "style=""background-color:#FFFFFF; color:#FF0000"""
case else
estilo = ""
end select
if RS("id") = id then
response.Write("<option value=""" & RS("id") & """ selected " & estilo & ">" & RS("nombre") & "</option>")
else
response.Write("<option value=""" & RS("id") & """ " & estilo & ">" & RS("nombre") & "</option>")
end if
RS.movenext
wend
%>
</select>
__________________
Saruman
One Ring to rule them all, One Ring to find them, One Ring to bring them all and in the darkness bind them.
Última edición por Saruman; 20/09/2004 a las 13:32 |