Necesito que cada vez q hagan click en una imagen me cuente un voto.

[RucarMaN]

<%
'Response.Buffer=TRUE

urlc = Request.Querystring("urlc")

if urlc <>"" then

Set oConn = Server.CreateObject("ADODB.Connection")
MiConexion = RutaUser
oConn.Open MiConexion

strsql = "SELECT * FROM sitio WHERE url = '" & urlc & "'"

Set rs = Server.CreateObject("ADODB.RecordSet")
RS.open strsql, oConn, 3, 3

if rs.eof then
rs.AddNew
rs("clicks")= 1
rs("url") = url
rs.update
else
rs("clicks")=rs("clicks")+1
rs.update
end if

rs.Close
set rs=nothing
oConn.Close
response.redirect URLC
end if
%>