Tipo = RowItem.CustomField(5)

If Tipo = "Ordine Cliente" then

testo = ""
testo = testo & "<Conferma Ordine><table width='550' border='3' cellspacing='3' cellpadding='10'><tr>" & vbCrLf
testo = testo & "<td><a title='SEAR-Shop' href='http://www.sear-shop.com' target='_blank'><img src='http://www.sear-shop.com/open2b/var/setting/logo.gif' alt='Ferramenta Utensileria' width='200' height='85' border='0'/></a></td>" & vbCrLf
testo = testo & "<td style='font:large; font-weight: bold; font-size: 36px;'><div align='center'>Comunicazione sul Suo Ordine </div></td>" & vbCrLf
testo = testo & " </tr>" & vbCrLf
testo = testo & "  <tr>" & vbCrLf
testo = testo & "<td colspan='2'><strong>" & RowItem.CustomField(30) & "</strong><br/><br/>" & vbCrLf
' Inizio del testo dell'email

testo = testo & "Il suo ordine:" & RowItem.CustomField(15) & " &egrave in preparazione" & vbcrlf
testo = testo & " " & vbCrLf
testo = testo & " " & vbCrLf
testo = testo & "Pu&ograve visualizzare il tracking number della sua spedizione nell'area riservata alla voce ORDINI, cliccando sul simbolo + alla sinistra del suo ordine si aprir&agrave un menu' con i prodotti ordinati e i dettagli del suo acquisto." & vbCrLf
testo = testo & "Cliccando sull'icona relativa si aprira' una pagina del suo browser dove verra' visualizzato lo stato della spedizione." & vbCrLf
testo = testo & "La preghiamo di verificare i dati nell'allegato, eventuali modifiche sono possibili solo entro le 12:00 " & vbCrLf
testo = testo & "Le rammentiamo di seguire queste piccole regole:" & vbcrlf
testo = testo & "Al ricevimento del Suo pacco, controlli sempre e scrupolosamente l'assenza di qualsiasi tipo di manomissione." & vbCrLf
testo = testo & "Se il pacco e' visivamente manomesso o danneggiato lo Controlli prima di Firmare altrimenti lo RESPINGA e ci contatti immediatamente, inviando una e-mail attraverso il Servizio Assistenza Clienti" & vbCrLf
testo = testo & "Se la spedizione comporta il pagamento in contrassegno alla consegna, le ricordiamo che il corriere e' autorizzato al ritiro del solo denaro contante." & vbCrLf
testo = testo & "Le ricordiamo che i tempi di consegna per il servizio sono di norma di un giorno per tutta Italia (due giorni per Calabria, Sicilia, Sardegna), per maggiori dettagli pu&ograve comunque contattare la filiale pi&ugrave vicina a lei il cui recapito telefonico lo pu&ograve reperire direttamente sul sito all'indirizzo:"& vbCrLf
testo = testo & " " & vbCrLf
testo = testo & "Nel caso non fosse sicuro di essere reperibile nei giorni sucessivi alla spedizione presso l' indirizzo di destinazione segnalato, al ricevimento di questa mail la preghiamo di rivolgersi al pi&ugrave presto allo spedizioniere contattando la filiale pi&ugrave vicina a lei il cui recapito telefonico lo pu&ograve reperire direttamente sul sito, per accordarsi su una data di sua reperibilit&agrave o il fermo deposito presso loro sede." & vbCrLf
testo = testo & vbCrLf

testo = testo & vbCrLf
testo = testo & "Le ricordiamo che il documento di Vendita &egrave scaricabile da internet dentro la sua area Utenti Registrati nella sezione Fatture / Ricevute" & vbCrLf
testo = testo & vbCrLf
testo = testo & "La ringraziamo per la fiducia accordataci e speriamo di risentirLa presto." & vbcrlf

' Fine testo email
testo = testo & " <br/></td></tr>" & vbCrLf
testo = testo & " <tr>" & vbCrLf
testo = testo & "<td colspan='2' bgcolor='#FF9900'><div align='center'><img src='http://www.sear-shop.com/images/b3.jpg' alt='Ordine Accettato' width='500' height='100' border='0' ></div></td></tr>" & vbCrLf
testo = testo & "</table>" & vbCrLf

Rdy.ResponseWrite(testo)

'---------------------------------------------------------------------------------------------------------------------------------------------------------


else

testo = ""
testo = testo & "<Spedizione><table width='550' border='3' cellspacing='3' cellpadding='10'><tr>" & vbCrLf
testo = testo & "<td><a title='SEAR-Shop' href='http://www.sear-shop.com' target='_blank'><img src='http://www.sear-shop.com/open2b/var/setting/logo.gif' alt='Ferramenta Utensileria' width='200' height='85' border='0'/></a></td>" & vbCrLf
testo = testo & "<td style='font:large; font-weight: bold; font-size: 36px;'><div align='center'>Comunicazione sul Suo Ordine </div></td>" & vbCrLf
testo = testo & " </tr>" & vbCrLf
testo = testo & "  <tr>" & vbCrLf
testo = testo & "<td colspan='2'><strong>" & RowItem.CustomField(30) & "</strong><br/><br/>" & vbCrLf
' Inizio del testo dell'email
 
testo = testo & "La Ringraziamo per il suo Acquisto !<br/>" & vbCrLf
testo = testo & "Nel ringraziarla per averci scelto, porgiamo nostri cordiali saluti.<br/>" & vbCrLf
testo = testo & "In allegato Vi inviamo la copia (in formato PDF) della Fattura/Ricevuta relativa al suo ordine.<br/>" & vbCrLf
testo = testo & "Fai attenzione, perché questo invio SOSTITUISCE INTEGRALMENTE quello effettuato in modo tradizionale via posta ordinaria.<br/>" & vbCrLf
testo = testo & "Le ricordiamo che può richiedere copia del documento in qualsiasi momento tramite la sua area personale.<br/>" & vbCrLf
testo = testo & "Ti ricordiamo che la normativa nazionale italiana NON consente l'archiviazione di alcun documento contabile in formato digitale, quindi dovrai stampare il file allegato e conservarne la versione cartacea." & vbCrLf
testo = testo & "Per poter leggere il file è necessario avere installato sul tuo computer il software gratuito Adobe Acrobat Reader, che puoi scaricare gratuitamente da <a href=""http://www.adobe.com/it/products/acrobat/readstep2.html"">Adobe Acrobat Reader</a>." & vbCrLf
testo = testo & "La ringraziamo per la fiducia accordataci e speriamo di risentirLa presto.<br/>" & vbCrLf

' Fine testo email
testo = testo & " <br/></td></tr>" & vbCrLf
testo = testo & " <tr>" & vbCrLf
testo = testo & "<td colspan='2' bgcolor='#FF9900'><div align='center'><img src='http://www.sear-shop.com/images/b3.jpg' alt='Ordine Accettato' width='500' height='100' border='0' ></div></td></tr>" & vbCrLf
testo = testo & "</table>" & vbCrLf

Rdy.ResponseWrite(testo)

end if