Hola, en el siguiente código me da error en el objeto response en la línea 35, es decir, justo cuando saco por pantalla los valores del RecordSet. Alguien me puede ayudar y decirme a qué se debe? Antes de eso, todo está supuestamente correcto. Tengo que entregar el puñetero proyecto para aprobar la asignatura y no me sale nada! Gracias.
<%@ LANGUAGE=JScript %>
<!-- #INCLUDE File="ADOJAVAS.inc" -->
<%
Ob_Conn = new ActiveXObject("ADODB.Connection")
Ob_Conn.Open ("BDAlf2")
Ob_RS= new ActiveXObject ("ADODB.RecordSet")
Ob_Command=new ActiveXObject("ADODB.Command")
if (Session("validado")+"."!="tutor."){
Response.Redirect("index.asp")
}
if (Request.Form("alums")+"."!="undefined."){
Sql="SELECT * FROM T_DUDAS, T_MODULOS WHERE T_DUDAS.titulo=T_MODULOS.titulo AND T_MODULOS.logintut='"
Sql=Sql+Request.Cookies("login")+"' AND T_DUDAS.loginusu='"+Request.Form("alums")+"'"
Ob_RS=Ob_Conn.Execute(Sql)%>
<html>
<!-- Created on: 05/03/2005 -->
<head>
<title>Cisneros On-Line: Dudas de alumnos</title>
</head>
<body ba bgcolor="#FFCC66">
<div Id="formulario" STYLE="position: absolute; top: 0px; left: 0px; width: 700px; height: 380px;">
<img src="imagenes/cabeza.gif" border="0" width="708" height="176" alt="cabecera" align="top">
</div>
<DIV style="position: absolute; top: 190px; left: 130px;width: 480px; height: 380px; z-index:0">
<b><div align="center">Dudas de alumnos: dudas de alumnos</div></b><p><p>
<%if(Ob_RS.Eof){
%>Este alumno no ha introducido ninguna duda
<%}
else{
while(!Ob_RS.Eof){%>
Fecha: <%=Ob_RS("fecha")%><p>
pregunta: <%=Ob_RS("pregunta")%><p>
<hr>
<%
}
}
%>
</DIV>
<!-- ******** BEGIN ALLWEBMENUS CODE FOR menuizda ******** -->
<img name='awmMenuPathImg-menuizda' id='awmMenuPathImg-menuizda' src='./awmmenupath.gif' alt=''>
<script type='text/javascript'>var MenuLinkedBy='AllWebMenus [2]', awmBN='452.'; awmAltUrl='';</script>
<script src='menuizda.js' language='JavaScript1.2' type='text/javascript'></script>
<script type='text/javascript'>awmBuildMenu();</script>
<!-- ******** END ALLWEBMENUS CODE FOR menuizda ******** -->
</body>
</html>
<%
Ob_Conn.Close()
}
else{
%>
<html>
<!-- Created on: 05/03/2005 -->
<head>
<title>Cisneros On-Line: Dudas de alumnos</title>
</head>
<body ba bgcolor="#FFCC66">
<div Id="formulario" STYLE="position: absolute; top: 0px; left: 0px; width: 700px; height: 380px;">
<img src="imagenes/cabeza.gif" border="0" width="708" height="176" alt="cabecera" align="top">
</div>
<div Id="formulario" STYLE="position: absolute; top: 140px; left: 5px; width: 700px; height: 380px; text-align: left; overflow: auto;">
</div>
<DIV style="position: absolute; top: 190px; left: 130px;width: 480px; height: 380px; z-index:0">
<b><div align="center">Dudas de alumnos: elija el alumno</div></b><p><p>
Elija su opción:
<form name="miformulario" action="dudasprofesor.asp" method="post">
<select name="alums">
<%
Sql="SELECT * FROM T_ALUMOD, T_MODULOS WHERE T_ALUMOD.titulo=T_MODULOS.titulo AND T_MODULOS.logintut='"
Sql=Sql+Request.Cookies("login")+"'"
Ob_RS=Ob_Conn.Execute(Sql)
while (!Ob_RS.Eof){%>
<option value="<%=Ob_RS("loginusu")%>"><%=Ob_RS("loginusu" )%></option>
<%Ob_RS.MoveNext()
}%>
</select>
<input type="submit" value="Enviar">
</form>
</DIV>
<!-- ******** BEGIN ALLWEBMENUS CODE FOR menuizda ******** -->
<img name='awmMenuPathImg-menuizda' id='awmMenuPathImg-menuizda' src='./awmmenupath.gif' alt=''>
<script type='text/javascript'>var MenuLinkedBy='AllWebMenus [2]', awmBN='452.'; awmAltUrl='';</script>
<script src='menuizda.js' language='JavaScript1.2' type='text/javascript'></script>
<script type='text/javascript'>awmBuildMenu();</script>
<!-- ******** END ALLWEBMENUS CODE FOR menuizda ******** -->
</body>
</html>
<%
}
%>
El error que da es el siguiente:
Tipo de error:
objeto Response, ASP 0104 (0x80070057)
Operación no autorizada
/dudasprofesor.asp, línea 32