xchè mi inserisce un record doppio?

[MrRam]

Ciao,

ho un form dal quale invio dei dati ad una pagina che gli inserisce in un db access.
Nel db correttamente vedo il record inserito, ma oltre a questo, mi inserisce anche un record con i campi tutti vuoti ... perchè??

riporto il codice della pag che inserisce il record ned db (peraltro utilizzata spesso e mai causa di problemi):

Dim strCODICEFISCALE
Dim strPASSWORD
Dim strCLEARANCE
Dim strNOME
Dim strCOGNOME
Dim strQUALIFICA
Dim strNASCITA
Dim strNASCITACAP
Dim strNASCITARESIDENZA
Dim strNASCITARESIDENZAPROVINCIA
Dim strRESIDENZACAP
Dim strRESIDENZA
Dim strRESIDENZAPROVINCIA
Dim strEMAIL
Dim strNOTE
Dim strMAILINGLIST
Dim strDATAISCRIZIONE
Dim strORAISCRIZIONE
Dim strTIPOUTENTE
Dim strCONSULENTEID
Dim strFILIALEID

on error resume next

strCODICEFISCALE = Request.Form("codicefiscale")
strPASSWORD = Request.Form("password")
strCLEARANCE = Request.Form("clearance")
strNOME = Request.Form("nome")
strNOME = Replace(strNOME,"'", "'")
strCOGNOME = Request.Form("cognome")
strCOGNOME = Replace(strCOGNOME,"'", "'")
strQUALIFICA = Request.Form("qualifica")
strNASCITA = Request.Form("nascita")
strNASCITACAP = Request.Form("nascitacap")
strNASCITARESIDENZA = Request.Form("nascitaresidenza")
strNASCITARESIDENZAPROVINCIA = Request.Form("nascitaresidenzaprovincia")
strRESIDENZACAP = Request.Form("residenzacap")
strRESIDENZA = Request.Form("residenza")
strRESIDENZAPROVINCIA = Request.Form("residenzaprovincia")
strEMAIL = Request.Form("email")
strNOTE = Request.Form("note")
strNOTE = Replace(strNOTE,"'", "'")
strNOTE = Replace(strNOTE, chr(13), "
")
strMAILINGLIST = Request.Form("mailinglist")
strDATAISCRIZIONE = Request.Form("dataiscrizione")
strORAISCRIZIONE = request.form("oraiscrizione")
strTIPOUTENTE = request.form("tipoutente")
strCONSULENTEID = request.form("consulenteid")
strFILIALEID = request.form("filialeid")

Set rs = Server.CreateObject("ADODB.Recordset")

Set rs = Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM Login"
rs.Open sql, myconn, 3, 3

		rs.AddNew
		rs.Fields("codicefiscale") = strCODICEFISCALE
		rs.Fields("password") = strPASSWORD
		rs.Fields("clearance") = strCLEARANCE
		rs.Fields("nome") = strNOME
		rs.Fields("cognome") = strCOGNOME
		rs.Fields("qualifica") = strQUALIFICA
		rs.Fields("nascita") = strNASCITA
		rs.Fields("nascitacap") = strNASCITACAP
		rs.Fields("nascitaresidenza") = strNASCITARESIDENZA
		rs.Fields("nascitaresidenzaprovincia") = strNASCITARESIDENZAPROVINCIA
		rs.Fields("residenzacap") = strRESIDENZACAP
		rs.Fields("residenza") = strRESIDENZA
		rs.Fields("residenzaprovincia") = strRESIDENZAPROVINCIA
		rs.Fields("email") = strEMAIL
		rs.Fields("note") = strNOTE
		rs.Fields("mailinglist") = strMAILINGLIST
		rs.Fields("dataiscrizione") = strDATAISCRIZIONE
		rs.Fields("oraiscrizione") = strORAISCRIZIONE
		rs.Fields("tipoutente") = strTIPOUTENTE
		rs.Fields("consulenteid") = strCONSULENTEID
		rs.Fields("filialeid") = strFILIALEID
		rs.update

rs.Close
set rs = Nothing

Grazie tante, attendo suggerimenti.

[MrRam]

sentite qua:

l'errore mi esce solo se sto con FIREFOX !! con IE tutto ok!

difatti mi sempbrava che nel codice non ci fossero errori, ma allora perchè con firefox ho il problema del record doppio vuoto??

[optime]

1. toglierei l'on error
2. userei una SQL insert, non rs.add

[MrRam]

ho già provato a togliere l'on error ma non mi restituisce nessun errore ...
com'è la sintassi x l'insert nel caso della mia pagina?

grazie.

[optime]

sSQL = "INSERT INTO nometabella (campo1, campo2, ecc) VALUES (variab1, variab2, ecc)"
conn.execute sSQL

adatta sSQL al tuo caso

[MrRam]

ha funzionato perfettamente, adesso non c'è + il problema del record doppio con firefox.
grazie davvero!