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
%>