15/09/2004, 07:20
|
| | | Fecha de Ingreso: agosto-2003 Ubicación: Venezuela
Mensajes: 82
Antigüedad: 21 años, 10 meses Puntos: 0 | |
| <select name="estatus" class="textarea" id="estatus">
<option selected value="" <%If (Not isNull((update.Fields.Item("estatus").Value))) Then If ("" = CStr((update.Fields.Item("estatus").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>Seleccione</option>
<option value="Activo" <%If (Not isNull((update.Fields.Item("estatus").Value))) Then If ("Activo" = CStr((update.Fields.Item("estatus").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>Activo</option>
<option value="Inactivo" <%If (Not isNull((update.Fields.Item("estatus").Value))) Then If ("Inactivo" = CStr((update.Fields.Item("estatus").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>Inactivo</option>
<%
While (NOT update.EOF)
%>
<option value="<%=(update.Fields.Item("estatus").Value)%>" <%If (Not isNull((update.Fields.Item("estatus").Value))) Then If (CStr(update.Fields.Item("estatus").Value) = CStr((update.Fields.Item("estatus").Value))) Then Response.Write("SELECTED") : Response.Write("")%> ><%=(update.Fields.Item("estatus").Value)%></option>
<%
update.MoveNext()
Wend
If (update.CursorType > 0) Then
update.MoveFirst
Else
update.Requery
End If
%>
</select>
__________________
Stand Tall and Shake the Heavens!!
http://www.sprache-language-venezuela.c-f-h.net |