Perchè questo code non scrive i campi città, email e nazione nel dbase e manda l'email vuota??? :
codice:
<%
	
	Nome = request.querystring("Nome")
	Cognome = request.querystring("Cognome")
	Citta = request.querystring("Citta")
	Nazione = request.querystring("Nazione")
	Email = request.querystring("Email")
	Data = now()
			If fileSize > 0 Then
			Dim connStr
			connStr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("/mdb/curro.mdb")
		
			Dim rs
				Set rs = Server.CreateObject("ADODB.Recordset")
				
				rs.Open "Files", connStr, 2, 2
				
				rs.AddNew
					rs("File Name") = fileName
					rs("File Size") = fileSize
					rs("File Data").AppendChunk fileData
					rs("Content Type") = contentType
					rs("First Name") = NomeInput
					rs("Last Name") = CognomeInput
					rs("Email") = Email
					rs("Citta") = Citta
					rs("Nazione") = Nazione
				rs.Update
				
				rs.Close
				Set rs = Nothing
				
			Response.Write "<font color=""green"">OK.</font>"
			
		Dim objMail, messaggio

messaggio = messaggio & VBcrlf & "Nome = " & Nome & "
"
messaggio = messaggio & VBcrlf & "Cognome = " & Cognome & "
"
messaggio = messaggio & VBcrlf & "E-mail = " & Email & "
" 
messaggio = messaggio & VBcrlf & "Città = " & Citta & "
"
messaggio = messaggio & VBcrlf & "Nazione = " & Nazione & "
"
messaggio = messaggio & VBcrlf & "Data = " & Data & "
"

Set objMail = Server.CreateObject("CDONTS.NewMail")

objMail.From = "email@com.com"
objMail.Cc = "v.@com.com"
objMail.To = Email
objMail.Subject = "Ciao."
objMail.Body = messaggio
objMail.importance = 2
objMail.MailFormat = 0
objMail.BodyFormat = 0
objMail.Send

Set objMail = Nothing
				
		Else
			Response.Write "<font color=""brown"">NO</font>"
		End If
			
			
		If Err.number <> 0 Then
			Response.Write "
<font color=""red"">Errore</font>"
		End If
	%>