Ayuda, tengo un error!

Gabycienta · #1 (**permalink**) 05/09/2002, 13:40

Hola a todos!, alguien me puede ayudar

Tengo un asp que me marca el siguiente error:

error '80020009'
Ocurrió una excepción.
/resultados7.asp, line 402

este es el código:
QPrCode="select * from parametr where PrCod=" & PrCod
Set rsPrCode = CreateObject("ADODB.Recordset") rsPrCode.ActiveConnection=cn
rsPrCode.open QPrCode
while NOT rsPrCode.EOF
PrCom = rsPrCode("PrCom")
rsPrCode.MoveNext
Wend ** linea 402 en mi codigo completo **
rsPrCode.close
If trim(PrCom) <> "" then
Estud = rsEst("EsCod")
else
Estud = 0
End if

hice el query a la base de datos por fuera y resulta que el campo PrCom trae un null..tendrá que ver eso?, o a que se debe ese error?

RootK · #2 (**permalink**) 05/09/2002, 14:32

Ya checaste que no tengas ningun campo vacío..?? si es así lo que puedes hacer sería lo siguiente..:

Código:

QPrCode=&quot;select * from parametr where PrCod=&quot; &amp; PrCod
Set rsPrCode = CreateObject(&quot;ADODB.Recordset&quot;) 

rsPrCode.ActiveConnection=cn
rsPrCode.open QPrCode
while NOT rsPrCode.EOF
PrCom = rsPrCode(&quot;PrCom&quot;) &amp; &quot;&quot;
rsPrCode.MoveNext
Wend 
rsPrCode.close
If trim(PrCom) &lt;&gt; &quot;&quot; then 
Estud = rsEst(&quot;EsCod&quot;)
else
Estud = 0
End if

Saludos.. y suerte..!

Gabycienta · #3 (**permalink**) 05/09/2002, 16:19

Gracias RootK, hice lo que me dices pero ahora no puedo ver si funciona porque ahora que intenta abrir el asp no lo abre!!..marca el siguiente error:

No se puede mostrar la página
Hay un problema con un programa de la página que está intentando abrir y no se puede mostrar la página.

--------------------------------------------------------------------------------

Pruebe lo siguiente:

Abra la página principal www.deltalaboratorio.com.mx y busque vínculos a la información que desee.
Haga clic en el botón Actualizar o inténtelo de nuevo más tarde.

HTTP 403.1 Forbidden: Execute Access Forbidden
Servicios de Internet Information Server

--------------------------------------------------------------------------------

Información técnica (para personal de soporte)

Información general:
Ha intentado ejecutar un programa CGI, ISAPI u otro programa ejecutable desde un directorio que no permite ejecutar programas.

bakanzipp · #4 (**permalink**) 05/09/2002, 16:31

no kreo que el error que te aparece ahora sea debido al cambio que te dijo que hicieras RootK.

Código:

  
if not(rsPrCode.EOF) and not(rsPrCode.BOF) then
 do while NOT(rsPrCode.EOF)
  if not(isnull(rsPrCode(&quot;PrCom&quot;))) then
    PrCom = rsPrCode(&quot;PrCom&quot;)
  end if
  rsPrCode.MoveNext
 loop 
end if

;)

<center>¸„.-·~¹°”ˆ˜¨Bakanzipp¨˜ˆ”°¹~·-.„¸[/CODE]</center>

Gabycienta · #5 (**permalink**) 06/09/2002, 10:52

Rootk....hice lo que me dices y no funciona!!!
Bakanzipp...también hice lo que me sugieres y me sigue marcando el mismo error:

error '80020009'
Ocurrió una excepción.
/resultados7.asp, line 402

el otro error, que no me dejaba ni siquiera abrir la pagina:
HTTP 403.1 Forbidden: Execute Access Forbidden
ya lo solucione!!..era una opción en una propiedad en la carpeta vitual web donde doy alojamiento al asp!!!. Pero el error del asp lo sigo teniendo ...que podra ser?

bakanzipp · #6 (**permalink**) 06/09/2002, 10:58

puedes poster al codigo corregido y decirnos cual es la linea?...

