Ver Mensaje Individual
  #17 (permalink)  
Antiguo 21/11/2007, 16:34
Avatar de Shiryu_Libra
Shiryu_Libra
Colaborador
 
Fecha de Ingreso: febrero-2007
Ubicación: Cantando "Screenager" en "Kirafa Kaput"
Mensajes: 3.614
Antigüedad: 18 años, 2 meses
Puntos: 88
Re: Comentarios para sistema de noticias (otra vez)

Entendamos el codigo
Cita:
Iniciado por werewe Ver Mensaje
.....
<% if result2.EOF And result2.BOF Then
"No hay come"
End If %>
Pero es evidente que no es así. ¿Cómo es? Es que no tengo ni idea...
tu tienes esto:
Cita:
if result2.EOF And result2.BOF Then
que esta mal, cosa que te explicaba verinchi
Cita:
Iniciado por verinchi Ver Mensaje
.....
Lo del EOF y BOF te da error porque la comparación es una contradicción. Estás intentando que result2 sea Fin de Archivo y Principio de Archivo al mismo tiempo.
puedes ponerlo asi
Cita:
if result2.EOF or result2.BOF Then
y preguntarias si es el principio, o el final

un ejemplo de como evitarte este tipo de problemas es solo preguntar si es el final
Cita:
Código PHP:
set Buscar=conexion.execute(BuscarSQL)
'VERIFICAMOS QUE NO TENGAMOS ERRORES DE CONSULTA
if Err=0 then
    '
VERIFICAMOS QUE NO SEA EL FINAL DE LA TABLA
    
if Buscar.EOF=FALSE then
        
'EJECUTAMOS NUESTRA ACTUALIZACION
        ArregloBuscar=Buscar.GetRows
        response.Write "<table border=1>"
        for I = 0 to UBound(ArregloBuscar,2) 
            '
Abrimos una nueva fila
            response
.Write "<tr><td>" "</td>"
            'Desde el primero hasta el último "campo"...
            for J = 0 to Ubound(ArregloBuscar, 1)
                '
Imprimo una celda para cada campo
                response
.Write "<td>"
                
if isnull(ArregloBuscar(JI)) then
                    response
.Write "&nbsp;"
                
else
                    
response.Write ArregloBuscar(JI)
                
end if
                
response.Write "</td>"
                
response.Flush()
            
next
            Response
.Write("</tr>")
        
next
        response
.Write "</table>"
    
else
        
'EN CASO DE NO ENCONTRAR EL ID
        response.Write "Error. No se encontro parametro a consultar"
    end if
else
    '
EN CASO DE ERROR DE ESTRUCTURA DE LA BUSQUEDA
    response
.Write "Error. No se puede realizar. "&BuscarSQL
end 
if 
esta base puede servirte para otras operaciones de consulta
__________________
"Eres parte del problema, parte de la solucion o parte del paisaje"
Un Saludo desde Desierto de Altar, Sonora, MX.
Shiryu_libra