<% Set OBJdbConnection = Server.CreateObject("adodb.connection") OBJdbConnection.Open Application("DSN") %> <% id_post= request("id_post") id_votante=request("id_votante") id_votato= request("id_votato") if id_votante<>"" and id_votante<>id_votato then sql="select id_post,id_votante from marcellomm_.nuke_reputazione where marcellomm_.nuke_reputazione.id_post="&id_post&" and marcellomm_.nuke_reputazione.id_votante="&id_votante set rsc=OBJdbConnection.execute (sql) if not rsc.eof then response.write("Hai giÓ espresso una preferenza per questo post .... ora l'hai tolta :)") sqlinsert="delete from marcellomm_.nuke_reputazione where nuke_reputazione.id_post="&id_post&" and nuke_reputazione.id_votante="&id_votante&" and nuke_reputazione.id_votato="&id_votato OBJdbConnection.execute (sqlinsert) else sqlinsert="insert into marcellomm_.nuke_reputazione (id_post,id_votante,id_votato) values ("&id_post&", "&id_votante&","&id_votato&")" OBJdbConnection.execute (sqlinsert) response.write("La tua preferenza Ŕ stata correttamente registrata - attendi... :)") end if%> <% end if OBJdbConnection.close set OBJdbConnection=nothing %> ">