codice:
<%
Dim conn2
Dim rs2
Dim sSql2
Dim idutente
'Imposto la connessione
Set conn2 = Server.CreateObject("ADODB.Connection")
conn2.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/mdb-database/dbstati.mdb")
'Imposto la stringa SQL di selezione dati
idutente = cInt(request.queryString("ID"))
sSql2 = "DELETE FROM tabstati WHERE id ="&idutente&""
'apro il Set di Record
Set rs2 = Server.CreateObject("ADODB.Recordset")
rs2.Open sSql2, conn2, 3, 3
%>
<%
'Chiudo il recordset e libero la memoria
rs2.Close
Set rs2 = Nothing
'Chiudo la connessione al database e libero la memoria
conn2.Close
Set conn2 = Nothing
%>