Ayuda ASP 3.0

12/09/2008 - 17:52 por RODRIGO | Informe spam
este es el error:
Microsoft VBScript runtime error '800a005b'

Object variable not set

/env_webpay/Transbank.asp, line 30

y este es el codigo fuente:


<%@ Language=VBScript %>
<% Response.Expires = 0%>
<% Server.ScriptTimeout = 5000%>
<%
DIM TBK_TIPO_TRANSACCION
DIM TBK_MONTO
DIM TBK_ORDEN_COMPRA
DIM TBK_ID_SESION
DIM SITIO_ID
DIM TBK_URL_EXITO
DIM TBK_URL_FRACASO
Dim objResultadostr
Dim objMS

TBK_TIPO_TRANSACCION=Request("TBK_TIPO_TRANSACCION")
' descomentar lo comentado en la siguiente linea antes de entrar a produccion
'TBK_MONTOP0
TBK_MONTO=Request("TBK_MONTO")
TBK_ORDEN_COMPRA=Request("TBK_ORDEN_COMPRA")
TBK_ID_SESION= Request("TBK_ID_SESION")
'SITIO_ID= Request("SITIO_ID")
TBK_URL_EXITO= Request("TBK_URL_EXITO")
TBK_URL_FRACASO= Request("TBK_URL_FRACASO")

response.write TBK_TIPO_TRANSACCION & "<br>" & TBK_MONTO & "<br>" &
TBK_ORDEN_COMPRA & "<br>" & TBK_ID_SESION & "<br>" & TBK_URL_EXITO & "<br>" &
TBK_URL_FRACASO


Set objMS = Server.CreateObject("ServPagoOnline.servicios")

objResultadostr = objMS.GetEstadoSolicitud(TBK_ORDEN_COMPRA)


'response.write "OC: "& TBK_ORDEN_COMPRA & ": "& objResultadostr & "<br>"
'response.end

if Cint(objResultadostr)<0 then
response.clear()
response.write "error obteniendo estado solicitud"
response.end()
end if
'response.write "OC: "& TBK_ORDEN_COMPRA & ": "& objResultadostr & "<br>"
if Cint(objResultadostr)=0 then

'response.write "OC: "& TBK_ORDEN_COMPRA & ": cambiando estado de pago a 1
<br>"

'Set objMS = Server.CreateObject("ServPagoOnline.servicios")

objResultadostr = objMS.ModEstadoSolicitud(Clng(TBK_ORDEN_COMPRA),1)
if Cint(objResultadostr)<>0 then
response.clear()
response.write "error actualizando estado solicitud"
response.end()
end if




'response.Write "TBK_TIPO_TRANSACCION:" & Request("TBK_TIPO_TRANSACCION") &
"<br>"
'response.Write "TBK_MONTO:" & Request("TBK_MONTO") & "<br>"
'response.Write "TBK_ORDEN_COMPRA" & Request("TBK_ORDEN_COMPRA") & "<br>"
'response.Write "TBK_ID_SESION" & Request("TBK_ID_SESION") & "<br>"
'response.Write "SITIO_ID" & Request("SITIO_ID") & "<br>"
'response.Write "TBK_URL_EXITO" & Request("TBK_URL_EXITO") & "<br>"
'response.Write "TBK_URL_FRACASO" & Request("TBK_URL_FRACASO") & "<br>"

%>
<html>
<body onload="javascript: document.FORM.submit();">
<!-- body -->
<form name="FORM" action="http://150.0.0.91/cgi-bin/tbk_bp_pago.cgi"
METHOD="POST" >
<input type="hidden" name="TBK_TIPO_TRANSACCION"
value="<%=TBK_TIPO_TRANSACCION%>" id="TBK_TIPO_TRANSACCION" >
<input type="hidden" name="TBK_MONTO" value="<%=TBK_MONTO%>" ID="TBK_MONTO">
<input type="hidden" name="TBK_ORDEN_COMPRA" value="<%=TBK_ORDEN_COMPRA%>"
ID="TBK_ORDEN_COMPRA">
<input type="hidden" name="TBK_ID_SESION" value="<%=TBK_ID_SESION%>"
ID="TBK_ID_SESION">
<!--input type="hidden" name="SITIO_ID" value="<%=SITIO_ID%>" ID="SITIO_ID"-->
<input type="hidden" name="TBK_URL_EXITO" value="<%=TBK_URL_EXITO%>"
ID="TBK_URL_EXITO">
<input type="hidden" name="TBK_URL_FRACASO" value="<%=TBK_URL_FRACASO%>"
ID="TBK_URL_FRACASO">

