PERFECTO, muchas gracias
<%
Id2=request.form("Id")
If Id2="" then
response.redirect("http://www.midominio.htm")
else
Set oConn = Server.CreateObject ("ADODB.Connection")
Set RS = Server.CreateObject ("ADODB.RecordSet")
oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=
\\modiminio.mdb")
sql = "SELECT * FROM anuncios"
RS.Open sql, oConn, 2, 2
oConn.Execute "UPDATE anuncios SET voto=voto+1 Where Id In ("&Request.Form("Id")&")"
RS.Requery
RS.Close
oConn.Close
Set RS = nothing
Set oConn = nothing
response.redirect("http://www.midominio.htm")
end if
%>