<% @LANGUAGE = VBScript %>
<%
Dim C, D, CN, RS
%>
Registrazione dati
<%
' Recupero i dati dal form
C = Request.Form("codice")
D = Request.Form("descrizione")
' Mi connetto al database
Set Cn = Server.CreateObject("ADODB.Connection")
Cn.Open StrCn
' Verifico che i dati da registrare non esistano già
Dim SQL
SQL = "SELECT * FROM tabella WHERE codice = '" & C & "' AND descrizione = '" & D & "';"
Set Rs = Server.CreateObject("ADODB.Recordset")
rs.open SQL, cn, 2, 3
If Not rs.EOF Then
Response.Write "I dati specificati sono già presenti
"
Else
' Se non esiste, effettuo la registrazione
rs.close
Rs.Open "tabella", Cn, 2, 3
Rs.AddNew
Rs("codice") = C
Rs("descrizione") = D
Rs.Update
Response.Write "Registrazione avvenuta con successo!
"
End If
Rs.Close
Set Rs = Nothing
Cn.Close
Set Cn = Nothing
With Response
.Write ""
.Write ""
.Write "Indietro
"
End With
%>