Los Foros de ASPTutor.com
Home | Perfil | Registrarse | Temas Activos | Miembros | Buscar | FAQ
Usuario:
Password:
 Todos los Foros
 ASP
 help
 Foro Bloqueado  Tema Bloqueado


Autor Temas
Mauriciocg
Starting Member

Chile
10 Posts
Mensajes - 06 May 2005 :  22:10:12  Ver Perfil  Enviar Email
Hola a todos, tengu una aplicacion la cual en el servidor me funciona correctamente, pero cuando la llamo desde el cliente, me arroja el siguiente error:
* Tipo de error:
Error Microsoft VBScrip en tiempo de ejecucion
(0x800A0A8)
Se requiere un objeto, linea 68

en el codigo yo llamo a una dll que se encuentra en el servidor, esta dll me entrega un recordset que lo llevo a una tabla, pero no se que puede estar pasandome... por favor, se los agradecere demasiado

Este es el codigo que utilizo
<%@ Language=VBScript%>
<%
dim usuario, canal, tiempofuera, tipodocumento, tipocruce, rut
dim objconsulta, obj
dim tablas, rs, datosgrilla
dim titulo,subtitulo,mensaje
Dim resultado,IdPaciente
Dim Direc,estado, nombrecliente
usuario = "GHOBH"
canal = "003"
tipodocumento = "R"
tiempofuera = 40
TIPOCRUCE = 43
estado = "A"
rut=request("rut")
Set rs = server.CreateObject("adodb.recordset")
set obj = server.CreateObject("crucepro.cruce")
'obj.cruce_pnj usuario, canal, tipodocumento, rut, tiempofuera, estado, TIPOCRUCE, nombrecliente, mensajerror, resultado
obj.retorna_cruce usuario, canal, tipodocumento, rut, tiempofuera, estado, TIPOCRUCE, tablas, rs, nombrecliente, mensajerror, datosgrilla, resultado
'response.write("El dato es")
response.Write(rut)
response.Write(" ")
response.write(nombrecliente)
'response.End()
%>
<% Do While Not rs.EOF %> (ESTA ES LA LINEA QUE ME ARROJA ERROR)
<TR CLASS=tbody>
<TD> <font size="1" face="Microsoft Sans Serif"><%= rs("MWPENUMCON")%> </font></TD>
<TD> <font size="1" face="Microsoft Sans Serif"><%= rs("MWPECODOFI")%> </font></TD>
<TD> <font size="1" face="Microsoft Sans Serif"><%= rs("MWKPNUMOPE")%> </font></TD>
<TD> <font size="1" face="Microsoft Sans Serif"><%= rs("MWPECALPARGLS")%>
</font></TD>
<TD> <font size="1" face="Microsoft Sans Serif"><%= rs("MWPEORDPAR")%> </font></TD>
<TD> <font size="1" face="Microsoft Sans Serif"><%= rs("MWPECODPRO")%> </font></TD>
<TD> <font size="1" face="Microsoft Sans Serif"><%= rs("MWPECODPROGLS")%>
</font></TD>
<TD> <font size="1" face="Microsoft Sans Serif"><%= rs("MWPECODSUB")%> </font></TD>
<TD> <font size="1" face="Microsoft Sans Serif"><%= rs("MWPECODSUBGLS")%>
</font></TD>
<TD> <font size="1" face="Microsoft Sans Serif"><%= rs("MWPEFECBRB")%> </font></TD>
<TD> <font size="1" face="Microsoft Sans Serif"><%= rs("MWPEESTREL")%> </font></TD>
<TD> <font size="1" face="Microsoft Sans Serif"><%= rs("MWPERESINT")%> </font></TD>
<TD> <font size="1" face="Microsoft Sans Serif"><%= rs("MWPEFECALT")%> </font></TD>
<TD> <font size="1" face="Microsoft Sans Serif"><%= rs("MWPECODMON")%> </font></TD>
<TD> <font size="1" face="Microsoft Sans Serif"><%= rs("MWPEOFIVEN")%> </font></TD>
<TD> <font size="1" face="Microsoft Sans Serif"><%= rs("MWPEFECINI")%> </font></TD>
<TD> <font size="1" face="Microsoft Sans Serif"><%= rs("MWPEFECTER")%> </font></TD>
<TD> <font size="1" face="Microsoft Sans Serif"><%= rs("MWPEESTOPE")%> </font></TD>
<TD> <font size="1" face="Microsoft Sans Serif"><%= rs("MWPEFECEST")%> </font></TD>
<TD> <font size="1" face="Microsoft Sans Serif"><%= rs("MWPEAGRCOM")%> </font></TD>
</TR>
<!-Next Row = Record Loop and add to html table-->
<%
rs.MoveNext
Loop
rs.Close
set rs = nothing
'Response.Clear
%>


MaurY

guarracuco
Junior Member

Venezuela
105 Posts
Posted - 09 May 2005 :  13:44:18  Ver perfil  Enviar e-mail  Visit guarracuco's Homepage
Mauricio, no veo conexion a la base de datos...

Inicio Pagina

   
 Foro Bloqueado  Tema Bloqueado
Ir a:
Los Foros de ASPTutor.com Los Foros de ASPTutor.com
Ir al principio de la Página

 Imprimir Tema
 

Descargas de manuales¦ Ejemplos de código ¦ Artículos mas visitados ¦ Envía tu articulo ¦ Foros ¦
  Libro de visitas ¦Crea un enlace con ASPTutor 
 

    © 2001-Hasta hoy  Pedro Rufo Martín  contactar