me parece raro porque todavia te esta arrojando error en la misma linea...modificaste el codigo o no?

<center>¸„.-·~¹°”ˆ˜¨Bakanzipp¨˜ˆ”°¹~·-.„¸[/CODE]</center>

Gabycienta · #7 (**permalink**) 06/09/2002, 17:47

Si bakanzipp si modifiqué el código...el error que puse fue el que marco cunado use la modificación que me sugirió RootK... aqui esta el código que me sugeriste y el error que marca:

QPrCode="select * from parametr where rCod=" & PrCod
Set rsPrCode=CreateObject("ADODB.Recordset")
rsPrCode.ActiveConnection=cn
rsPrCode.open QPrCode
if not(rsPrCode.EOF) and not(rsPrCode.BOF) then
do while NOT(rsPrCode.EOF)
if not(isnull(rsPrCode("PrCom"))) then
PrCome = rsPrCode("PrCom")
else
PrCome=""
end if
rsPrCode.MoveNext
loop
end if //***ESTA ES LA LINEA 409!!!***//
rsPrCode.close
If trim(PrCome) <> "" then
Estud = rsEst("EsCod")
Else
Estud = 0
End if

Y EL ERROR ES ESTE:

error '80020009'
Ocurrió una excepción.
/resultados7.asp, line 409

AHORA BIEN, LES COMENTO QUE HICE EL QUERY POR FUERA Y EL CAMPO PrCom trae null...yo creo que eso es lo que esta causando ruido!

Que será?

bakanzipp · #8 (**permalink**) 06/09/2002, 17:53

todavia no entender...prueba con esto y dino que te imprime

Código:

  
QPrCode=&quot;select * from parametr where rCod=&quot; &amp; PrCod
Set rsPrCode=CreateObject(&quot;ADODB.Recordset&quot;)
rsPrCode.ActiveConnection=cn
rsPrCode.open QPrCode
i=1
if not(rsPrCode.EOF) and not(rsPrCode.BOF) then
do while NOT(rsPrCode.EOF)
if not(isnull(rsPrCode(&quot;PrCom&quot;))) then
PrCome = rsPrCode(&quot;PrCom&quot;)
response.write &quot;iteracion i = &quot; &amp; PrCome &quot;&lt;br&gt;&quot;
else
PrCome=&quot;&quot;
end if
rsPrCode.MoveNext
i=i+1
loop
end if 
rsPrCode.close
If trim(PrCome) &lt;&gt; &quot;&quot; then 
Estud = rsEst(&quot;EsCod&quot;)
Else
Estud = 0
End if

estai pisando una variable...cual es la idea...ando ams perdio.

<center>¸„.-·~¹°”ˆ˜¨Bakanzipp¨˜ˆ”°¹~·-.„¸[/CODE]</center>

Gabycienta · #9 (**permalink**) 06/09/2002, 18:42

sigue el marcando el error!

QPrCode="select * from parametr where PrCod=" & PrCod
Set rsPrCode=CreateObject("ADODB.Recordset")
rsPrCode.ActiveConnection=cn
rsPrCode.open QPrCode
i=1
if not(rsPrCode.EOF) and not(rsPrCode.BOF) then
Response.write("entra al primer if")
do while NOT(rsPrCode.EOF)
Response.write("entra al do while")
if not(isnull(rsPrCode("PrCom"))) then
Response.write("entra al segundo if")
PrCome = rsPrCode("PrCom")
response.write("iteracion i = " & PrCome) %> <%
else
Response.write("entra al else del segundo if")
PrCome=""
end if
rsPrCode.MoveNext
i=i+1
loop
end if
rsPrCode.close

ESTO ES LO QUE MARCA:
entra al primer ifentra al do whileentra al else del segundo if error '80020009'
Ocurrió una excepción.

/resultados7.asp, line 416

COMO PrCom trae vacío pues entra al else del if y no pinta la "interacion i=" eso es correcto! realmente eso es lo que quiero que haga pero como que al llegar al rsPrCome.MoveNext es donde truena...raro no?...de hecho es solo un registro lo que trae ese query