<%
' Recuperiamo i dati dal form
dim strNome
strNome = request.form("nome")
dim strCognome
strCognome = request.form("cognome")
dim strEmail
strEmail = request.form("email")
' Verifichiamo che i campi non siano vuoti...
If strNome <> "" and strCognome <> "" and strEmail <> "" Then
' Se i campi NON sono vuoti procediamo...
' Connessione al DB
myDB = "database.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(myDB)
' Lavoriamo sul Recordset
Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "UTENTI", conn, 3, 3
rs.addnew
rs("nome") = strNome
rs("cognome") = strCognome
rs("email") = strEmail
rs.update
' Chiusura del database
rs.Close
set rs = Nothing
conn.Close
set conn = Nothing
' Risposta a video di conferma
response.write "Scrittura avvenuta correttamente!"
' Se i campi SONO vuoti...
Else
response.write "Errore! Nessun campo può essere vuoto!"
' Chiudiamo la condizione IF
End If
%>
in questo inserisco dei nuovi record nel database...e va tutto bene. Il problema nasce perchè ho un campo del database che non ha ne valore numerico
ne valore di testo ma è un campo "Si/No".
Volevo sapere come lo richiamo???

Rispondi quotando