Errore type missmatch

[Mir]

Ciao,
ho un problema con un file asp:

se scrivo così va bene:

<% @Language = "VBScript" %> <% Option Explicit %> 
<% Dim data_attuale data_attuale = Mid(formatDateTime(Now(),2),7)
Response.Write(data_attuale) 'Response.Write(data_attuale)
>

mentre così mi genera un errore sulla linea del data attuale

<% @Language = "VBScript" %> <% Option Explicit %> 
<% Dim data_attuale data_attuale = Mid(formatDateTime(Now(),2),7) '
Response.Write(data_attuale) 'Response.Write(data_attuale) 

Dim mID Dim Stato mID = Trim(Request("ID")) 
Stato = "A"

StrConnessione = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("/mdb-database") & "\mdb.mdb"
Set Conn = Server.CreateObject("ADODB.Connection") 
Conn.Open StrConnessione SQL = "Update Newsletters set stato='"& Stato & "," & " note=" & data_attuale & "' where ID=" & mID Conn.execute
SQL Response.Write("

Grazie, la tua iscrizione è stata confermata alle Newsletters di xxx.it
</p>")
Conn.Close set Conn=nothing %>

da cosa dipende?

grazie
mir

[optime]

fa fatica andare a capo?

<% @Language = "VBScript" %>
<% Option Explicit %> 
<% 
Dim data_attuale 
data_attuale = Mid(formatDateTime(Now(),2),7) '
Response.Write(data_attuale) 'Response.Write(data_attuale) 

Dim mID 
Dim Stato 
mID = Trim(Request("ID")) 
Stato = "A"

[Mir]

scusa un errore nel copiare nel CODE del forum ... nell'asp è correttamente a capo linea.

[Roby_72]

Ma la mid() l'hai scritta bene?

Roby

[Mir]

mi sembra corretta ... ovvero non la cambio nelle due versioni ... è come se aggiungendo la query su DB non accettasse più il formatDateTime

[Roby_72]

Cosa c'entra la query?
Non hai detto che l'errore è sopra?
Fammi capire la riga dell'errore.

fermo restando che la query mi sembra sbagliata: quanti e quali campi devi aggiornare? campo stato e campo note (che tra l'altro è una parola riservata)?

Roby

[Mir]

Ricapitolo: nel primo codice che ho inserito non c'è la connessione al db per lanciare una query ... e lì la data mi viene data senza problemi dal response.write.

Siccome devo usare questa data per la query ho messo a seguire la stringa di connessione e.... niente mi da errore alla riga del data_attuale = Mid(formatDateTime(Now(),2),7)


da che può dipendere ciò?

[Roby_72]

Rispondi alla mia domanda.
Vediamo la query? Capiamo quali campi devi aggiornare e che tipo di campi sono?
Ti fai stampare la query prima di eseguirla così fai un po' di debug?

Roby

[Mir]

La query deve prendere semplicemente l'anno dalla data e metterlo nel campo NOTE

StrConnessione = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("/mdb-database") & "\mdb.mdb"
Set Conn = Server.CreateObject("ADODB.Connection") 
Conn.Open StrConnessione SQL = "Update Newsletters set stato='"& Stato & "," & " note=" & data_attuale & "' where ID=" & mID Conn.execute
SQL Response.Write("

Grazie, la tua iscrizione è stata confermata alle Newsletters di xxx.it
</p>")
Conn.Close set Conn=nothing

ma non mi dà errore perchè non arriva nemmeno fino lì ... si blocca proprio alla stringa

[CODE]
data_attuale = Mid(formatDateTime(Now(

[Roby_72]

1) La query è scritta male il campo "stato" non chiude il suo valore
2) Il campo "note" è parola riservata (già l'ho detto), la devi mettere tra parentesi quadre
3) La Conn.execute va alla riga successiva, cerca di copiare bene altrimenti non si capisce se l'errore ce l'hai nello script o mentre lo copi qui

Roby