Query che calcola un totale

[spider81man]

Ciao a tutti,
mi servirebbe una query che estra un solo campo da un DB e fa la somma di questo.
Mettiamo che nella colonna A ho i campi:
1
2
3
il totale dovrà essere sei.
Ho provato così:

dim appo
appo=0
	Set Conn = Server.CreateObject("ADODB.Connection")
	Conn.Provider = "Microsoft.jet.OLEDB.4.0"
	Conn.Open Server.MapPath("DB/newsletters.mdb")ù
	sql = "SELECT A FROM prenotazioni"
	Set rs = Server.CreateObject("ADODB.Recordset")
	rs.Open sql, Conn, , , adCmdTable

	While rs.EOF	
          appo = appo +rs(0)
	Wend

	rs.Close()
	Set rs = Nothing
	Conn.Close()
	Set Conn = Nothing

Ma il risultato mi da 0 sapete aiutarmi??

[Roby_72]

        dim appo
        appo=0
	Set Conn = Server.CreateObject("ADODB.Connection")
	Conn.Provider = "Microsoft.jet.OLEDB.4.0"
	Conn.Open Server.MapPath("DB/newsletters.mdb")ù
	sql = "SELECT SUM(A) FROM prenotazioni"
	Set rs = Server.CreateObject("ADODB.Recordset")
	rs.Open sql, Conn
        appo = rs(0)
	rs.Close()
	Set rs = Nothing
	Conn.Close()
	Set Conn = Nothing

Roby

[spider81man]

AH visto che ci sono vi chiedo un'altro favore :P
allora faccio una insert se metto la data così '13/04/2005' la query funziona e non mi da errore, se invece la inserisco così "+date+" mi da errore.
Posto il codice:

	Set Conn = Server.CreateObject("ADODB.Connection")
	Conn.Provider = "Microsoft.jet.OLEDB.4.0"
	Conn.Open Server.MapPath("DB/newsletters.mdb")

	sql = "INSERT INTO prenotazioni VALUES ('"+nascosto+"','"+date+"','"+ora+":"+min+"','"+nome+"','"+cognome+"', '"+indirizzoIp+"', '"+mail+"', '"+non_fumatori+"', '"+fumatori+"')"
	Set rs = Server.CreateObject("ADODB.Recordset")
	rs.Open sql, Conn, 3, 3

	Set rs = Nothing
	Conn.Close()
	Set Conn = Nothing

Come mai mi da questo errore:
Errore di run-time di Microsoft VBScript (0x800A000D)
Tipo non corrispondente: '[string: "INSERT INTO prenotaz"]'
/bingo/formcdosys_pren.asp, line 68

E la linea 68 è quella della Query ma se metto la data statica va tutto a posto.
IL DB è formato da tutti campi TESTO da 50 caratteri.

[spider81man]

Grazie Roby, non è che sai aiutarmi anche sull'altra cosa

[Roby_72]

Il campo della data che tipo di campo è nel db?

Roby

[spider81man]

Ciao, il campo data è sempre un campo TESTO.
Hai suggerimenti??

[Roby_72]

'"+ date() +"'

Roby

[spider81man]

Mi da sempre lo stesso errore.
Non riesco a capire come mai.
ecco la query:

INSERT INTO prenotazioni VALUES ('"+nascosto+"','"+ date() +"','"+ora+":"+min+"','"+nome+"','"+cognome+"', '"+indirizzoIp+"', '"+mail+"', "+non_fumatori+", "+fumatori+")

ecome errore:

Tipo non corrispondente: '[string: "INSERT INTO prenotaz"]'
/bingo/formcdosys_pren.asp, line 68

e line 68 è la query

[optime]

visto che non dichiari i nomi dei campi, devi essere ASSOLUTAMENTE certo che l'ordine dei valori rispetto quello della struttura della tabella!

[spider81man]

Si sono sicuro visto che dopo controllo il DB e se la data è statica la inserisce tranquillamente al posto giusto mentre se provo con "+Date+" o "+Date()+" mi da l'errore riportato sopra.
Ho provato anche specificando i campi, stessa cosa se la metto statica, cioè es "19/01/1981" tutto ok se metto "+Date+" o "+Date()+" mi da errore per questo non capisco come mai.
AIUTO VI PREGOOOOOOOOOOO