query en dll

[Andr3s]

Poseeo este codigo en mi dll:

Public Function selectverproductocontador() As Recordset

Dim ConnectionString As String
Dim strsql As String
Dim rs As Recordset


ConnectionString = "Driver={SQL Server};Description=Comsultasonline;SERVER=ANDRES; UID=administrador;PWD=matrix2003;DATABASE=tiendaa3 st"

Queryproducto = Request.QueryString("productId")

Set rs = CreateObject("ADODB.Recordset")
strsql = "SELECT * FROM productos WHERE productId= " & Queryproducto & ""

rs.Open strsql, ConnectionString, adLockOptimistic, adLockOptimistic
Set selectverproductocontador = rs

Dim veces
veces = rs("veces") + 1

rs("veces") = veces
rs.Update
rs.Close
Set contatobjeto = Nothing
Set rs = Nothing

End Function


y en mi página ASP:


<%

Set dscontatobjeto = Server.CreateObject("conection.verproductocontador ")

dscontatobjeto.selectverproductocontador

%>


Al ejecutar mi página asp me da el siguiente mensaje de error:

Object required en la linea

dscontatobjeto.selectverproductocontador


donde esta el problema ¿Se puede recoger el valor del query desde la dll?

[bakanzipp]

a ver ...

aclaremos que desde una componente tu no puedes recoger via get o post valores..por lo tanto...esto esta mal

Queryproducto = Request.QueryString("productId")

Esto es solo aplicable en paginas ASP y no en dll's.

para tomar valores desde ASP a DLL debes enviarlos por parametros...como te lo comente por ahi.

Public Function selectverproductocontador(ByVal entrada as integer ) As Recordset

Dim ConnectionString As String
Dim strsql As String
Dim rs As Recordset


ConnectionString = "Driver={SQL Server};Description=Comsultasonline;SERVER=ANDRES;
UID=administrador;PWD=matrix2003;DATABASE=tiendaa3
st"


Set rs = CreateObject("ADODB.Recordset")
strsql = "SELECT * FROM productos WHERE productId= " & entrada & ""

rs.Open strsql, ConnectionString, adLockOptimistic, adLockOptimistic
Set selectverproductocontador = rs

Dim veces
veces = rs("veces") + 1

rs("veces") = veces
rs.Update
rs.Close
Set contatobjeto = Nothing
Set rs = Nothing

End Function


EN TU PAGINA DE ASP LE ENVIAS EL PARAMETRO DE ENTRADA.

Set dscontatobjeto = Server.CreateObject("conection.verproductocontador ")

set rs = dscontatobjeto.selectverproductocontador(cint(Requ est.QueryString("productId")))
...
...
...

[Andr3s]

Gracias de nuevo. Funciono correctamente