ayuda error ADODB.Recordset error '800a0cb3'

[ahayyhy]

Hola, antes de nada presentarme que soy nuevo.

necesito vuestra ayuda:

Necesitaba un contador de descargas (y de web no tengo ni idea) así que buscando por internet encontré el código publicado por una chica que es el siguiente:

Código:

<%

link = request.querystring("link")

if link = "" then

link = -1

end if

if link <> -1 then

sqltxt="select * from clicks where url='"&link&"'"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("contadordescargas.mdb"))
set rs=createobject("ADODB.Recordset")
rs.open sqltxt,conn

if rs.eof then

   rs.addnew
   rs("url") = link

   rs("cantidad") = 1
   rs.update

 else

   rs("cantidad") = rs("cantidad")+1

   rs.update

end if

 rs.close

set rs=nothing
Conn.Close

response.redirect link

else%><title>contadordescargas</title>

<center>No se ha especificado ningún archivo o enlace<br>

<a href="javascript:history.go(-1)">Atrás</a>

</center>

<%

end if

%>

el problema es que al intentar utilizarlo me sale el siguiente error.

Código:

ADODB.Recordset error '800a0cb3'

Current Recordset does not support updating. This may be a limitation of the provider, or of the selected locktype.

/Descargas/contadordescargas.asp, line 21

alguien me puede ayudar??

gracias de antemano.

aquí la web de donde lo saqué:
http://www.gamarod.com.ar/articulos/contador_de_descargas.asp

[rene_bustos]

Que onda? mia estube chekando el codigo y o modifique espero y te funcione saludos
cualquier cosa para eso estamos.
saludos

Código:

<%
 link = request.querystring("link")
 if link = "" then
 link = -1
 end if
 if link <> -1 then
		sqltxt="select * from clicks where url='"&link&"'"
		Set Conn = Server.CreateObject("ADODB.Connection")
		Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("contadordescargas.mdb"))
		set rs=createobject("ADODB.Recordset")
		rs.open sqltxt, conn, 3
		if rs.eof then
			sSQl ="INSERT INTO clicks (url,cantidad) VALUES ('"&link&"',1)"
			conn.execute(sSQL)
			   'rs.addnew
	'		   rs("url") = link
	'		   rs("cantidad") = 1
	'		   rs.update
		 else
		 	sSQL="UPDATE clicks SET cantidad=" & rs("cantidad")+1
			conn.execute(sSQL)
		   'rs("cantidad") = rs("cantidad")+1
'		   rs.update
		end if
		 rs.close
 		set rs=nothing
		Conn.Close
 		response.redirect link
 else%>
	<title>contadordescargas</title>
 	<center>No se ha especificado ningún archivo o enlace<br>
 	<a href="javascript:history.go(-1)">Atrás</a>
 	</center>
 <%end if%>

[ahayyhy]

genial si que va. muchas gracias.

seguiré buscando en otro rato para que me indique la ip o el usuario también.
Muchas gracias de nuevo

[rene_bustos]

solamente un pregunta`"Si que va" te refieres a que si te funciono o a que
ojala y sea lo que pienso jejeje
saludos.

[ahayyhy]

si perdón, funcionó muy bien.

[rene_bustos]

ufffffffff ahora si puedo dormir trankilo
saludos
desde monterrey, nl, mexico

[ahayyhy]

gracias desde españa, jejeje

[ahayyhy]

hola de nuevo, para añadir una fecha y una hora cada vez que se produce un click tendría que editar el insert into, verdad?

[rene_bustos]

Que onda, asi es solo modificar el insert
Otra cosa. te recomiendo como buen programador que eres que a todas tus tablas MINIMO AGREGAS UNA FECHA DE REGISTRO ya que con esto tu podras tener un mejor control de tus procesos y procedimientos que realices es decir UPDATE, INSERT, DELETE, ETC ETC. Yo lo hago en todas las tablas por ejemplo cuand se dan de alta usuarios, o cuando modifican sus datos o cuando se van a agregar algunos productos todas esas cosas necesitan una fecha de registro
esto solo es un consejo o.k?

tu insert quedaria asi:

INSERT INTO clicks (url,cantidad,FechaDeClick) VALUES ('"&link&"',1,getdate())"

oye y a todo esto.....estas desarrollando que????

SAludos!!!
espero y te sirva

[ahayyhy]

programador yo? ja, no llego ni a aprendiz.
Lo de la fecha de registro no lo entiendo. Pero tampoco te molestes mucho, esto es sólo para controlar los que me mienten.
La aplicación en si está en la web www.yesosproinsa.com (empresa donde trabajo de contable), y es para controlar cuando cuelgo datos privados a los clientes y el día y la hora en que se los descargan (porque algunos luego niegan haberlo hecho).

Edito porque se me había olvidado darte las gracias una vez más.

[rene_bustos]

perfecto que bueno que bueno que te sirvio de algo y ya sabes que aqui andamos y n o que podamos ayudarte
saludos:D