Select

[Pilly]

Hola a todos.
Tengo un pequeño problema con un select que como uds. saben se debe prevenir cualquier tipo de ingreso al formulario por parte de los usuarios, por ejemplo si en este select se elige ----Listado---- a pesar de que este vale 0 me envia a una pantalla de error.

este es el select:

<select name="buscarc" class="cmb" id="buscarc">

<option value="0">---Listado---</option>
<%

DO WHILE NOT Tabla.Eof
apellidos = Tabla ("pn_apellidos")
nombres = Tabla ("pn_nombres")
codigo = Tabla ("pn_no_doc_identidad")
If (buscarc = codigo) Then
Response.Write "<option value='"&codigo&"' selected>"&nombres&" "&apellidos&"</option>"
else
Response.Write "<option value='"&codigo&"'>"&nombres&" "&apellidos&"</option>"
end If
Tabla.MoveNext
LOOP

%>
</select>

y el mesaje de error es el siguiente:

Tipo de error:
ADODB.Field (0x80020009)
Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.
/gp/report_hojaruta_pn_fact.asp


Por favor podrian recomendarme que hacer con esta situación

Muchas gracias

[u_goldman]

Pero claramente el error no esta en el codigo que pusiste, podrias por favor poner el codigo que causa la excepcion?

Salu2,

[monkyta]

Lo que esta pasando es que tu pagina esta haciendo una peticion al SQL y no hay filas que cumplan la condicion..... puede ser que los parametros que estas pasando lleguen mal... revisa eso..........

[Pilly]

Este es el sql pero no estpy poniendo ninguna condición para ese caso porque creo que si compara Set Articulos = ConexionBD.Execute("select * from tbl_pn_hoja_ruta WHERE pn_no_doc_identidad = '" & buscarc & "' and facturado like 'No' order by fecha ASC") no existe un pn_no_doc_identidad que sea 0, entonces debería enviar un mensaje de: No hay rutas registradas.
En donde estoy mal en mi razonamiento????

<%
If (opc=1) Then


Set ConexionBD = Server.CreateObject("ADOdb.Connection")
ConexionBD.Open "DSN=gp"
Set Familias = ConexionBD.Execute("select * from tbl_persona_natural WHERE pn_no_doc_identidad = '" & buscarc & "'")
If Not Familias.EOF Then
Response.Write("<br>")
Response.Write("<TABLE Border='0' align='center' width='366'>")
Response.Write("<TR><TD>")
Response.Write("<div class='formtxt'>Apellidos : " & Familias("pn_apellidos") & "<BR>" & " </div>")
Response.Write("<div class='formtxt'>Nombres: " & Familias("pn_nombres") & "<BR>" & " </div>")
Response.Write("<div class='formtxt'>I.D: " & Familias("pn_no_doc_identidad") & "<BR>" & " </div>")
Response.Write("</TD><TD>")
Response.Write("</TABLE>")
Response.Write("<br>")
End If


Set Articulos = ConexionBD.Execute("select * from tbl_pn_hoja_ruta WHERE pn_no_doc_identidad = '" & buscarc & "' and facturado like 'No' order by fecha ASC")

If Articulos.EOF Then
Response.Write("<br>")
Response.Write("<p class='formtxtmsg'>No hay rutas registradas</p>")
Else
Articulos.MoveFirst
%>

<div class="login">
<div class="form-block">

<%Do While Not Articulos.EOF %>

<div>Fecha: <%=Articulos("fecha")%> </div>
<div>Abogado: <%=Articulos("id_abogado")%> </div>
<div>Tramite: <%=Articulos("tramite") %> </div>
<div>Horas: <%=Articulos("no_horas") %> </div>
<div>Minutos: <%=Articulos("no_minutos") %> </div>
<div>Facturado: <%=Articulos("facturado") %></div>
<% idr=Articulos("id")%>
<%
if (Articulos("facturado")="Si") then
factv="No"
Else
factv="Si"
End If
opcm=1
%>