Ayuda con una consulta....

Amigos programe esto en mi ASP y en una dll lo siguiente, el tema es que
no ejecuta me sale error en el Set Obj, a que se debe o que me falta =???
ASP-
<%
Response.Expires = 0
Response.ExpiresAbsolute = Now()-1
Response.addHeader "Pragma","no-cache"
Response.addHeader "Cache-Control","private"
Response.cacheControl = "no-cache"
%>
<% LANGUAJE="VBScript" %>
<%
dim obj
dim rs
dim cfamilia, cmes, cano

cfamilia = replace(Request.Form("t_familia"),"'","")
cmes = replace(Request.Form("d_mes"),"'","")
cano = replace(Request.Form("d_ano"),"'","")

############### Set rs=Server.CreateObject("ADODB.recordset")
###########################

Set Obj=Server.CreateObject("ActSistemas.ClsActividad")

'Obj.Abrir

'Set rs = Obj.AbrirRSTXFR(cfamilia,cmes,cano)
'while not rs.EOF
%>
<TR style="FONT-SIZE: 10pt">
<TD align=middle><%=(cfamilia)%></TD>
<TD align=left><%=(cmes)%></TD>
<TD align=middle><%=(cano)%></TD>
</TD>
<%
'rs.MoveNext
'wend
'rs.Close
'set rs=nothing
%>
</TABLE>
</form>
<br><br>
<A href="consulta_mensual_telefonia.htm">Regresar</A>
</BODY>
</HTML>

DLL-

Public cn1 As New Connection
Public rs As New Recordset
Public rs1 As New Recordset
Public rs2 As New Recordset

Public Function Abrir() As Boolean
On Error GoTo PError 'en caso ocurra un error
cn1.Provider = "SQLOLEDB"
cn1.ConnectionString = "User ID=sa" _
& ";password =" _
& ";Data Source= JHUACHACA" _
& ";Initial Catalog= PERU"
cn1.Open
Abrir = True
Exit Function 'sale de la funcion
PError: 'y no se conecta
Abrir = False
MsgBox "Usuario o Contraseña Incorrecta", , "Mensaje"
End Function

############### Public Function AbrirRSTXFR(familia, mes, ano As Variant)
#################

rs.Open "EXEC PE_SP_VER_DOMICILIOS_MENSUAL " & familia & ", " & mes & ","
& ano & ""
Set AbrirRSTXFR = rs
End Function

Verifica la respuesta entre lineas de tu quetión ...


Nuno Santos
nunos7[REMOVER]@hotmail.com

"Juan Huachaca Gomez" wrote in message
news:%

Amigos programe esto en mi ASP y en una dll lo siguiente, el tema es que
no ejecuta me sale error en el Set Obj, a que se debe o que me falta =???
ASP-
<%
Response.Expires = 0
Response.ExpiresAbsolute = Now()-1
Response.addHeader "Pragma","no-cache"
Response.addHeader "Cache-Control","private"
Response.cacheControl = "no-cache"
%>
<% LANGUAJE="VBScript" %>
<%
dim obj
dim rs
dim cfamilia, cmes, cano

cfamilia = replace(Request.Form("t_familia"),"'","")
cmes = replace(Request.Form("d_mes"),"'","")
cano = replace(Request.Form("d_ano"),"'","")

############### Set rs=Server.CreateObject("ADODB.recordset")
###########################

No necessitas crear el objecto rs (verifica la alteración en la dll)

Set Obj=Server.CreateObject("ActSistemas.ClsActividad")

'Obj.Abrir

'Set rs = Obj.AbrirRSTXFR(cfamilia,cmes,cano)
'while not rs.EOF
%>
<TR style="FONT-SIZE: 10pt">
<TD align=middle><%=(cfamilia)%></TD>
<TD align=left><%=(cmes)%></TD>
<TD align=middle><%=(cano)%></TD>
</TD>
<%
'rs.MoveNext
'wend
'rs.Close
'set rs=nothing
%>
</TABLE>
</form>
<br><br>
<A href="consulta_mensual_telefonia.htm">Regresar</A>
</BODY>
</HTML>

DLL-

Public cn1 As New Connection
Public rs As New Recordset
Public rs1 As New Recordset
Public rs2 As New Recordset