</form>
</body>
</html>
<%
else
response.clear
%>
<script languaje="javascript">
//history.go(-1);

</script>
<%
response.Write "TBK_TIPO_TRANSACCION:" & Request("TBK_TIPO_TRANSACCION") &
"<br>"
response.Write "TBK_MONTO:" & Request("TBK_MONTO") & "<br>"
response.Write "TBK_ORDEN_COMPRA" & Request("TBK_ORDEN_COMPRA") & "<br>"
response.Write "TBK_ID_SESION" & Request("TBK_ID_SESION") & "<br>"
response.Write "SITIO_ID" & Request("SITIO_ID") & "<br>"
response.Write "TBK_URL_EXITO" & Request("TBK_URL_EXITO") & "<br>"
response.Write "TBK_URL_FRACASO" & Request("TBK_URL_FRACASO") & "<br>"
%>
<%
end if
set objMS=nothing
%>

alguna idea?
muchas gracias.

Preguntas similare

Leer las respuestas

#1 Daniel H. Villa
12/09/2008 - 19:34 | Informe spam
El error te esta diciendo en que linea esta:

/env_webpay/Transbank.asp, line 30



Nos facilita el codigo, pero no da reseña de que esta haciendo, se necesita
mas información, para poder ayudarlo


Salu2 Cordiales :-))

(""'·._.·L.I. Daniel Villa·._.·'"")



"RODRIGO" wrote in message
news:
este es el error:
Microsoft VBScript runtime error '800a005b'

Object variable not set

/env_webpay/Transbank.asp, line 30

y este es el codigo fuente:


<%@ Language=VBScript %>
<% Response.Expires = 0%>
<% Server.ScriptTimeout = 5000%>
<%
DIM TBK_TIPO_TRANSACCION
DIM TBK_MONTO
DIM TBK_ORDEN_COMPRA
DIM TBK_ID_SESION
DIM SITIO_ID
DIM TBK_URL_EXITO
DIM TBK_URL_FRACASO
Dim objResultadostr
Dim objMS

TBK_TIPO_TRANSACCION=Request("TBK_TIPO_TRANSACCION")
' descomentar lo comentado en la siguiente linea antes de entrar a
produccion
'TBK_MONTOP0
TBK_MONTO=Request("TBK_MONTO")
TBK_ORDEN_COMPRA=Request("TBK_ORDEN_COMPRA")
TBK_ID_SESION= Request("TBK_ID_SESION")
'SITIO_ID= Request("SITIO_ID")
TBK_URL_EXITO= Request("TBK_URL_EXITO")
TBK_URL_FRACASO= Request("TBK_URL_FRACASO")

response.write TBK_TIPO_TRANSACCION & "<br>" & TBK_MONTO & "<br>" &
TBK_ORDEN_COMPRA & "<br>" & TBK_ID_SESION & "<br>" & TBK_URL_EXITO &
"<br>" &
TBK_URL_FRACASO


Set objMS = Server.CreateObject("ServPagoOnline.servicios")

objResultadostr = objMS.GetEstadoSolicitud(TBK_ORDEN_COMPRA)


'response.write "OC: "& TBK_ORDEN_COMPRA & ": "& objResultadostr & "<br>"
'response.end

if Cint(objResultadostr)<0 then
response.clear()
response.write "error obteniendo estado solicitud"
response.end()
end if
'response.write "OC: "& TBK_ORDEN_COMPRA & ": "& objResultadostr & "<br>"
if Cint(objResultadostr)=0 then

'response.write "OC: "& TBK_ORDEN_COMPRA & ": cambiando estado de pago a 1
<br>"

'Set objMS = Server.CreateObject("ServPagoOnline.servicios")

objResultadostr = objMS.ModEstadoSolicitud(Clng(TBK_ORDEN_COMPRA),1)
if Cint(objResultadostr)<>0 then
response.clear()
response.write "error actualizando estado solicitud"
response.end()
end if




