Error en tiempo de ejecucion

[beinat]

Hola, tengo un problemilla con una pagina asp me da el suguiente error:

Error de Microsoft VBScript en tiempo de ejecución error '800a01a8'

Se requiere un objeto: ''

/zerbitzuak/foroa/default_inc.asp, línea 30

en la linea 30 del documento asp tengo lo siguiente:

inForCodigo = objForo.Codigo

Habet si alguien sabe a que se debe ese error, un saludo y gracias

[Adler]

Hola

Estaría bien que mostraras la consulta

[beinat]

El codigo es el siguiente:

Código PHP:

  <%
dim inPagina, inCafCodigo
inPagina = cint(request.querystring("inPagina"))
 
 
if inPagina < 1 then
    inPagina = 1
end if
 
dim inNumeroPaginas , inPaginaSize
    inNumeroPaginas = 1
    inPaginaSize = 50
 
 
 
dim inForCodigo
dim objForo,cobjConversaciones, objConversacion, objCategoria
 
dim cobjForos, objItem
set cobjForos = objAplic.cobjObtenerForosTodos
 
 
for each objItem in cobjForos
 
    if  lcase(objItem.Nombre) = "foro juvenil" then
        set objForo = objItem
    end if
next
inForCodigo = objForo.Codigo
 
if objForo.Deshabilitado then
    response.redirect("errorforo.asp")
end if
 
set cobjConversaciones = objForo.cobjObtenerConversacionesPaginadas(inPaginaSize,inNumeroPaginas,inPagina)
 
dim inCont
inCont = 1
%>
<form>
 
 
<table border="0" width="100%" cellpadding="2" cellspacing="2" class="textoCorridoTablas">
    <tr>
        <td>
            
<a href="nueva_conversacion.asp?inMODKodigoa=<%=session("inMODCodigo")%>&inPagina=<%=inPagina%>"><%=stCampoTexto("NUEVO_TEMA",stIdioma,objCamposTexto)%></a>
            
        </td>
        <td align="right">
            <%if inPagina > 1 then%>
                <a href="default.asp?inPagina=<%=inPagina-1%>">&lt;&lt;<%=stCampoTexto("ANTERIORES",stIdioma,objCamposTexto)%></a>
            <%end if%>
            <%if inPagina < inNumeroPaginas then%>
                <a href="default.asp?inPagina=<%=inPagina+1%>"><%=stCampoTexto("SIGUIENTES",stIdioma,objCamposTexto)%>&gt;&gt;</a>
            <%end if%>
            
        </td>
    </tr>
    
</table>
 
 
<table border="0" width="100%" cellpadding="2" cellspacing="2" class="textoCorridoTablas">
    <tr>
            <td align="center" class="cabTabla" width="60%"><%=stCampoTexto("TEMA",stIdioma,objCamposTexto)%></td>
            <td align="center" class="cabTabla"><%=stCampoTexto("MSJ",stIdioma,objCamposTexto)%></td>
            <td align="center" class="cabTabla"><%=stCampoTexto("ULTIMO",stIdioma,objCamposTexto)%></td>
            <td align="center" class="cabTabla"><%=stCampoTexto("NOMBRE",stIdioma,objCamposTexto)%></td>
    </tr>
        <%for each objConversacion in cobjConversaciones%>
    <tr class="celTabla">
                <td>
                <a  class="light" href="mensajes.asp?concodigo=<%=objConversacion.Codigo%>&inMODKodigoa=<%=session("inMODCodigo")%>">
                    <%'if len(objConversacion.Titulo) > 40 then%>
                        <%'=left(objConversacion.Titulo,40) & "..."%>
                    <%'else%>
                        <%=objConversacion.Titulo%>
                    <%'end if%>
                </a></td>
                <td><%=objConversacion.NumMensajes%></td>
                <td><%=stMostrarFechahora(objConversacion.Ultimo)%></td>
                <td><%=objConversacion.IniciadoPor%></td>
    </tr>
            <%inCont = inCont + 1%>
        <%next%>
    
</table>
 
<%
if inCont > 15 then
%>
 
<table border="0" width="100%" cellpadding="2" cellspacing="2" class="textoCorridoTablas">
    <tr>
        <td>
            
<a href="nueva_conversacion.asp?bn=<%=lcase(carpeMenu)%>&inPagina=<%=inPagina%>"><%=stCampoTexto("NUEVO_TEMA",stIdioma,objCamposTexto)%></a>
            
        </td>
        <td align="right">
            <%if inPagina > 1 then%>
                <a class="light" href="default.asp?forcodigo=<%=objForo.Codigo%>&inPagina=<%=inPagina-1%>">&lt;&lt;<%=stCampoTexto("ANTERIORES",stIdioma,objCamposTexto)%></a>
            <%end if%>
            <%if inPagina < inNumeroPaginas then%>
                <a class="light" href="default.asp?forcodigo=<%=objForo.Codigo%>&inPagina=<%=inPagina+1%>"><%=stCampoTexto("SIGUIENTES",stIdioma,objCamposTexto)%>&gt;&gt;</a>
            <%end if%>
            
        </td>
    </tr>
    
</table>
<%end if%>
</form> 
   

[Shiryu_Libra]

sera que te pide el objeto objForos, no objforo

inForCodigo = objForo.Codigo

inForCodigo = objForos.Codigo