Errore salvataggio dati in database .mdb

[dreaman74]

Come da oggetto ho dei problemi con uno script .asp che ha il compito di salvare i dati come nuovo record test.

Come errore mi riporta sempre alla linea rs.update

Altra cosa come record set per la data non inizializzo nessuna variabile e non assegno alcun valore, semplicemente aggiungo questa riga rs(1)=data Infatti la data che deve essere salvata nel record set omonimo deve corrispondere a quella della compilazione del form.

questo e' lo script:

<%
'definizione della variabile
dim strNick
dim strRegione
dim strPaese
dim strZona
dim strTipologia
dim strEmail
dim strCellulare
dim strAnnuncio

'recupero valori
strNick=request.form("nick")
strRegione=request.form("regione")
strPaese=request.form("paese")
strZona=request.form("zona")
strTipologia=request.form("tipologia")
strEmail=("email")
strCellulare=("cellulare")
strAnnuncio=("annuncio")

'Mappaggio del database
Set Conn=Server.CreateObject("ADODB.Connection")
strConn="driver={Microsoft Access Driver (*.mdb)};"
strConn=strConn & "DBQ=" & Server.MapPath ("database1.mdb")
Conn.Open strConn

'Stringa di interrogazione sulla tabella annunci
sql = "SELECT * FROM annunci"

Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn ,3,3

'Preparazione e scrittura nuovo record
rs.addnew
rs(1)=data
rs(2)=strNick
rs(3)=strRegione
rs(4)=strPaese
rs(5)=strZona
rs(6)=strTipologia
rs(7)=strEmail
rs(8)=strCellulare
rs(9)=strAnnuncio
rs.update

'Chiusura del database
rs.Close
set rs=Nothing
conn.close
set conn=Nothing
%>

[dreaman74]

Avevo dimenticato l'oggeto request.form che ho aggiunto prontamente... ma ho sempre l'errore riferito alla riga rs.update

Sicurmante e' da imputare alla gestione errata della data...

[dreaman74]

Ecco qui l'ultima versione dello script. Ma ho sempre l'errore alla riga rs.update

<%
'definizione della variabile
dim strNick
dim strRegione
dim strPaese
dim strZona
dim strTipologia
dim strEmail
dim strCellulare
dim strAnnuncio
dim strCode

'recupero valori
strNick=request.form("nick")
strRegione=request.form("regione")
strPaese=request.form("paese")
strZona=request.form("zona")
strTipologia=request.form("tipologia")
strEmail=request.form("email")
strCellulare=request.form("cellulare")
strAnnuncio=request.form("annuncio")
strCode="innovatel"

'Mappaggio del database
Set Conn=Server.CreateObject("ADODB.Connection")
strConn="driver={Microsoft Access Driver (*.mdb)};"
strConn=strConn & "DBQ=" & Server.MapPath ("database1.mdb")
strConn=strConn & ";pwd=" & strCode
Conn.Open strConn

'Stringa di interrogazione sulla tabella annunci
sql = "SELECT * FROM annunci"

Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn ,3,3

'Preparazione e scrittura nuovo record
rs.addnew
rs(1)=data
rs(2)=strNick
rs(3)=strRegione
rs(4)=strPaese
rs(5)=strZona
rs(6)=strTipologia
rs(7)=strEmail
rs(8)=strCellulare
rs(9)=strAnnuncio
rs.update

'Chiusura del database
rs.Close
set rs=Nothing
conn.close
set conn=Nothing
%>

[dreaman74]

i campi nel form sono di questi tipi:
NICK - type=TEXT name=nick (collonna database 2)
Tipologia - type=radio name=tipologia (colonna 6)
paese - SELECT name=paese (colonna 4)
zona - SELECT name=zona (colonna 5)
regione - SELECT name=regione (colonna 3)
email - text name=email (colonna 7)
cellulare - text name=cellulare (colonna 8)
annuncio - textarea name=annuncio (colonna 9)

[dreaman74]

Ho risolto. Come sempre succede quando ti trovi per la prima volta ad implementare nuove funzioni, specialmente per me che sono alle prime armi, si commettono errori assurdi. Con un po di logia ho risolto facilmente il problema. bastava assegnare ad una variabile il valore "now". Automaticamente mi ricrea il valore esatto della data in quel momento.