ecco il codice della pagina go.asp

codice:
<%
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("link")=code
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("titolo")
RS.Close
Set RS = Nothing
dcnDB.Close
Set dcnDB=Nothing
response.redirect url
%>