<%@LANGUAGE = VBScript%>
<%
Dim C, D
%>
Registrazione modifica dati
<%
Dim SQL
dim Cn, Rs
' Recupero i dati
C = Request.Form("Codice")
D = Request.Form("Descrizione")
Response.Write "Dati ricevuti:"+"
"
Response.Write "Codice = " + C+"
"
Response.Write "Descrizione = " + D+"
"
' Mi connetto al database
Set Cn = Server.CreateObject("ADODB.Connection")
Cn.Open StrCn
SQL = "SELECT * FROM tabella WHERE Codice = '" & C & "';"
Set Rs = Server.CreateObject("ADODB.Recordset")
rs.open SQL, cn, 2, 3
If Not rs.EOF Then
' Se esiste già effettuo la Modifica
Rs("codice") = C
Rs("descrizione") = D
Rs.Update
Response.Write "Dati salvati:"+"
"
Response.Write "Codice = " + Rs("codice")+"
"
Response.Write "Descrizione = " + Rs("descrizione")+"
"
Response.Write "Modifica avvenuta con successo!
"
Else
Response.Write "Impossibile effettuare la modifica. Il record non è più presente
"
End If
Rs.Close
Set Rs = Nothing
Cn.Close
Set Cn = Nothing
With Response
.Write ""
.Write ""
.Write "Indietro
"
End With
%>