Foros del Web - Ver Mensaje Individual

Adler · #5 (**permalink**) 14/01/2008, 05:51

Te imprimo todo lo importante para que lo revises. A ver si logras localiza el problema

Código:

<% On Error Resume Next  %>

<%
SELECT case idbusqueda 
case 1
Call MostrarReg
case 2
......
End SELECT

'=========================================================
Sub MostrarReg

Call ConectarForo
Call Registro (rs)

rs.PageSize = imprm
rs.CacheSize = imprm

SQL = "Select IdMensaje, IdForo, IdCabecera, IdPadre, Autor, AutorRes, Lecturas, ResEsteMensaje, Fecha, FechaResp, Tema, Cuerpo FROM Mensajes WHERE "
For i=0 to (UBound(array_cadena))
if i <> 0 then 
SQL = SQL & "OR "
end if
SQL = SQL & "LCase(Cuerpo) LIKE '%"&Espacio & array_cadena(i) & Espacio&"%'  "
Next 'i
SQL = SQL & "ORDER BY Fecha desc;"
rs.Open SQL, oConn,3,1

' ===== SE HA PRODUCIDO UN ERROR =====
if Err.number <> 0 Then ' Error conexión u otro tipo
Response.Clear
Call AvisoError
Err.Clear
end if
' ====================================

IF rs.EOF then ' No se han encontrado registros
%>
No se ha obtenido ning&uacute;n resultado. Prueba a intentarlo con otros t&eacute;rminos
<%
ELSE ' Se han encontrado registros
cant_registros = rs.RecordCount
cant_paginas = rs.PageCount
If pagina > cant_paginas then pagina = cant_paginas
If pagina< 1 Then pagina = 1

' ==== Imprime Paginación ========
if cant_paginas > 1 then
Call Paginacion
else
Call PocosReg
end if
' ==== Fin Imprime Paginación ========

rs.AbsolutePage = pagina

' ====== Saca Id's de registros encontrados 
Dim registros
registros=rs.getrows
' ====== Fin Saca Id's de registros encontrados 

Call LimpiarRS (rs)
Call LimpiarConexion

For z=0 to UBound(registros,2)
If registros_mostrados > (imprm-1) then
Exit For
Else
' ==== Imprime Registros ========
%>

<table border="0px" bgcolor="#e0b471" cellpadding="0px" cellspacing="1px" width="741px">
<tr>
<td>
<table border="0px" cellpadding="3px" cellspacing="0px" width="741px">
<tr>
<td class="panel_buscador_contenido" width="212px">Publicado: <%=registros(Fecha,z)%></td>
<td class="panel_buscador_contenido" width="222px"><div align="center">Autor: <strong><%=registros(Autor,z)%></strong></div></td>
</tr>
<tr>
<td class="panel_buscador_contenido" colspan="2">Tema: <a href="./foros/mostrarmsg.asp?id=<%=registros(IdCabecera,z)%>&amp;f=<%=registros(IdForo,z)%>"><strong><%=registros(Tema,z)%></strong></a></td>
</tr>
<tr>
<td class="panel_buscador_contenido" colspan="2">
<table border="0px"  bgcolor="#b6b6b6" cellpadding="0px" cellspacing="1px" width="741px">
<tr>
<td>
<div id="panel_buscador_muestratexto_contenedor" style="border:2px;groove;margin:0px 0px; padding:6px;">
<div id="panel_buscador_muestratexto_contenenido"><em><%=unescape(bb_code(Lineify(Cortar(registros(Cuerpo,z),400)),0))%></em></div></div>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
<br />
<%
End If
registros_mostrados = registros_mostrados + 1
Next 'z
' ==== Fin Imprime Registros ========
' ==== Imprime Paginación ========
if cant_paginas > 1 then
Call Paginacion
else
Call PocosReg
end if
' ==== Fin Imprime Paginación ========

END IF
End Sub 'MostrarReg
'=========================================================

Sub AvisoError ()
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html dir="ltr">
<head>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=ISO-8859-15">
<title>Error</title>
<style type="text/css">
.cab {color: #000; font: 16px verdana;}
.txt {color: #000; font: 11px tahoma, verdana;}
</style>
</head>
<body>
<table border="0px" cellpadding="0px" cellspacing="0px" width="400px">
<tr>
<td width="25%">
<img src="./pics/errorbd.gif" border="0px" width="80px" height="48px">
</td>
<td class="cab">
Error en Base de Datos
</td>
</tr>
<tr height="60px">
<td class="txt">
Hay un problema con la p&aacute;gina que est&aacute;s intentando ver y no se puede mostrar.
</td>
</tr>
</table>
<%
Response.Write("Documento ->> " & seccion)
Response.Write("<BR>Descripción   ->> " & Err.Description)
Response.End
'Libero memoria y cierro todo
Call LimpiarRS (rs)
Call LimpiarConexion
%>

</body>
</html>
<%
End Sub 'AvisoError
'====================================================================================
%>

Gracias