No tengo ni idea de como solucionar este problema

sriver · #1 (**permalink**) 18/07/2008, 07:46

Buenas,

Necesito la gran ayuda de alguien porque no consigo forma de resolver este error, bueno:

Tengo montada mi aplicacion en ISS 6.0 en su carpeta wwwroot/inscripciones, cuando voy al proceso inscripcion.asp me arroja este error:

rsTD: Error #424
Error de Microsoft VBScript en tiempo de ejecución
Se requiere un objeto
SQL:SELECT * FROM TIP_DOC

Pero lo mas curioso es que ese mismo codigo corre sin problemas en el babywebserver, pero me exigen que q corra a juro en el IIS.

Alguien tiene alguna idea de que pasa, se los agradeceria mucho !!

Saludos

tammander · #2 (**permalink**) 18/07/2008, 08:27

¿puedes poner el código donde se genera el error?

Un saludo

sriver · #3 (**permalink**) 18/07/2008, 08:43

Alli tienes el codigo completo echame una mano porque en verdad no comprendo porque corre bien en babywebserver y no en IIS

Código:

<%

On Error Resume Next

dim cn, rsTD, rsPA, rsBE
dim scod_pais
dim stipo_doc
dim snum_ident
dim smsg
dim snom_remit1
dim snom_remit2
dim sape_remit1
dim sape_remit2
dim snum_telefono
dim snum_celular
dim sdir_email
dim spwd_cadivi
dim existe
dim valide

' sbrowser = session("browser")

If Len(request.form) <> 0 Then
'	Response.Write("Request.Form:" & request.form & "<br>")
	scod_pais = request.form("cod_pais")
	stipo_doc = request.form("tipo_doc")
	snum_ident = request.form("num_ident")
	smsg = request.form("msg")
	svalide = request.form("valide")
End If
'Inicializo el Flag Update
existe = "0"

If Not isObject(cn) Then
	set cn = session("cn")
End If

set rsTD = server.createobject("ADODB.recordset")
set rsPA = server.createobject("ADODB.recordset")

strSql = "SELECT * FROM TIP_DOC"
Set rsTD = cn.execute(strSql)
if Err.Number <> 0 Then
	Response.Write("rsTD: Error #" & Err.Number & "<br>" & Err.Source & "<br>" & Err.Description & "<br>")
	Response.Write("SQL:" & strSql & "<br>")
	Response.End()
End If

strSql = "SELECT * FROM PAISES"
Set rsPA = cn.execute(strSql)
if Err.Number <> 0 Then
	Response.Write("rsPA: Error #" & Err.Number & "<br>" & Err.Source & "<br>" & Err.Description & "<br>")
	Response.Write("SQL:" & strSql & "<br>")
	Response.End()
End If

if snum_ident <> "" then
	'Verifico si el remitente es beneficiario
	strSql = "select * from remit_benef where tipo_doc_benef='" & stipo_doc & "' "
	strSql = strSql & "and num_ident_benef='" & snum_ident & "' "
	strSql = strSql & "and cod_pais_doc_benef='" & scod_pais & "'"
	Set rsBE = server.createobject("ADODB.recordset")
	Set rsBE = cn.execute(strSql)
	if Err.Number <> 0 Then
		Response.Write("rsBE: Error #" & Err.Number & "<br>" & Err.Source & "<br>" & Err.Description)
	End If
	if rsBE.eof and rsBE.bof then
		smsg = ""
	else
		smsg = "Remitente es Beneficiario"
	End IF
	'Busco si existe en nuestro sistema
	strSql = "select * from cliente_insc "
	strSql = strSql & "where cod_tipo_doc='" & stipo_doc & "' "
	strSql = strSql & "and cod_pais='" & scod_pais & "' "
	strSql = strSql & "and num_ident='" & snum_ident & "'"
