http://www.vessella.it KARIBU!
Appunti di programmazione

INDICE

ITALIANO
Copertina
Il topo e il mouse
L'esperanto
Vocabolario esperanto
Vocabolario swahili
Il swahili
Alcuni filmati sulla Tanzania

Scuola
Questionari in inglese

Programmazione
Archivi Access e FrontPage
Gestione Archivi con le funzioni di FrontPage
Proteggere un sito in ASP (I)
Proteggere un sito in ASP (II)
Contatore e Statistiche
Utilizzare CDONTS (provvisorio)
Le date in ASP e SQL
Connessione a un archivio Access
Configurazione di una rete (PDF)
Criteri di protezione (PDF)
Esperanta Klavaro en EeePC kun originala Xandros

ESPERANTO
Koverto
Vortaro itala
Vortaro suahila
La suahila lingvo
Videokasedoj pri Tanzanujo

KISWAHILI
Jalida
Kamusi ya kiesperanto
Lugha ya Kiesperanto
Azimio la Praha
Video juu ya Tanzania

ENGLISH
Home
The Esperanto language
The Swahili language
Some videos on Tanzania

Esempio di utilizzazione di CDONTS

di Nino Vessella

2000 12 05


Funzione da richiamare con i seguenti parametri:
sDaIndirizzo = indirizzo mittente
sDaNome = nome mittente
sAIndirizzo = indirizzo destinatario
sANome = Nome destinatario
sOggetto = Oggetto del messaggio
sMessaggio = Testo del messaggio
lBcc = Se "true" una copia del messaggio viene inviata anche al mittente

La funzione riporta una stringa vuota, se tutto é andato bene, altrimenti riporta la descrizione dell'errore inoltre se si sta provando in locale non invia il messaggio ma lo stampa a schermo
Si possono utilizzare tantissimi altri parametri.
Per una documentazione completa di CDONTS leggere: http://msdn.microsoft.com/library/psdk/cdo/ purtroppo in inglese.

                     
                     
 <SCRIPT TYPE = "text/javascript">
  <!--
  Function Invia(sDaIndirizzo, sDaNome, sAIndirizzo, sANome, sOggetto, sTesto, lBcc)
   Dim oPosta

   ifInStr((server.MapPath(Request.ServerVariables("PATH_INFO"))),"E:\Web\Mio\")<>0 then
     ' Lavora in locale (Personal Web Server)
     Invia= _
      "<BR>Messaggio spedito" & _
      "<BR>Da: " & sDaNome& "<" & sDaIndirizzo &">" & _
      "<BR>A: " & sAIndirizzo & _
      "<BR>Oggetto: " & sOggetto  & "
" & _ "<BR>Messaggio: " & sMessaggio & "
" else Set oPosta = Server.CreateObject("CDONTS.NewMail") If err.number>0 then Invia = _ "<B>" & msgErroreMsg & "</B><BR>" & _ "Codice: " & err.number & "<BR>" & _ "Descrizione: " & err.description & "<BR>" & _ "Guida: " & err.helpcontext & " - " & _ err.helppath & "<BR>" & _ "Origine: " & err.source & "<P>" Else oPosta.BodyFormat = 1 oPosta.MailFormat = 1 oPosta.From = sDaNome & "<" & sDaIndirizzo & ">" oPosta.Value("Reply-To") = sDaNome & "<" & sDaIndirizzo & ">" oPosta.To = sAIndirizzo ' Indirizzo destinatario if lBcc then oPosta.Bcc = sDaIndirizzo end if oPosta.Subject = sOggetto ' Oggetto oPosta.Body = sMessaggio ' Messaggio oPosta.Send Invia = "" End If Set oPosta = Nothing end if End Function //--> </SCRIPT>

Attenzione: se questo codice deve essere inserito in una pagina tramite l'istruzione <!-- #include file=.... -->, come, ad esempio, in Protezione di siti con codice di accesso, con possibilitá di richiesta di autorizzazione, sostituire le prime e le ultime due righe:

                     
                     
 <SCRIPT TYPE = "text/javascript">
  <!--

  ... omissis ...

 //-->
 </SCRIPT>
                       
                       
                      

con le seguenti:

                     
                     
 <%

  ... omissis ...

 %>
                        
                       
                      

Ultima revisione: 2001 01 22

Numero di lettori:  


© Nino Vessella , 1996-.
Diritti riservati. Nessuna parte può essere riprodotta, in qualsiasi forma o mezzo, senza citare la fonte.
Ĉiuj rajtoj rezervitaj. Neniu parto povas esti reproduktita, en kiu ajn formo au per kiu ajn metodo, sen mencii ĉi tiun fonton.
Haki zote zimehifadhiwa. Hairuhusiwi kunakili sehemu yoyote bila kuitaja asili yake hii.
All rights reserved. No part may be reproduced, in any form or by any means, without mention of this source.