mi sembra una soluzione troppo semplice, per questo credo di non avere capito... comunque prova cosi':



<%
Dim url
dim code
dim sql
dim totale
code=request.querystring("titolo")
Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
sql= "select * from listaaffiliazioni where titolo='"&replace(code,"'","''")&"'"
rs.Open sql, dcnDB, 3, 3
if rs.eof then
rs.addnew
rs.Fields("totale")=1
rs.update
else
totale=rs("totale")+1
rs.Fields("totale")=totale
rs.update
end if
url="voto.asp?A=votazione_grazie&titolo="&(rs("tit olo"))
RS.Close
Set RS = Nothing
dcnDB.Close
Set dcnDB=Nothing
response.redirect url
%>


ma ripeto credo di non aver capito bene ancora


ok ok mi autofagianizzo