'	response.write(strSql & "<BR><BR>")
	set rsCL = server.createobject("ADODB.recordset")
	set rsCL = cn.execute(strSql)
	If rsCL.Eof And rsCL.Bof Then
		existe = "0"
	Else
		session("msg") = smsg
		sid_remit = cstr(rsCL("id_remit"))
		stipo_doc = rsCL("cod_tipo_doc")
		scod_pais = rsCL("cod_pais")
		snum_ident = rsCL("num_ident")
		
		snom_remit1 = rsCL("nom_remit1")
		snom_remit2 = rsCL("nom_remit2")
		sape_remit1 = rsCL("ape_remit1")
		sape_remit2 = rsCL("ape_remit2")
		snum_telefono = rsCL("num_telefono")
		snum_celular = rsCL("num_celular")
		sdir_email = rsCL("dir_email")
		spwd_cadivi = rsCL("pwd_cadivi")
		existe = "1"
	End If
End if
'IF Len(session("id_remit")) <> 0 Then
'	response.Write("session id:" & session("id_remit") & "<BR>")
'End If
%>

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Verificación de Cliente</title>
<meta name="generator" content="WYSIWYG Web Builder - http://www.wysiwygwebbuilder.com">
<style type="text/css">
<!--
body,td,th {
	font-family: Arial, Helvetica, sans-serif;
	font-size: small;
}
-->
</style>
<script type="text/javascript">
function valida_remit(f){
	if(f.num_ident.value.length == 0)
	{
		alert("Debe suministrar el número de documento de identificación");
		return false;
	}
	f.valide.value = "SI";
	return true;
}
</script>

<script type="text/javascript">
function valida_cli(f){
	if(f.valide.value != "SI"){
		alert("Debe validar el remitente antes de procesar (Pulse validar)");
		return false;
	};
	if(f.nom_remit1.value.length == 0){
		alert("Debe suministrar el primer nombre del cliente");
		return false;
	};
	if(f.ape_remit1.value.length == 0){
		alert("Debe suministrar el primer apellido del cliente");
		return false;
	};
// LA MEGA RUTINA DE VALIDACIÓN DE EMAIL
	if(f.dir_email.value.length == 0)
	{
		alert("Debe suministrar la dirección de correo del cliente");
		return false;
	};
	if(f.dir_email.value.length < 6)
	{
		alert("La dirección de correo debe tener más de 5 caracteres");
		return false;
	};
//If InStr(correo, "@") = 0 then novalido = novalido + "No contiene <B>""@""</B><BR>"
	if(f.dir_email.value.indexOf("@") == -1)
	{
		alert("La dirección de correo debe tener un @");
		return false;
	};
	if(f.dir_email.value.indexOf(".") == -1)
	{
		alert("La dirección de correo debe tener por lo menos un punto");
		return false;
	};
	if(f.dir_email.value.indexOf(" ") != -1)
	{
		alert("La dirección de correo no debe tener espacios en blanco");
		return false;
	};
	var PosArroba = f.dir_email.value.indexOf("@")
	if(f.dir_email.value[f.dir_email.value.length - 1] == "@")
	{
		alert("La dirección de correo no puede terminar en arroba (@)");
		return false;
	};
	if(f.dir_email.value[f.dir_email.value.length - 1] == ".")
	{
		alert("La dirección de correo no puede terminar en punto (.)");
		return false;
	};
	if(f.dir_email.value[0] == "@")
	{
		alert("La dirección de correo no puede comenzar con arroba (@)");
		return false;
	};
	if(f.dir_email.value[0] == ".")
	{
		alert("La dirección de correo no puede comenzar con punto (.)");
		return false;
	};
	if(f.dir_email.value[PosArroba - 1] == ".")
	{
		alert("La dirección de correo puede tener un punto (.) inmediatamente antes del arroba (@)");
		return false;
	};
	if(f.dir_email.value[PosArroba + 1] == ".")
	{
		alert("La dirección de correo puede tener un punto (.) inmediatamente después del arroba (@)");
		return false;
	};
	if(PosArroba > f.dir_email.value.indexOf(".", PosArroba))
	{
		alert("La dirección de correo debe contener al menos un punto (.) después del arroba (@)");
		return false;
	};
	
	if(f.pwd_cadivi.value.length == 0){
		alert("Debe suministrar la contraseña de cadivi del cliente");
		return false;
	};
	return true;
}
</script>
<script type="text/javascript">
function salir(){
	window.location = "login.asp"
}
</script>

sriver · #4 (**permalink**) 18/07/2008, 08:43

y aqui la continuacion del codigo:

Código:

