<%@LANGUAGE = VBScript%>
<%
Dim C, D
%>
Eliminazione Record di una tabella
<%
Dim Cn, Rs
' Recupero il record con il codice inserito
C = Request.Form("codice")
' Mi connetto al database
Set Cn = Server.CreateObject("ADODB.Connection")
Cn.Open StrCn
' Verifico che il record esista
Dim SQL
SQL = "SELECT * FROM tabella WHERE Codice = '" & C & "';"
Set Rs = Server.CreateObject("ADODB.Recordset")
rs.open SQL, cn
If rs.EOF=True and rs.BOF=True Then
Response.Write "Il codice specificato non esiste
"
else
%>
<%
End If
rs.Close
set Rs = Nothing
Cn.Close
Set Cn = Nothing
%>
Indietro