hola saludos, tengo poco tiempo en esta pagina, y la neta he visto que esta muy buena, se han despejado muchas de mis dudas que he tenido, pero hace poco me dieron en mis manos un proyecto que se encuentra en asp, y soy nuevo en esto, espero su ayuda. El sistema ya esta realizado y ya he resuelto muchos errores que tenia pero tienen muchos mas. este es uno de ellos, espero me ayuden.
Microsoft VBScript runtime error '800a01a8'
Object required: '' /sigisi/expedientes/index.asp, line 256
en la linea 256 se encuentra esto
Recordset1.Close()
El código completo es:
<%if(session("expedientes"))<>1 then%>
<HTML>
<head>
<title>Portal SIPRA-FH</title>
<BASE id="bseHref" href="http://ctizmccsipra01/" />
<LINK href="css/Default.css" rel=stylesheet>
<LINK href="css/blue.css" rel=stylesheet>
<SCRIPT LANGUAGE="JavaScript" SRC="js/fecha.js"></SCRIPT>
<SCRIPT LANGUAGE="JavaScript" SRC="js/ValidacionPrueba.js"></SCRIPT>
</head>
<HTML>
<HEAD>
<TITLE>Inicio</TITLE>
</HEAD>
<BODY>
<H3>ACCESO DENEGADO.</h3>
<br><br>
<H5><center>Usted no cuenta con derechos para activar esta opcion<br> o su sesion a caducado (Reinicie su sesion en el sistema).<br><br><br>Cualquier duda favor de comunicarse con el administrador del sistema.<br>
GRACIAS.</center></H5>
</BODY>
</HTML>
<%else%>
'<!--#include file="Connections/SEC.asp" -->
'<%
'Dim Recordset1__MMColParam
'Recordset1__MMColParam = "1"
'If (Request.QueryString("ID") <> "") Then
'Recordset1__MMColParam = Request.QueryString("ID")
'End If
'%>
'<%
'Dim Recordset1
'Dim Recordset1_numRows
'Set Recordset1 = Server.CreateObject("ADODB.Recordset")
'Recordset1.ActiveConnection = MM_SEC_STRING
'Recordset1.Source = "SELECT * FROM dbo.vwSIPRAResultadosXEmpleados WHERE Ficha = '" + Replace(Recordset1__MMColParam, "'", "''") + "' ORDER BY Fecha ASC"
'Recordset1.CursorType = 0
'Recordset1.CursorLocation = 2
'Recordset1.LockType = 1
'Recordset1.Open()
'Recordset1_numRows = 0
'%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = -1
Repeat1__index = 0
Recordset1_numRows = Recordset1_numRows + Repeat1__numRows
%>
<!--#INCLUDE FILE="../../inc/base.asp"-->
<body>
<table class="xdLayout" style="WIDTH: 95%; BORDER-TOP-STYLE: none; BORDER-RIGHT-STYLE: none; BORDER-LEFT-STYLE: none; BORDER-COLLAPSE: collapse; WORD-WRAP: break-word; BORDER-BOTTOM-STYLE: none" cellPadding="5" border="0">
<tbody vAlign="top">
<tr>
<td style="PADDING-RIGHT: 5px; PADDING-LEFT: 5px; PADDING-BOTTOM: 5px; VERTICAL-ALIGN: bottom; PADDING-TOP: 5px; BORDER-BOTTOM: 5pt solid" class="primaryVeryDark">
<h6 style="FONT-WEIGHT: normal">
<font face="Verdana" size="4">Capacitación</font>
</h6>
</td>
</tr>
<tr>
<td style="BORDER-TOP: 5pt solid; VERTICAL-ALIGN: bottom" class="primarylight">
<%
if request.querystring("ID") = "" then %>
<form action="/SIGISI/expedientes/index.asp" method="get" name="FormaFicha" target="contents">
Por favor inserte el número de ficha a buscar :<br />
<input type="text" name="ID" size="12"><input type="submit" value="Buscar">
</form>
</td>
</tr>
</tbody>
</table>
<p>
<% else
set RS=Server.CreateObject("ADODB.Recordset")
RS.Open "SELECT Ficha,nombre,appaterno,apmaterno FROM expLaboral where Ficha=" & Request.querystring("ID"),conn,3,3
if not RS.EOF THEN%>
Ficha encontrada: <br>
<b><%=RS("Ficha")%> - <%=RS("nombre")%> <%=RS("appaterno")%> < %=RS("apmaterno")%></b>
</p>
<a href="#" target="contents" onClick="javascript:location.reload()"><span style="font-size: 10px">Recargar Información</span></a>
</td>
</tr>
</tbody>
</table><br />
<% set RS2=Server.CreateObject("ADODB.Recordset")
RS2.Open "SELECT clave, fecha, observaciones, aprobado, asistio, clave_id from exp_cases WHERE ficha='" & request.querystring("ID") & "' ORDER BY id ASC",conn,3,3
%>
<table width="95%" border="1" cellspacing="2" cellpadding="2">
<tr><td colspan="8"><div align="center" style="font-size: 14px"><strong><em>Cursos CASES</em></strong></div></td>
</tr>
<tr>
<td><span style="font-size: 12px; font-weight: bold">Clave del Curso</span></td>
<td><span style="font-size: 12px; font-weight: bold">Nombre</span></td>
<td><span style="font-size: 12px; font-weight: bold">Quién impartió </span></td>
<td><span style="font-size: 12px; font-weight: bold">Fecha de Capacitación </span></td>
<td><span style="font-size: 12px; font-weight: bold">Fecha de Expiración </span></td>
<td><span style="font-size: 12px; font-weight: bold">Aprobó</span></td>
<td><span style="font-size: 12px; font-weight: bold">Asistió</span></td>
<td><span style="font-size: 12px; font-weight: bold">Observaciones</span></td>
</tr>
<%DO WHILE not RS2.eof%>
<tr>
<td><span style="font-size: 10px"><%=RS2("clave")%></span></td>
<% set RS3=Server.CreateObject("ADODB.Recordset")
RS3.Open "SELECT nombre from cases_claves WHERE clave=" & RS2("clave") & " ORDER BY id ASC",conn,3,3
set RS25=Server.CreateObject("ADODB.Recordset")
sql = "SELECT profesor from cases WHERE clave_id='" & RS2("clave_id") & "'"
'response.write sql
RS25.Open sql,conn,3,3
%>
<td><span style="font-size: 10px"><%=RS3("nombre")%></span></td>
<td><span style="font-size: 10px"><%=RS25("profesor")%></span></td>
<td><span style="font-size: 10px"><%=RS2("fecha")%></span></td>
<td><span style="font-size: 10px"><% expir = DateAdd("yyyy", 2, RS2("fecha"))
expir2 = DateDiff("m",Date,expir)
'response.write expir2
if expir2 < 2 then %>
<span style="color: #FF0000">
<% end if %>
<%=DateAdd("yyyy", 2, RS2("fecha")) %></span></span></td>
<td><span style="font-size: 10px"><%=RS2("aprobado")%></span></td>
<td><span style="font-size: 10px"><%=RS2("asistio")%></span></td>
<td><span style="font-size: 10px"><%=RS2("observaciones")%></span></td>
</tr>
<%RS2.MOVENEXT
LOOP%>
</table>
<% set RS2=Server.CreateObject("ADODB.Recordset")
RS2.Open "SELECT id, curso, fecha, profesor, observaciones from exp_seguridad WHERE ficha=" & request.querystring("ID") & " ORDER BY id ASC",conn,3,3
%>
<br />
<table width="95%" border="1" cellspacing="2" cellpadding="2">
<tr><td colspan="5"><div align="center" style="font-size: 14px"><strong><em>Cursos de Seguridad </em></strong></div></td>
</tr>
<tr>
<td><span style="font-size: 12px; font-weight: bold">Nombre del Curso</span></td>
<td><span style="font-size: 12px; font-weight: bold">Fecha de Capacitación </span></td>
<td><span style="font-size: 12px; font-weight: bold">Quién impartió </span></td>
<td><span style="font-size: 12px; font-weight: bold">Observaciones</span></td>
<td><span style="font-size: 12px; font-weight: bold">
<% if lcase(session("tipo")) = "admin" then%>
<%="<strong>Edición</strong>"%>
<%end if %>
</span></td>
</tr>
<%DO WHILE not RS2.eof%>
<tr>
<td><span style="font-size: 10px"><%=RS2("curso")%></span></td>
<td><span style="font-size: 10px"><%=RS2("fecha")%></span></td>
<td><span style="font-size: 10px"><%=RS2("profesor")%></span></td>
<td><span style="font-size: 10px"><%=RS2("observaciones")%></span></td>
<td><span style="font-size: 10px"><% if lcase(session("tipo")) = "admin" then%>
<%="<a href=/SIGISI/expedientes/seg_edit.asp?id=" & RS2("id") & " target=contents>(Editar)</a> <a href=/SIGISI/expedientes/seg_del.asp?id=" & RS2("id") & " target=contents>(Borrar)</a>" %>
<%else%>
<%="" %>
<% end if %></span></td>
</tr>
<%RS2.MOVENEXT
LOOP%>
<tr><td colspan="5"><br /><div align="right"><span style="font-size: 10px"><%="<a href=/SIGISI/expedientes/seg_add.asp?ficha=" & request.querystring("ID") & ">Agregar Curso</a>" %></span></div></td></tr>
</table>
<br />
<% set RS2=Server.CreateObject("ADODB.Recordset")
RS2.Open "SELECT id, curso, fecha, profesor, observaciones from exp_categoria WHERE ficha=" & request.querystring("ID") & " ORDER BY id ASC",conn,3,3
%>
<table width="95%" border="1" cellspacing="2" cellpadding="2">
<tr><td colspan="5"><div align="center" style="font-size: 14px"><strong><em>Cursos requeridos por categoría</em></strong></div></td>
</tr>
<tr>
<td><span style="font-size: 12px"><strong>Nombre</strong></span></td>
<td><span style="font-size: 12px"><strong>Fecha de Capacitación </strong></span></td>
<td><span style="font-size: 12px"><strong>Quién impartió </strong></span></td>
<td><span style="font-size: 12px"><strong>Observaciones</strong></span></td>
<td><span style="font-size: 12px">
<% if lcase(session("tipo")) = "admin" then%>
<%="<strong>Edición</strong>"%>
<%end if %>
</span></td>
</tr>
puse primera parte del codigo pk esta muy largo, pero antes comentarie una parte, que se encuentra a partir de la linea 27