<script type="text/javascript" src="masunovalidaciones.js">
</script>
</head>
<body>
<table>
<tr><td bgcolor=#cccccc>Remitente</td></tr>
</table>
<table width="90%" border="1" cellpadding="0" cellspacing="0">
	<tr><td width="70%">
		<form action="inscripcion.asp" method="POST" name="frmInsc" target="_self" Id="frmInsc" onSubmit="return valida_remit(this);">
		  <table width="90%" border="0" cellpadding="0" cellspacing="0">
            <tr>
              <td><br></td>
            </tr>
            <tr>
              <td align="left" valign="top"> Tipo de Doc.:<input type="hidden" name="valide" id="valide"></td>
              <td align="left" valign="top">
                <select name="tipo_doc" size="1" id="tipo_doc">
                  <%
					rsTD.MoveFirst
					 Do While Not rsTD.EOF%>
                  <option <%IF rsTD("COD_TIPDOC") = stipo_doc Then response.write("selected")%> value='<%=rsTD("COD_TIPDOC")%>'><%=rsTD("DESCRIP_TIPDOC")%></option>
                  <% rsTD.MoveNext
					Loop
					%>
              </select></td>
            </tr>
            <tr>
              <td align="left" valign="top"> Código de País:</td>
              <td>
                <select name="cod_pais" size="1" id="cod_pais">
                  <%
					rsTD.MoveFirst
					 Do While Not rsPA.EOF%>
                  <option <%IF rsPA("COD_PAIS") = scod_pais Then response.write("selected")%> value='<%=rsPA("COD_PAIS")%>'><%=rsPA("NOM_PAIS")%></option>
                  <% rsPA.MoveNext
					Loop
					%>
                </select>
              </td>
            </tr>
            <tr>
              <td align="left" valign="top"> Núm: Identificación:</td>
              <td>
                <input type="text" name="num_ident" id="num_ident" onkeypress="return permite(event, 'num_car');" value="<%=snum_ident%>">
                <input name="Validar" type="submit" value="Validar">
              </td>
            </tr>
          </table>
	  </form>
	</td>
	  <td width="30%" align="center" valign="middle"><div align="center"><font color="#FFCC00"><b><%=smsg%></b></font></div></td>
	</tr>
</table>
<form name="frmCli" id="frmCli" action="cliente.asp" target="_self" method="POST" onSubmit="return valida_cli(this);">
	<table border="0" width="90%">
		<tr><td>Primer Nombre:</td><td>Segundo Nombre:</td><td>Primer Apellido:</td><td>Segundo Apellido:</td></tr>
		<tr>
			<td><input <%if snum_ident = "" then Response.Write("'readonly'")%> type="text" name="nom_remit1" id="nom_remit1" value="<%=snom_remit1%>" onkeypress="return permite(event, 'may');"></td>
			<td><input <%if snum_ident = "" then Response.Write("'readonly'")%> type="text" name="nom_remit2" id="nom_remit2" value="<%=snom_remit2%>" onkeypress="return permite(event, 'may');"></td>
			<td><input <%if snum_ident = "" then Response.Write("'readonly'")%> type="text" name="ape_remit1" id="ape_remit1" value="<%=sape_remit1%>" onkeypress="return permite(event, 'may');"></td>
			<td><input <%if snum_ident = "" then Response.Write("'readonly'")%> type="text" name="ape_remit2" id="ape_remit2" value="<%=sape_remit2%>" onkeypress="return permite(event, 'may');"></td>
		</tr>
		<tr>
			<td>Teléfono</td><td><input <%if snum_ident = "" then Response.Write("'readonly'")%> type="text" name="num_telefono" id="num_telefono" value="<%=snum_telefono%>" onkeypress="return permite(event, 'tel');"></td>
		</tr>
		<tr>
			<td>Celular</td><td><input <%if snum_ident = "" then Response.Write("'readonly'")%> type="text" name="num_celular" id="num_celular" value="<%=snum_celular%>" onkeypress="return permite(event, 'tel');"></td>
		</tr>
		<tr>
			<td>Correo Electrónico</td><td colspan=2><input <%if snum_ident = "" then Response.Write("'readonly'")%> size="65" type="text" name="dir_email" id="dir_email" value="<%=sdir_email%>" onkeypress="return permite(event, 'cor');"></td>
		</tr>
		<tr>
			<td>Contraseña Cadivi</td><td><input <%if snum_ident = "" then Response.Write("'readonly'")%> type="text" name="pwd_cadivi" id="pwd_cadivi" value="<%=spwd_cadivi%>"></td>
		</tr>
		<!-- tr><td>Repetir Contraseña</td><td><input type="password" name="pwd_repetido" id="pwd_repetido" value="<%=spwd_cadivi%>"></td></tr -->
		<tr>
			<td>
				<input type="hidden" name="valide" id="valide" value="<%=svalide%>">
				<input type="hidden" name="existe" id="existe" value="<%=existe%>">
				<input type="hidden" name="id_remit" id="id_remit" value="<%=sid_remit%>">
				<input type="hidden" name="tipo_doc" id="tipo_doc" value="<%=stipo_doc%>">
				<input type="hidden" name="cod_pais" id="cod_pais" value="<%=scod_pais%>">
				<input type="hidden" name="num_ident" id="num_ident" value="<%=snum_ident%>">
				<br>
			</td>
		</tr>
		<tr align="center">
			<td colspan="2"><input <%if snum_ident = "" then Response.Write("'disabled'")%> name="Procesar" type="submit" value="Procesar"></td>
			<td colspan="2"><input name="Salir" type="button" value="Salir" onClick="return salir();"></td>
		</tr>
	</table>
