query en 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")))
...
...
...