Tengo un foro en asp el cual carga bien...pero me saltan errores en la zona baja izkierda el icono de listo pero con errores...
El error que me da es el siguiente
Linea: 194
Carácter: 1
Error: Se requiere un objeto
Código: 0
Url: ../puebla/forum_in.asp?comando=explosion&IDpregunta=5&auth=6276
El trozo de codigo con errores es este:
Código :
If IsEmpty(RS_("alias")) Then
Else
If (RS_("alias")="Milo_Eliminar") Then
Response.Write("<B>Administrador </B>")
Else
Response.Write("<B>" &(RS_("alias"))&" </B>")
el codigo del foro es este
Código :
<%auth=request.querystring("auth"): set oConn=Server.CreateObject("ADODB.Connection")
oConn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & Server.MapPath("bd/forum.mdb")
SQL="SELECT * FROM clientes WHERE idcliente =" & auth & ";"
set rs_actual=oConn.Execute(SQL): fondo = 20+(5 * 20)%>
<HTML><HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso-8859-1">
<link href="style.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
body {
background-color: #F2F2F2;
}
.Textonormal {
color: #000000;
font-family: arial;
font-size: 14px;
}
.Textotituloblanco {
color: #FFFFFF;
font-family: arial;
font-size: 14px;
font-weight: bold;
}
.Textoverde {
color: #009900;
font-family: arial;
font-size: 14px;
font-weight: bold;
}
.Estilo3 {color: #000000; font-family: arial; font-size: 14px; font-weight: bold; }
.Estilo4 {
font-family: Geneva, Arial, Helvetica, sans-serif;
font-weight: bold;
}
.Textoazul {
color: #0066FF;
font-family: arial;
font-size: 14px;
font-weight: bold;
}
-->
</style>
</HEAD>
<BODY id=fondo>
<div id="div1" style="position:absolute; left:133px; top:0; width:445; z-index:1;"><br>
<table width="100%" height="100%" border="0" align="center" cellpadding="0" cellspacing="0" style="border-collapse: collapse">
<tr>
<td width="33%" valign="middle" class="fontprimaria">
<div align="center" class="Textonormal"><font color="#000000">Nivel
:: <strong>
<%if rs_actual("admin") = 1 then%>
Administrador
<%else%>
Usuario
<%end if%>
</strong></font></div></td>
<td width="33%" valign="middle" class="fontprimaria"><div align="center" class="Textonormal">IP: <%=Request.ServerVariables("Remote_Addr")%>
</div></td>
<td width="33%" valign="middle" class="fontprimaria">
<div align="center"><span class="Textonormal"><font color="#000000">Alias:</font></span><font color="#000000" class="Textoverde"> <strong><font color="4E7928">
<%response.Write(rs_actual("alias"))%>
</font></strong></font></div></td>
</tr>
<tr>
<td height="2" colspan="3"><div align="center">
<table width="95%" height="2" border="0" cellpadding="0" cellspacing="0">
<tr>
<td bgcolor="#4E7928"></td>
</tr>
</table>
</div></td>
</tr>
<tr>
<td colspan="3" valign="top" class="fontprimaria">
<%comando=request.querystring("comando")
if comando="" then%>
<p align="center"><span class="Textonormal"><strong><font color="#000000">(
<font color="4E7928">
<%response.Write(rs_actual("alias"))%>
</font>)</font> Bienvenido a</strong></span><strong> </strong><span class="Textoverde">Puebla de
Alcocer</span> </p>
<p align="justify" class="Textonormal">"Se eliminarán todos
los comentarios que trasgredan las normas fundamentales de conducta.
No se tolerarán insultos personales, vejaciones y cualquier tipo
de descalificación, fundamentada o no, obscena o no"<br>
Para una seguridad más controlada en el Foro guardaremos la IP
de conexión</p>
<div align="center" class="Textonormal">
<% fondo = fondo + (7 * 20)
else%>
<br>
<%end if
if rs_actual("admin") = 1 then
If comando="ver" or comando="" then%>
</div>
<p align="center" class="Textonormal"><strong><a style="cursor:hand" onClick="javascript:window.location.href='forum_in.asp?comando=anadir&auth=<%=auth%>'" class="font12_href_verd">[Añadir
nuevo tema]</a> </strong> <strong><a style="cursor:hand" onClick="javascript:window.location.href='forum_in.asp?comando=Eliminar&auth=<%=auth%>'" class="font12_href_verd">[Eliminar
comentarios]</a></strong></p>
<%end if
else
If comando="ver" or comando="" then%>
<p align="center"> </p>
<%end if
end if
set ConexionBD=Server.CreateObject("ADODB.Connection")
ConexionBD.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("bd/forum.mdb")
QoR=request.querystring("qor") : IDpregunta=request.querystring("IDpregunta")
fecha=request.querystring("fecha"): cuerpo=request.querystring("cuerpo"): titulo=request.querystring("titulo")
If comando="anadir" Then
Set RS = ConexionBD.Execute("SELECT * FROM forum WHERE QoR='X'")
RS.MoveFirst: fondo = 600%>
<div align="center" class="Textonormal"><strong>Añadir un nuevo tema al foro</strong></div>
<div>
<FORM Method="GET" Action="forum_in.asp" onSubmit="return validar(this);">
<blockquote>
<p align="left">
<span class="Textonormal">
<INPUT Type="hidden" Name="fecha" Value="<%= Day(Date) & "/" & Month(Date) & "/" & Year(Date) %>">
<INPUT Type="hidden" Name="QoR" Value="P" Size=0>
<INPUT Type="hidden" Name="auth" Value=<%= auth%> Size=0>
<INPUT Type="hidden" Name="IDpregunta" Value=<%= RS("IDpregunta")%>>
<INPUT Type="hidden" Name="comando" Value="adiccion" Size=0>
<INPUT Type="hidden" Name="suma" Value="0">
<strong><font color="#000000">Título:</font></strong> </span>
<INPUT Name="titulo" Type="text" class="input_text" Size=55 maxlength="40">
</p>
<p> <strong><font color="#000000" class="Textonormal">Cuerpo
del comentario a lanzar al foro: </font></strong></p>
<blockquote>
<p class="input_text" name="cuerpo" cols="50" rows="10"> <font color="#000000">
<TEXTAREA Name="cuerpo" Cols="60" Rows="6" class="input_text"></TEXTAREA>
</font><font color="#000000"> </font></p>
</blockquote>
<p align="right"> <font color="#000000"><A href="javascript:void(0);" class="font11_href_ng" onClick="javascript:document.getElementById('cuerpo').value=document.getElementById('cuerpo').value + '<br>';document.getElementById('cuerpo').focus();document.getElementById('suma').value=document.getElementById('suma').value + 20;"></A>
<span class="Estilo3"><a href="javascript:void(0);">Añadir salto de linea </a> </span>
<INPUT Type="SUBMIT" class="input_text" Value="Añadir">
<INPUT Type="RESET" class="input_text" Value="Borrar">
</font></p>
<div align="center"><a style="cursor:hand" onClick="javascript:window.location.href='forum_in.asp?comando=ver&auth=<%=auth%>'" class="Textoazul"><strong>>>
Volver <<</strong></a></div>
</blockquote>
</FORM>
<%End if
If comando="adiccion" Then
Set RS = ConexionBD.Execute("INSERT INTO forum (QoR, IDpregunta, fecha, autor, titulo, cuerpo,ip) VALUES ('" & QoR & "', " & IDpregunta & ", #"& fecha & "#, '" & auth & "','" & titulo & "', '" & cuerpo & "', '" & Request.ServerVariables("Remote_Addr") & "')")
If QoR="P" Then
Set RS = ConexionBD.Execute("UPDATE forum SET IDpregunta = " & IDpregunta+1 & " WHERE QoR='X'")
End If
Response.Redirect("forum_in.asp?comando=explosion&IDpregunta="& IDpregunta & "&auth=" & auth)
End if
If comando="ver" or comando="explosion" or comando="" Then%><CENTER>
<%If comando="explosion" Then
fondo=fondo + 50%>
<div align="center"><span class="Textoazul"><a style="cursor:hand" onClick="javascript:window.location.href='forum_in.asp?comando=ver&auth=<%=auth%>'" class="font12_href_verd"><strong>>>
Volver a Temas <<</strong></a><br>
</span> <br>
</div>
<%end if%>
<TABLE Width="98%" Border=1 bordercolor="E3EEDA" bgcolor="08338F">
<TR>
<TH Align='Left' bordercolor="E3EEDA" BGColor='5F8F3A'><font color="#FFFFFF" class="Textotituloblanco">
<%If comando="explosion" Then
Set RS = ConexionBD.Execute("SELECT * FROM forum WHERE IDpregunta=" & IDpregunta & " AND QoR<>'X' ORDER BY IDpregunta DESC, QoR, fecha DESC, id DESC")
Response.Write("Comentarios referentes a : <B>" & RS("titulo") & "</B>")
Else
Set RS = ConexionBD.Execute("SELECT * FROM forum WHERE QoR='P' ORDER BY IDpregunta DESC, QoR, fecha DESC, id DESC")
Response.Write("Temas abiertos en Puebla de Alcocer.")
End If%>
</font></TH>
</TR>
<%x=0 :fondo = fondo + 20
Do while not RS.EOF%>
<tr>
<td bgcolor="E3EEDA" class="Textonormal"> <div align="justify" class="Textonormal"><font class="Textonormal">
<%If comando="explosion" Then
Response.Write("(" & Day(RS("fecha")) & "/" & Month(RS("fecha")) & "/" & Year(RS("fecha")) & ") ")
if x=1 then Response.Write("<B>" & RS("titulo") & "</B><BR><br>"):fondo = fondo + 40 else x=1
fondo = fondo + 20
Else
if x=0 then Response.Write("<B>""Tema actual""</B><br>"): fondo = fondo + 20: x=1
Response.Write("(" & Day(RS("fecha")) & "/" & Month(RS("fecha")) & "/" & Year(RS("fecha")) & ") ")
Response.Write("<B><A style=""cursor:hand"" onClick=""javascript:window.location.href='forum_in.asp?comando=explosion&IDpregunta="& RS("IDpregunta") & "&auth=" & auth & "'"" class='font11_href_foro'>" & RS("titulo") & "</A></B>")
Set RS_respuestas = ConexionBD.Execute("SELECT Count(*) FROM forum WHERE QoR='R' AND IDpregunta=" & RS("IDpregunta"))
if RS_respuestas(0)= 0 or RS_respuestas(0)="" then Response.Write("<b> (0)</b>") else Response.Write("<b> (" & RS_respuestas(0) & ")</b>")
fondo = fondo + 20: Response.Write("<BR>")
End If
If comando="explosion" Then
if not (RS("autor")="0" or RS("autor")="") then
Set RS_ = ConexionBD.Execute("SELECT * FROM clientes WHERE idcliente=" & RS("autor") & ";")
If IsEmpty(RS_("alias")) Then
Else
If (RS_("alias")="Milo_Eliminar") Then
Response.Write("<B>Administrador </B>")
Else
Response.Write("<B>" &(RS_("alias"))&" </B>")
end if
End If
else
Response.Write("Anónimo<BR>")
end if
micuerpo=trim(RS("cuerpo"))
Response.Write("<BR>"& micuerpo)
fondo=fondo + 19 * (1+(Len(micuerpo)/90))
If RS("QoR")="P" Then%>
</font></div>
<div align="right">
<blockquote>
<FORM Method="GET" Action="forum_in.asp">
<INPUT Type="hidden" Name="comando" Value="Responder" Size=0>
<INPUT Type="hidden" Name="fecha" Value="<%= Day(Date) & "/" & Month(Date) & "/" & Year(Date) %>" Size=0>
<INPUT Type="hidden" Name="IDpregunta" Value=<%= RS("IDpregunta") %> Size=0>
<INPUT Type="hidden" Name="auth" Value=<%= auth%> Size=0>
<%Tit = RS("titulo") : Tit = Replace(Tit, " ", "+")%>
<INPUT Type="hidden" Name="titulo" Value=<%= Tit %> Size=0>
<INPUT Type="hidden" Name="QoR" Value="R" Size=0>
<INPUT Type="SUBMIT" class="input_text" Value="Responder">
</FORM>
</blockquote>
<font>
<%End If
End If%>
</font></div></td>
</tr>
<%RS.MoveNext
Loop%>
</TABLE>
<%If comando="explosion" Then
fondo=fondo + 50%>
<br>
<div align="center"><a style="cursor:hand" onClick="javascript:window.location.href='forum_in.asp?comando=ver&auth=<%=auth%>'" class="Textoazul"><strong>>>
Volver <<</strong></a></div>
<%end if%>
</CENTER>
<%End if
If comando="Responder" Then
TituloResp = titulo:fondo = 600%>
<div align="center" class="Estilo3"><strong>Añadir un nuevo comentario al foro</strong></div>
<FORM Method="GET" Action="forum_in.asp" onSubmit="return validar(this);">
<blockquote>
<INPUT Type="hidden" Name="fecha" Value="<%= Day(fecha) & "/" & Month(fecha) & "/" & Year(fecha) %>" Size=0>
<INPUT Type="hidden" Name="QoR" Value=<%= QoR %> Size=0>
<INPUT Type="hidden" Name="auth" Value=<%= auth%> Size=0>
<INPUT Type="hidden" Name="IDpregunta" Value=<%= IDpregunta %>>
<INPUT Type="hidden" Name="comando" Value="adiccion" Size=0>
<INPUT Type="hidden" Name="suma2" Value="0">
<%TituloResp = Replace(TituloResp, "+", " ")%>
<p class="Textonormal"><strong><font color="#000000">Respuesta
al comentario: <font color="#5F8F3A"><%= TituloResp %></font></font></strong></p>
<%TituloResp = "RE: " & TituloResp%>
<p align="left"><strong><font color="#000000" class="Textonormal">Título:</font></strong>
<INPUT Name="titulo" Type="text" class="input_text" value="<%= TituloResp %>" Size=55 maxlength="40">
</p>
<p> <strong><font color="#000000" class="Textonormal">Cuerpo
del comentario a lanzar al foro: </font></strong></p>
<p align="right"><font color="#000000"> </font></p>
<blockquote>
<p class="input_text" name="cuerpo" cols="50" rows="10"> <font color="#000000">
<TEXTAREA Name="cuerpo" Cols="50" Rows="5" class="input_text"></TEXTAREA>
</font></p>
</blockquote>
<blockquote>
<p class="input_text" name="cuerpo" cols="50" rows="10"><font color="#000000">
</font></p>
</blockquote>
<p align="left"> <font color="#000000"> <span class="Textoazul"> <a href="javascript:void(0);" class="Estilo4">Añadir salto de linea </a></span>
<input name="SUBMIT" type="SUBMIT" class="input_text" value="Añadir">
<input name="RESET" type="RESET" class="input_text" value="Borrar">
</font><font color="#000000"> </font></p>
</blockquote>
</FORM>
<div align="center"><a HRef="javascript:history.back();" class="Textoazul"><strong>>>
Volver <<</strong></a></div>
<%End if
If comando="Eliminar" Then
%>
<div align="center" class="Textonormal"><strong>Eliminar comentarios del foro</strong></div>
<FORM name="form">
<p><BR>
<font color="#000000" class="fontsecundaria"><strong> </strong></font><span class="Textonormal"><font color="#000000"><strong> Temas
completos:</strong> <br>
</font></span> <font color="#000000" class="fontsecundaria"> <strong> </strong>
<%Set RS = ConexionBD.Execute("SELECT * FROM forum,clientes WHERE QoR='P' AND idcliente=autor ORDER BY IDpregunta DESC, QoR, fecha DESC, id DESC")%>
<select name="IDpregunta_tema" class="input_text">
<option value="0">( Elija el tema a eliminar )</option>
<%do while not RS.eof
Response.Write("<option value=""" & RS("id") & """>")
Response.Write(RS("titulo"))
If (RS("alias")="Milo_Eliminar") Then
Response.Write(" - ( Administrador )")
Else
Response.Write(" - ( "& RS("alias") & " )")
end if
Response.Write("</option>")
RS.movenext
loop%>
</select>
<INPUT Type="button" class="input_text" Value="Eliminar" onClick="javascript:eliminar(1);">
</font></p>
<p><font color="#000000" class="fontsecundaria"><strong> </strong></font><span class="Textonormal"><font color="#000000"><strong>Comentarios:</strong>
<br>
</font></span> <font color="#000000" class="fontsecundaria"> <strong> </strong></font><span class="Textonormal"><font color="#000000"><strong> </strong>
<%Set RS = ConexionBD.Execute("SELECT * FROM forum,clientes WHERE QoR='R' AND idcliente=autor ORDER BY IDpregunta DESC, QoR, fecha DESC, id DESC")%>
</font></span>
<font color="#000000" class="fontsecundaria">
<select name="IDpregunta_comentario" class="input_text">
<option value="0">( Elija el comentario a eliminar )</option>
<%do while not RS.eof
Response.Write("<option value=""" & RS("id") & """>")
Response.Write(RS("titulo"))
If (RS("alias")="Milo_Eliminar") Then
Response.Write(" - ( Administrador )")
Else
Response.Write(" - ( "& RS("alias") & " )")
end if
Response.Write("</option>")
RS.movenext
loop%>
</select>
<INPUT Type="button" class="input_text" Value="Eliminar" onClick="javascript:eliminar(2);">
</font></p>
<BR>
<div align="center"><a style="cursor:hand" onClick="javascript:window.location.href='forum_in.asp?comando=ver&auth=<%=auth%>'" class="Textoazul"><strong>>>
Volver <<</strong></a></div>
</FORM>
<span class="Textonormal">
<%fondo = 600
End if
If comando="Eliminacion" Then
if request.QueryString("idtema")<>0 then
Set RS = ConexionBD.Execute("SELECT * FROM forum WHERE id=" & request.QueryString("idtema"))
Set RS = ConexionBD.Execute("DELETE * FROM forum WHERE IDPregunta = " & RS("IDPregunta") & " AND QoR<>'X'")
else
Set RS = ConexionBD.Execute("DELETE * FROM forum WHERE id =" & request.QueryString("idcomentario") & " AND QoR<>'X'")
end if
Response.Redirect("forum_in.asp?comando=ver&auth=" & auth)
End If%>
</span></div></td>
</tr>
<tr>
<td colspan="3" valign="top" class="fontprimaria"> </td>
</tr>
<tr>
<td colspan="3" valign="top" class="fontprimaria"> </td>
</tr>
</table>
</div>
<SCRIPT LANGUAGE="JavaScript">
if (parent.document.getElementById) { // DOM3 = IE5, NS6
parent.document.getElementById('contenido').style.height=<%=fondo%>;}
else {
if (parent.document.layers) { // Netscape 4
parent.document.contenido.height=<%=fondo%>;}
else { // IE 4
parent.document.all.contenido.style.height=<%=fondo%>;}
}
if (parent.document.getElementById) { // DOM3 = IE5, NS6
if (parent.document.getElementById('foro').style.backgroundImage!='url(images/layout_01-desconectar.gif)'){
parent.document.getElementById('foro').style.backgroundImage='url(images/layout_01-desconectar.gif)';}
}
else {
if (parent.document.layers) { // Netscape 4
if (parent.document.foro.backgroundImage!='url(images/layout_01-desconectar.gif)') {
parent.document.foro.backgroundImage='url(images/layout_01-desconectar.gif)';}
}
else { // IE 4
if (parent.document.all.foro.style.backgroundImage!='url(images/layout_01-desconectar.gif)') {
parent.document.all.foro.style.backgroundImage='url(images/layout_01-desconectar.gif)';}
}
}
function eliminar(valor) {
if (valor==1){
if (document.form.IDpregunta_tema.value == 0)
{alert("Elija un tema para eliminar por completo");}
else{
if (confirm("¿Estás seguro de querer eliminar por completo este Tema?")){
window.location.href = "forum_in.asp?comando=Eliminacion&auth=<%=auth%>&idtema=" + document.form.IDpregunta_tema[document.form.IDpregunta_tema.selectedIndex].value}
}
}
if (valor==2){
if (document.form.IDpregunta_comentario.value == 0)
{alert("Elija un comentario para eliminar");}
else{
if (confirm("¿Estás seguro de querer eliminar este Comentario?")){
window.location.href = "forum_in.asp?comando=Eliminacion&auth=<%=auth%>&idcomentario=" + document.form.IDpregunta_comentario[document.form.IDpregunta_comentario.selectedIndex].value}
}
}
if (valor==3){
if (document.form.IDpregunta_comentario.value == 0)
{alert("Elija un comentario para modificar");}
else{
window.location.href = "forum_in.asp?comando=Modificado&auth=<%=auth%>&idcomentario=" + document.form.IDpregunta_comentario[document.form.IDpregunta_comentario.selectedIndex].value}
}
}
function validar(formulario) {
if (formulario.titulo.value==""){
alert("Tiene que introducir un Título para continuar");
return false;}
if (formulario.cuerpo.value==""){
alert("Tiene que escribir un mesaje como Comentario para continuar");
return false;}
return true;
}
</script></BODY></HTML>
asias por la lavor ke aceis...espero vuestra respuesta!
