29/04/2005, 13:35
|
 | | | Fecha de Ingreso: mayo-2003 Ubicación: Panama city, Panama, Panama
Mensajes: 1.154
Antigüedad: 21 años, 11 meses Puntos: 5 | |
facil...
Código:
<select name="usuarios">
<%
while not RSUsuarios.eof
if RSUsuarios("idusuario") = idusuario_login_actual then
response.Write(vbtab & "<option value=""" & RSUsuarios("idusuario") & """ selected>" & RSUsuarios("nombre_usuario") & "</option>" & vbcrlf)
else
response.Write(vbtab & "<option value=""" & RSUsuarios("idusuario") & """>" & RSUsuarios("nombre_usuario") & "</option>" & vbcrlf)
end if
RSUsuarios.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. |