desahabilitar un select después de consulta vacia Hola a todos, tengo un problemilla de neuronas, estan de vaga...que poco me respetan, la cuestión es que tengo un <select>(html) donde cargo unos regsitros determinados,mientras los cargue no hay problema, si resulta que la consulta es nula, y selecciono uno, es decir un campo vacio, me salta un error sql. ¿que podría hacer? No tengo demasiada experiencia en asp, si la pregunta es estúpida me disculpo de antemano....igualmente sino me he explicado bien, os pego un trozo de código para clarificar el tema.
<span class="etiqueta" id=tdEntrevistes name=tdEntrevistes>Entrevistes</span>
<br>
<select size=6 id=cmbEntrevista name=cmbEntrevista class="llista-gran" onclick="return cmbEntrevista_onchange()">
<% call ompleEntrevistes(vEntrevista) %>
</select>
//el cmbEntrevista_onchange() es un submit...
function ompleEntrevistes(id)
dim vQR, vRSEntrevistes, vID, vEntrevista, selected,dataAvui,trobat,dataBD
on error resume next
set vRSEntrevistes = server.CreateObject("ADODB.Recordset")
vQR="SELECT * FROM ENTREVISTA ORDER BY CDATE(CSTR(DATA) &' '& CSTR(INICI)) DESC"
if vExpedient<>0 or vProfessional<>0 then
if vExpedient=0 then
vQR="SELECT e.* FROM ENTREVISTA e, PARTICIPA p WHERE p.[ID-ENTREVISTA]=e.ID AND p.[ID-PROFESSIONAL]=" & vProfessional & " ORDER BY CDATE(CSTR(e.DATA) &' '& CSTR(e.INICI)) DESC"
else
if vProfessional=0 then
vQR="SELECT * FROM ENTREVISTA WHERE [ID-FITXA]=" & vExpedient & " ORDER BY CDATE(CSTR(DATA) &' '& CSTR(INICI)) DESC"
else
vQR="SELECT e.* FROM ENTREVISTA e, PARTICIPA p WHERE p.[ID-ENTREVISTA]=e.ID AND p.[ID-PROFESSIONAL]=" & vProfessional & " AND e.[ID-FITXA]=" & vExpedient & " ORDER BY CDATE(CSTR(e.DATA) &' '& CSTR(e.INICI)) DESC"
end if
end if
end if
call n_obreRecordset(vRSEntrevistes, vQR)
dataAvui= Now()
trobat = false
while not vRSEntrevistes.EOF
vID=0
vEntrevista=""
selected=""
dataBD=empty
vID=cLng(vRSEntrevistes.Fields("ID").Value)
vEntrevista= cDate(vRSEntrevistes.Fields("DATA").Value) & " " &_
cStr(vRSEntrevistes.Fields("INICI").Value) & " - " &_
cStr(vRSEntrevistes.Fields("FI").Value) & " " &_
cStr(vRSEntrevistes.Fields("TITOL").Value)
dataBD = cDate( cStr(vRSEntrevistes.Fields("DATA").Value) & " " & cStr(vRSEntrevistes.Fields("INICI").Value) )
if id<>0 then
if vID = id then selected = " selected"
else
if not trobat and dataBD<dataAvui then
trobat=true
selected = " selected"
end if
end if
%>
<option value=<%=vID%><%=selected%>><%= vEntrevista %></option><%
vRSEntrevistes.MoveNext
wend
end function
//creo que podría contralarlo de alguna manera en la función superior pero necesito aprender más, poco a poco espero...en fin si alguien le interesa la pregunta me culturizaré encantado.
gracias por todo!
Sergio