</form>
</body>
</html>

Lebennin · #5 (**permalink**) 18/07/2008, 08:49

Podrias comprobar si la cadena de conexión la coge bien?

En cuanto al último código no se si será eso, pq la descripción del error no lo parece, pero en caso de que un recordset no te devuelva ningún resultado, en el último código que has puesto seguro que se jode pq pones rsTD.MoveFirst sin haber comprobado previamente si dicho objeto existe.

sriver · #6 (**permalink**) 18/07/2008, 09:19

Tambien hay q recordar que estoy trabajando con una BD en oracle, nose si tambien ese puede ser el problema la conexion entre oracle y el IIS, ya estoy vuelto un 8

tammander · #7 (**permalink**) 18/07/2008, 09:21

¿Estas seguro de que esta asignacion no viene vacia?

set cn = session("cn")

isObject es una función un poco mala para verificar objetos. Sólo te dice si es un objeto, no si este esta vacio. Usa TypeName = "Connection" para verificar.

Un saludo

sriver · #8 (**permalink**) 18/07/2008, 09:32

Cita:

Iniciado por tammander

¿Estas seguro de que esta asignacion no viene vacia?

set cn = session("cn")

isObject es una función un poco mala para verificar objetos. Sólo te dice si es un objeto, no si este esta vacio. Usa TypeName = "Connection" para verificar.

Un saludo

Mmm disculpa como la utilizaria quito isObject o lo dejo ???

Gracias de antemano !!

Shiryu_Libra · #9 (**permalink**) 18/07/2008, 12:07

por que redefines los recordsets??

Cita:

set rsTD = server.createobject("ADODB.recordset")
set rsPA = server.createobject("ADODB.recordset")

lo declaras antes y los vuelves a declarar cuando ejecutas las consultas?

ademas de lo que te comenta Tammander (

), si te marca que cn, no es objeto, lo has definido anteriormente??

por que solo se encuentra en tu codigo "DIM cn", pero no hay nada que mencione

Cita:

set cn= server.createobjet("ADODB.Connection")

y/o

Cita:

cn.open "Provider=msdaora;Data Source=MyOracleDB;User Id=myUsername;Password=myPassword;"

imagino que el session("cn") traera todo esto,

verdad???

sriver · #10 (**permalink**) 18/07/2008, 13:21

EL codigo me funciona perfectamente, claro solo puedo correr en el babywebserver, pero cuando trato de utilizarlo en el IIS, me da ese error.

Ahorita estuve haciendo unas pruebas y todavia da el error mientras que con el baby la aplicacion corre perfectamente.

Hay algo en el IIS que no me deja ejecutar el codigo, y a juro me estan pidiendo que lo monte en un servidor con IIS. Nadie tiene idea de lo que puede estar pasando ?????

