Hola este es mi problema.
Tengo una caja de seleccion en la cual deseo mostrar una información que recupero de una base de datos. pero me da este error.
-----------------------------------------------------------------------
Error de Microsoft VBScript en tiempo de ejecución (0x800A005E)
Uso no válido de Null: 'CStr'
/empleofinal/empleados/modificar_datos_empleados.asp, línea 544
--------------------------------------------------------------------------
Aca les pongo el codigo de la caja de seleccion.
Código PHP:
<select name="NivelInstruccion" class="unnamed1" id="NivelInstruccion">
<option selected value="" <%If (Not isNull((update.Fields.Item("NivelInstruccion").Value))) Then If ("" = CStr((update.Fields.Item("NivelInstruccion").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>Seleccione</option>
<option value="Educacion Basica" <%If (Not isNull((update.Fields.Item("NivelInstruccion").Value))) Then If ("Educacion Basica" = CStr((update.Fields.Item("NivelInstruccion").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>Educacion Basica</option>
<option value="Bachiller" <%If (Not isNull((update.Fields.Item("NivelInstruccion").Value))) Then If ("Bachiller" = CStr((update.Fields.Item("NivelInstruccion").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>Bachiller</option>
<option value="Tecnico Medio" <%If (Not isNull((update.Fields.Item("NivelInstruccion").Value))) Then If ("Tecnico Medio" = CStr((update.Fields.Item("NivelInstruccion").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>Tecnico Medio</option>
<option value="Tecnico Superior" <%If (Not isNull((update.Fields.Item("NivelInstruccion").Value))) Then If ("Tecnico Superior" = CStr((update.Fields.Item("NivelInstruccion").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>Tecnico Superior</option>
<option value="Educacion Superior" <%If (Not isNull((update.Fields.Item("NivelInstruccion").Value))) Then If ("Educacion Superior" = CStr((update.Fields.Item("NivelInstruccion").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>Educacion Superior</option>
<%
While (NOT update.EOF)
%>
<option value="<%=(update.Fields.Item("NivelInstruccion").Value)%>" <%If (Not isNull((update.Fields.Item("NivelInstruccion").Value))) Then If (CStr(update.Fields.Item("NivelInstruccion").Value) = CStr((update.Fields.Item("NivelInstruccion").Value))) Then Response.Write("SELECTED") : Response.Write("")%> ><%=(update.Fields.Item("NivelInstruccion").Value)%></option>
<% update.MoveNext()
Wend
If (update.CursorType > 0) Then
update.MoveFirst
Else
update.Requery
End If
%>
</select>