cdosys e condizioni sull'oggetto

[smurf0]

Dal cdosys prelevato in freeasp come posso aggiungere condizioni all'oggetto "mesaggio"?
Mi spiego meglio: io ho questo codice all'interno di "messaggio":

...
(Recordset1.Fields.Item("mod1").Value) & " - Quantità: " & (Recordset1.Fields.Item("qta1").Value) & VbCrLf &_
(Recordset1.Fields.Item("mod2").Value) & " - Quantità: " & (Recordset1.Fields.Item("qta2").Value) & VbCrLf &_
(Recordset1.Fields.Item("mod3").Value) & " - Quantità: " & (Recordset1.Fields.Item("qta3").Value) & VbCrLf &_
...

Come faccio a scrivere solo le riche nelle quali i campi mod1, mod2 e mod3 non sono vuoti?
Ho provato a mettere qualche if ma non me li accetta.

[Roby_72]

Vediamo dove hai messo queste IF.

Roby

[smurf0]

Era praticamente così:

...
if (Recordset1.Fields.Item("mod1").Value) <> null then
(Recordset1.Fields.Item("mod1").Value) & " - Quantità: " & (Recordset1.Fields.Item("qta1").Value) & VbCrLf &_
end if
...

[Roby_72]

Prova semplicemente così:

if len(Recordset1("mod1")) > 0 then

Roby

[smurf0]

Non funziona. Ti posto il codice intero del cdosys

<%
Dim iMsg, iConf, Flds

'Crea l'oggetto email
Set iMsg = CreateObject("CDO.Message")
'Crea l'oggetto configurazione
Set iConf = CreateObject("CDO.Configuration")
'Impostazione delle configurazioni per l'invio remoto
Set Flds = iConf.Fields
Flds("http://www.XXXXXXX.it") = True

'Spedizione: mittente, destinatario, oggetto, messaggio
mittente = "ordini@XXXXXX.it"
destinatario = (Recordset1.Fields.Item("email").Value)
oggetto = "Chiusura ordine XXXXXXX.it"
messaggio = "La Sua chiusura ordine è stata effettuata con successo con codice " & (Recordset1.Fields.Item("ID").Value) & ". Le inviamo il riepilogo dei dati da Lei inseriti:" & VbCrLf &_
VbCrLf &_
"Nome: " & (Recordset1.Fields.Item("nome").Value) & VbCrLf &_
"Cognome: " & (Recordset1.Fields.Item("cognome").Value) & VbCrLf &_
"Indirizzo: " & (Recordset1.Fields.Item("indirizzo").Value) & VbCrLf &_
"CAP: " & (Recordset1.Fields.Item("cap").Value) & VbCrLf &_
"Prodotti acquistati: " & VbCrLf &_
(Recordset1.Fields.Item("mod1").Value) & " - Quantità: " & (Recordset1.Fields.Item("qta1").Value) & VbCrLf &_
(Recordset1.Fields.Item("mod2").Value) & " - Quantità: " & (Recordset1.Fields.Item("qta2").Value) & VbCrLf &_
(Recordset1.Fields.Item("mod3").Value) & " - Quantità: " & (Recordset1.Fields.Item("qta3").Value) & VbCrLf &_
"Importo totale: " & (Recordset1.Fields.Item("importo").Value) & VbCrLf &_
"Modalità di spedizione: " & (Recordset1.Fields.Item("modsped").Value) & VbCrLf &_
"Pagamento effettuato con: " & (Recordset1.Fields.Item("modpag").Value) & VbCrLf &_
VbCrLf &_
"Le ricordiamo che se ha scelto come metodo di pagamento Bonifico Bancario la spedizione verrà effettuata alla ricezione di una email o fax al numero XXXXXXXX contenenti tutti i dati di effettuato pagamento" & VbCrLf &_
"In caso di dati errati o non corrispondenti con i nostri database acquisti Ebay, la spedizione verrà temporaneamente bloccata." & VbCrLf &_
VbCrLf &_
"La ringraziamo di aver scelto www.XXX.it!!!"

With iMsg

'Assegnazione delle configurazioni
Set .Configuration = iConf

.From = mittente
.To = destinatario
.Subject = oggetto

'Formato testo (scegliere)
.TextBody = messaggio

'Invia l'email
.Send()

end with

set Flds = Nothing
set iConf = Nothing
set iMsg = Nothing
%>

[Roby_72]

Prima di mettere la if dovresti chiudere la riga togliendo questo elemento di concatenazione: &_

E' conveniente usare una variabile anche per la leggibilità:

messaggio = ""
messaggio = messaggio &"...."
messaggio = messaggio &"...."

Roby

[smurf0]

Ma il "&_" non è il comando che mi fa andare a capo?
Praticamente tu mi dici di dividere in 3 parti il messaggio, giusto?

[Roby_72]

No, non serve ad andare a capo (nel testo) ma nello script.
Ovvero ti consente di continuare a scrivere la stessa riga di codice su più righe...

Roby

[smurf0]

Quindi come faccio a togliere &_ e andare a capo quando voglio io? Basta ometterlo?

[Roby_72]

Non so se è chiaro...
Dov'è che vuoi andare a capo? Nello script o nel messaggio dell'email?

Roby