'response.Write "TBK_TIPO_TRANSACCION:" & Request("TBK_TIPO_TRANSACCION")
&
"<br>"
'response.Write "TBK_MONTO:" & Request("TBK_MONTO") & "<br>"
'response.Write "TBK_ORDEN_COMPRA" & Request("TBK_ORDEN_COMPRA") & "<br>"
'response.Write "TBK_ID_SESION" & Request("TBK_ID_SESION") & "<br>"
'response.Write "SITIO_ID" & Request("SITIO_ID") & "<br>"
'response.Write "TBK_URL_EXITO" & Request("TBK_URL_EXITO") & "<br>"
'response.Write "TBK_URL_FRACASO" & Request("TBK_URL_FRACASO") & "<br>"

%>
<html>
<body onload="javascript: document.FORM.submit();">
<!-- body -->
<form name="FORM" action="http://150.0.0.91/cgi-bin/tbk_bp_pago.cgi"
METHOD="POST" >
<input type="hidden" name="TBK_TIPO_TRANSACCION"
value="<%=TBK_TIPO_TRANSACCION%>" id="TBK_TIPO_TRANSACCION" >
<input type="hidden" name="TBK_MONTO" value="<%=TBK_MONTO%>"
ID="TBK_MONTO">
<input type="hidden" name="TBK_ORDEN_COMPRA" value="<%=TBK_ORDEN_COMPRA%>"
ID="TBK_ORDEN_COMPRA">
<input type="hidden" name="TBK_ID_SESION" value="<%=TBK_ID_SESION%>"
ID="TBK_ID_SESION">
<!--input type="hidden" name="SITIO_ID" value="<%=SITIO_ID%>"
ID="SITIO_ID"-->
<input type="hidden" name="TBK_URL_EXITO" value="<%=TBK_URL_EXITO%>"
ID="TBK_URL_EXITO">
<input type="hidden" name="TBK_URL_FRACASO" value="<%=TBK_URL_FRACASO%>"
ID="TBK_URL_FRACASO">

</form>
</body>
</html>
<%
else
response.clear
%>
<script languaje="javascript">
//history.go(-1);

</script>
<%
response.Write "TBK_TIPO_TRANSACCION:" & Request("TBK_TIPO_TRANSACCION") &
"<br>"
response.Write "TBK_MONTO:" & Request("TBK_MONTO") & "<br>"
response.Write "TBK_ORDEN_COMPRA" & Request("TBK_ORDEN_COMPRA") & "<br>"
response.Write "TBK_ID_SESION" & Request("TBK_ID_SESION") & "<br>"
response.Write "SITIO_ID" & Request("SITIO_ID") & "<br>"
response.Write "TBK_URL_EXITO" & Request("TBK_URL_EXITO") & "<br>"
response.Write "TBK_URL_FRACASO" & Request("TBK_URL_FRACASO") & "<br>"
%>
<%
end if
set objMS=nothing
%>

alguna idea?
muchas gracias.

Respuesta Responder a este mensaje
#2 Daniel H. Villa
12/09/2008 - 19:37 | Informe spam
Si me ubico a la linea 30, veo esto:

Set objMS = Server.CreateObject("ServPagoOnline.servicios")

Es ver que componente esta utilizando y cual es su implementación. No puedo
ver mas que pueda ayudarlo.


Salu2 Cordiales :-))

(""'·._.·L.I. Daniel Villa·._.·'"")



"RODRIGO" wrote in message
news:
este es el error:
Microsoft VBScript runtime error '800a005b'

Object variable not set

/env_webpay/Transbank.asp, line 30

y este es el codigo fuente:


<%@ Language=VBScript %>
<% Response.Expires = 0%>
<% Server.ScriptTimeout = 5000%>
<%
DIM TBK_TIPO_TRANSACCION
DIM TBK_MONTO
DIM TBK_ORDEN_COMPRA
DIM TBK_ID_SESION
DIM SITIO_ID
DIM TBK_URL_EXITO
DIM TBK_URL_FRACASO
Dim objResultadostr
Dim objMS

TBK_TIPO_TRANSACCION=Request("TBK_TIPO_TRANSACCION")
' descomentar lo comentado en la siguiente linea antes de entrar a
produccion
'TBK_MONTOP0
TBK_MONTO=Request("TBK_MONTO")
TBK_ORDEN_COMPRA=Request("TBK_ORDEN_COMPRA")
TBK_ID_SESION= Request("TBK_ID_SESION")
'SITIO_ID= Request("SITIO_ID")
TBK_URL_EXITO= Request("TBK_URL_EXITO")
TBK_URL_FRACASO= Request("TBK_URL_FRACASO")

