Modifica di un file

Modificare il file: \Buoni_Spesa_2015\Buoni-Spesa-2015-01\RegistraMod.asp

<%@LANGUAGE = VBScript%>

<%
Dim C, D
%>
<html>
<head>
 <title>Registrazione modifica dati</title>
</head>
<body>
<%
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 "<a href='home.html'>"
.Write "Indietro</a>"
End With
%>
</body>
</html>

[Íàçàä]