codice:
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"