inserimento data in database access, dove sbaglio??

[Okocha]

Email = request.form("Email")

Dim data
data = Date()

'Send an email to the bugger to confirm the email address
if len(Email) <> 0 then

	'Time to open the database
	set con = server.createObject("ADODB.Connection")
	con.open(strServerConnection)
	
	'Check whether email exists
	sqlString = "Select Email from Newsletter where Email = '"&Email&"'"
	set rs = con.execute(sqlString)
	
	'Return error if email already exists
	while not rs.eof
		if rs("Email") = Email then
		
			output = "Questo indirizzo è già iscritto alla newsletter."
			blnError = true	
			
		end if
		rs.moveNext
	wend

	if not blnError then	

		sqlString = "Insert into Newsletter (Email, Status, Data) values ('"&Email&"', '1', '"&data&"')"
		con.execute(sqlString)
		con.close

ho provato anche questa #"&data&"# ma non va.

e non inserisce nemmeno il valore "1"

[Roby_72]

L'errore?


Roby

[optime]

----------------------------------------------------
impariamo a fare un po' di debug

*subito* dopo la composizione della stringa SQL metti

Response.Write "maGGica SQL...: " & sqlString
Response.Flush

poi posta quello che viene a video
----------------------------------------------------

[Okocha]

Già, avevo dimenticato di dire che l'errore era il mancato inserimento della data nel campo Date.

Grazie Optime, ho fatto come detto tu ed ho visto che mostrava i valori corretti, quindi ho riguardato l'intero codice ed ho trovato l'errore. Un errore di distrazione

Grazie mille.

[optime]

----------------------------------------------------
nello spirito del forum, spiega come hai fatto, così aiuterai qualche altro forumista che dovesse avere lo stesso problema.
----------------------------------------------------

[Okocha]

Il codice era corretto così come postato.

Sbagliavo nella action del form, inserendo una pagina vecchia.