Otra cosa no soy el autor del codigo, el solo me lo doy para que lo implementara en IIS porque el tampoco sabe como hacerlo correr

Otra cosa el IIS la version es 5.1 no la 6.0 como dije anteriormente.

Shiryu_Libra · #11 (**permalink**) 18/07/2008, 15:17

bueno, empieza anteponiendo la comilla simple a

Cita:

'on error resume next

para que se detenga en cuanto te de el error

escribe nuevamente el error que te de aqui

y volvamos a desmembrar el codigo

tammander · #12 (**permalink**) 19/07/2008, 02:24

Además de lo que te dice Shiryu_Libra con lo cual sabrás exactamente donde se produce el error, te recomendaría que no usaras el paso de un objeto a través de sesiones. Es mala práctica. En vez de ello, usa un archivo de inclusión si no quieres poner en todas las páginas la consabida conexíón a la BD. El hecho de que uses Oracle no deberia ser problema ya que a la conexión eso le da igual.

Lo que te decia es que comprobaras que cn fuera realmente un objeto Connection:

En vez de

If Not isObject(cn) Then
set cn = session("cn")
End If

usa

Código:

if TypeName(Session("cn")) = "Connection" then
     cn = Session("cn")
else
     response.write("Error de conexión a la BD")
     response.End()
end if

Un saludo

sriver · #13 (**permalink**) 21/07/2008, 12:04

Cita:

Iniciado por Shiryu_Libra

bueno, empieza anteponiendo la comilla simple a

para que se detenga en cuanto te de el error

escribe nuevamente el error que te de aqui

y volvamos a desmembrar el codigo

Antes que todo quisiera agrader la ayuda que me estan brindando todos ustedes, realmente aprecio la generosidad por compartir sus conocimientos conmigo y los demas.

Ahora acabo de realizar lo que me dijiste y el error que me da ahora es el siguiente.

Error de Microsoft VBScript en tiempo de ejecución (0x800A01A8)
Se requiere un objeto: '[string: "Provider=OraOLEDB.Or"]'
/inscripciones/INSCRIPCION.ASP, línea 36

Ustedes me diran que es lo que siginifica esto !!

Saludos

sriver · #14 (**permalink**) 22/07/2008, 09:29

Alguien ???? alguna sugerencia

Saludos

Shiryu_Libra · #15 (**permalink**) 22/07/2008, 10:50

necesita crear el objeto conexion, que seria algo similar a esto

Cita:

set conexion = server.createobject("ADODB.Connection")

la palabra en rojo, cambia a la palabra que estes utilizando pra conexion, ok??

sriver · #16 (**permalink**) 22/07/2008, 15:14

Cita:

Iniciado por Shiryu_Libra

necesita crear el objeto conexion, que seria algo similar a esto
la palabra en rojo, cambia a la palabra que estes utilizando pra conexion, ok??

Gracias Shiryu, acabo de hacer lo que dijiste y ahora me arroja el siguiente error:

Tipo de error:
ADODB.Connection (0x800A0E78)
La operación no está permitida si el objeto está cerrado.
/inscripciones/INSCRIPCION.ASP, línea 44

Colocando esta linea,

set cn = server.createobject("ADODB.Connection")

Saludos

Shiryu_Libra · #17 (**permalink**) 22/07/2008, 15:24

ok... y en la linea 44 que tienes??

me imagino que ha de ser en la ejecucion del SQL

sriver · #18 (**permalink**) 22/07/2008, 15:28

En la linea 44 esta esto :

Código:

Set rsTD = cn.execute(strSql)

Saludos

Shiryu_Libra · #19 (**permalink**) 22/07/2008, 15:59

ok, realiza lo siguiente
cambia esto

Cita:

Set rsTD = cn.execute(strSql)

por esto otro

Cita:

rsTD.open strSql,cn,3,3

ahora tienes problemas con estas ejecuciones, debido a que has establecido que son Recordsets.....

lo otro que pudieras realizar es eliminar estas 2 lineas, y dejar intacto el codigo

Cita:

'set rsTD = server.createobject("ADODB.recordset")
'set rsPA = server.createobject("ADODB.recordset")

nota que aki solo las he puesto como comentarios, tienen el apostrofe o comilla simple al principio, realiza esto ultimo primero y comenta