desahabilitar un select después de consulta vacia

[zaotaobao]

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