Public Function Abrir() As Boolean
On Error GoTo PError 'en caso ocurra un error
cn1.Provider = "SQLOLEDB"
cn1.ConnectionString = "User ID=sa" _
& ";password =" _
& ";Data Source= JHUACHACA" _
& ";Initial Catalog= PERU"
cn1.Open
Abrir = True
Exit Function 'sale de la funcion
PError: 'y no se conecta
Abrir = False
MsgBox "Usuario o Contraseña Incorrecta", , "Mensaje"
End Function

############### Public Function AbrirRSTXFR(familia, mes, ano As
Variant) #################

Public Function AbrirRSTXFR(familia, mes, ano As Variant) as
ADODB.RecordSet

rs.Open "EXEC PE_SP_VER_DOMICILIOS_MENSUAL " & familia & ", " & mes & ","
& ano & ""
Set AbrirRSTXFR = rs
End Function

Nuno, corregi el codigo con tus recomendaciones, pero ahora me sale el
siguiente error.

Tipo de error:
Objeto Server, ASP 0178 (0x80070005)
Error en la llamada a Server.CreateObject al comprobar permisos. Se ha
denegado el acceso a este objeto.
/soporte/consulta_mensual_telefonia.asp, línea 21


Salu2

Juan Huachaca Gomez
MSN:
Telf. (00511) 7809892

"Nuno Santos" <nunos7[REMOVE]@hotmail.com> escribió en el mensaje
news:

Verifica la respuesta entre lineas de tu quetión ...


Nuno Santos
nunos7[REMOVER]@hotmail.com

"Juan Huachaca Gomez" wrote in message
news:%

Amigos programe esto en mi ASP y en una dll lo siguiente, el tema es que
no ejecuta me sale error en el Set Obj, a que se debe o que me falta
ASP-
<%
Response.Expires = 0
Response.ExpiresAbsolute = Now()-1
Response.addHeader "Pragma","no-cache"
Response.addHeader "Cache-Control","private"
Response.cacheControl = "no-cache"
%>
<% LANGUAJE="VBScript" %>
<%
dim obj
dim rs
dim cfamilia, cmes, cano

cfamilia = replace(Request.Form("t_familia"),"'","")
cmes = replace(Request.Form("d_mes"),"'","")
cano = replace(Request.Form("d_ano"),"'","")

############### Set rs=Server.CreateObject("ADODB.recordset")
###########################

No necessitas crear el objecto rs (verifica la alteración en la dll)

Set Obj=Server.CreateObject("ActSistemas.ClsActividad")

'Obj.Abrir

'Set rs = Obj.AbrirRSTXFR(cfamilia,cmes,cano)
'while not rs.EOF
%>
<TR style="FONT-SIZE: 10pt">
<TD align=middle><%=(cfamilia)%></TD>
<TD align=left><%=(cmes)%></TD>
<TD align=middle><%=(cano)%></TD>
</TD>
<%
'rs.MoveNext
'wend
'rs.Close
'set rs=nothing
%>
</TABLE>
</form>
<br><br>
<A href="consulta_mensual_telefonia.htm">Regresar</A>
</BODY>
</HTML>

DLL-

Public cn1 As New Connection
Public rs As New Recordset
Public rs1 As New Recordset
Public rs2 As New Recordset

Public Function Abrir() As Boolean
On Error GoTo PError 'en caso ocurra un error
cn1.Provider = "SQLOLEDB"
cn1.ConnectionString = "User ID=sa" _
& ";password =" _
& ";Data Source= JHUACHACA" _
& ";Initial Catalog= PERU"
cn1.Open
Abrir = True
Exit Function 'sale de la funcion
PError: 'y no se conecta
Abrir = False
MsgBox "Usuario o Contraseña Incorrecta", , "Mensaje"
End Function

############### Public Function AbrirRSTXFR(familia, mes, ano As
Variant) #################

Public Function AbrirRSTXFR(familia, mes, ano As Variant) as
ADODB.RecordSet

rs.Open "EXEC PE_SP_VER_DOMICILIOS_MENSUAL " & familia & ", " & mes &
"," & ano & ""
Set AbrirRSTXFR = rs
End Function