<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("db.mdb")
If Request("a") <> "" Then
conn.execute ("UPDATE tabella SET categoria = '"&apostrofo(Request("categoria"))&"', url = '"&apostrofo(Request("url"))&"', titolo = '"&apostrofo(Request("titolo"))&"', title = '"&apostrofo(Request("title"))&"', descrizione = '"&apostrofo(Request("descrizione"))&"', mail = '"&Request("mail")&"' WHERE id = "&Request("modifica")&"")
End If
function apostrofo(testo)
apostrofo = replace(testo,"'","''")
end function
Set Rs = Conn.execute ("SELECT * FROM tabella WHERE id = "&Request("modifica")&"")
%>