response.write TBK_TIPO_TRANSACCION & "<br>" & TBK_MONTO & "<br>" &
TBK_ORDEN_COMPRA & "<br>" & TBK_ID_SESION & "<br>" & TBK_URL_EXITO &
"<br>" &
TBK_URL_FRACASO


Set objMS = Server.CreateObject("ServPagoOnline.servicios")

objResultadostr = objMS.GetEstadoSolicitud(TBK_ORDEN_COMPRA)


'response.write "OC: "& TBK_ORDEN_COMPRA & ": "& objResultadostr & "<br>"
'response.end

if Cint(objResultadostr)<0 then
response.clear()
response.write "error obteniendo estado solicitud"
response.end()
end if
'response.write "OC: "& TBK_ORDEN_COMPRA & ": "& objResultadostr & "<br>"
if Cint(objResultadostr)=0 then

'response.write "OC: "& TBK_ORDEN_COMPRA & ": cambiando estado de pago a 1
<br>"

'Set objMS = Server.CreateObject("ServPagoOnline.servicios")

objResultadostr = objMS.ModEstadoSolicitud(Clng(TBK_ORDEN_COMPRA),1)
if Cint(objResultadostr)<>0 then
response.clear()
response.write "error actualizando estado solicitud"
response.end()
end if




'response.Write "TBK_TIPO_TRANSACCION:" & Request("TBK_TIPO_TRANSACCION")
&
"<br>"
'response.Write "TBK_MONTO:" & Request("TBK_MONTO") & "<br>"
'response.Write "TBK_ORDEN_COMPRA" & Request("TBK_ORDEN_COMPRA") & "<br>"
'response.Write "TBK_ID_SESION" & Request("TBK_ID_SESION") & "<br>"
'response.Write "SITIO_ID" & Request("SITIO_ID") & "<br>"
'response.Write "TBK_URL_EXITO" & Request("TBK_URL_EXITO") & "<br>"
'response.Write "TBK_URL_FRACASO" & Request("TBK_URL_FRACASO") & "<br>"

%>
<html>
<body onload="javascript: document.FORM.submit();">
<!-- body -->
<form name="FORM" action="http://150.0.0.91/cgi-bin/tbk_bp_pago.cgi"
METHOD="POST" >
<input type="hidden" name="TBK_TIPO_TRANSACCION"
value="<%=TBK_TIPO_TRANSACCION%>" id="TBK_TIPO_TRANSACCION" >
<input type="hidden" name="TBK_MONTO" value="<%=TBK_MONTO%>"
ID="TBK_MONTO">
<input type="hidden" name="TBK_ORDEN_COMPRA" value="<%=TBK_ORDEN_COMPRA%>"
ID="TBK_ORDEN_COMPRA">
<input type="hidden" name="TBK_ID_SESION" value="<%=TBK_ID_SESION%>"
ID="TBK_ID_SESION">
<!--input type="hidden" name="SITIO_ID" value="<%=SITIO_ID%>"
ID="SITIO_ID"-->
<input type="hidden" name="TBK_URL_EXITO" value="<%=TBK_URL_EXITO%>"
ID="TBK_URL_EXITO">
<input type="hidden" name="TBK_URL_FRACASO" value="<%=TBK_URL_FRACASO%>"
ID="TBK_URL_FRACASO">

</form>
</body>
</html>
<%
else
response.clear
%>
<script languaje="javascript">
//history.go(-1);

</script>
<%
response.Write "TBK_TIPO_TRANSACCION:" & Request("TBK_TIPO_TRANSACCION") &
"<br>"
response.Write "TBK_MONTO:" & Request("TBK_MONTO") & "<br>"
response.Write "TBK_ORDEN_COMPRA" & Request("TBK_ORDEN_COMPRA") & "<br>"
response.Write "TBK_ID_SESION" & Request("TBK_ID_SESION") & "<br>"
response.Write "SITIO_ID" & Request("SITIO_ID") & "<br>"
response.Write "TBK_URL_EXITO" & Request("TBK_URL_EXITO") & "<br>"
response.Write "TBK_URL_FRACASO" & Request("TBK_URL_FRACASO") & "<br>"
%>
<%
end if
set objMS=nothing
%>

alguna idea?
muchas gracias.

email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida