Buon giorno a tutti.
Ho un problema.
Vorrei inserire dati nel database di access tramite lo script asp qui di seguito esposto ma non mi inserice nessun dato e non mi da nessn errore.
Non so se dipende da alcuni errori nello script asp oppure non riesco a mandarlo tramite il form html.
Grazie in anticipo di una mano.
<%
' Definizione della variabile
dim nome, cognome, datan, citta, prov, cf, via, nciv, cittar, provr, cap
nome = request.form("nome")
cognome = request.form("cognome")
datan = request.form("datan")
citta = request.form("citta")
prov = request.form("prov")
cf = request.form("cf")
via = request.form("via")
nciv = request.form("nciv")
cittar = request.form("cittar")
provr = request.form("provr")
cap = request.form("cap")
dim strCode
strCode="innovatel"
' Mappaggio del database
Set Conn=Server.CreateObject("ADODB.Connection")
strConn="driver={Microsoft Access Driver (*.mdb)}; " 'accede al programma access
strConn=strConn & " DBQ=" & Server.MapPath("anagrafica.mdb") ' trova il file database su dove deve scrivere in questo caso è presente nella stessa cartella
strConn=strConn & ";pwd=" & strCode
Conn.Open strConn
' Stringa di interrogazione sulla tabella anagrafica
sql = "SELECT * FROM anagrafica"
Set rs = Server.CreateObject("ADODB.Recordset") 'libreria ADODB per l'utilizzo della creazione dell' oggetto Recordset settato a Set rs
rs.Open sql, conn ,3,3
' Preparazione e scrittura nuovo record
rs.addnew ' Comando per aggiungere un nuovo record
rs(1) = nome 'rs(1) indica il primo campo in questo caso il nome
rs(2) = cognome 'rs(2) indica il secondo campo in questo caso cognome
rs(3) = datan 'rs(3) indica il terzo campo in questo caso data nascita
rs(4) = citta
rs(5) = prov
rs(6) = cf
rs(7) = via
rs(8) = nciv
rs(9) = cittar
rs(10) = provr
rs(11) = cap
rs.update 'carica nel database i dati cioè i records nei capi dichiarati prima
' Chiusura del database
rs.Close ' chiude ril recordset
set rs = Nothing ' elimina le variabili di record set
conn.Close ' chiude la connessione
set conn = Nothing ' elimina la variabile di conessione
%>

Rispondi quotando
