cdosys

[manciaz]

salve, sto provando ad inserire dei form in un sito flash. Essendo una totale capra in tema di asp ho preso un esempio che veniva linkato su un altro forum...ma credo che ci siano delle cose da rivedere: nel 3d si parla di server win2003 (usato x il mio hosting) in cui CDONTS non funziona e occorre sostituirlo con CDOSYS. Ora, ho spulciato qua e là per vedere come cambiare il codice, vediamo se c'ho preso

vecchio asp

<%@ LANGUAGE="VBSCRIPT" %>
<% Option Explicit %>
<%
Dim mail
Set mail = Server.CreateObject("CDONTS.NewMail")

mail.From = Request.Form("mittente")
mail.To = Request.Form("destinatario")
mail.Subject = Request.Form("oggetto")
mail.Body = Request.Form("messaggio")

mail.Importance = 2
mail.Send
Set mail = Nothing

%>


al posto di

Set mail = Server.CreateObject("CDONTS.NewMail")

dovrei mettere

Set iMsg = CreateObject("CDO.Message")

e poi per il resto funziona?

Un'altra cosa (questa ancora più cretina): il file "e-mail.asp" lo devo mettere nella stessa directory dove sta il filmato flash vero?

ehm scusate l'ignoranza :master:

[weppos]

No, non cambia solo quello.
Ecco un esempio completo della sintassi http://www.weppos.com/asp/script_sho...ipt=502&cat=19

Inoltre ricordati che il tuo oggetto email si chiama mail, non iMsg per cui dovrai usare quello anche per CDOSYS, ad esempio

Set mail = CreateObject("CDO.Message")

Il file lo metti in base a dove lo richiami con flash.

[manciaz]

adesso spizzo tutto ...speriamo di capirci qcosa
grazie

[manciaz]

così può andare?

<%@ LANGUAGE="VBSCRIPT" %>
<% Option Explicit %>
<%
Dim mail
Set mail= CreateObject("CDO.Message")


mail.From = Request.Form("mittente")
mail.To = Request.Form("destinatario")
mail.Subject = Request.Form("oggetto")
mail.Body = Request.Form("messaggio")

mail.Fields("urn:schemas:httpmail:importance").Val ue = 2
mail.Fields.Update()
mail.Send()
Set mail = Nothing

%>

queste
mail.From = Request.Form("mittente")
mail.To = Request.Form("destinatario")
mail.Subject = Request.Form("oggetto")
mail.Body = Request.Form("messaggio")
non l'ho toccate perchè mi sembrano richiamare le variabili dell'swf


ho provato a pubblicare sul server ma non funzica...o ci vuole solo del tempo prima che le mail arrivino?

[weppos]

COntrolla la sintassi dell'esempio.

 mail.Body = Request.Form("messaggio")

diventa

 mail.HtmlBody = Request.Form("messaggio")

Ti manca poi tutta la parte legata alla configurazione, per intenderci

====================================
'Dimensiona l'oggetto configurazione
Set objConfig = Server.CreateObject ("CDO.Configuration")

'Imposta le configurazioni
With objConfig
     
'Server SMTP di uscita
'Esempio mail.dominio.it
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "iltuoserverdiuscita"

'Porta SMTP
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

'Porta CDO
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

'Timeout
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
     
.Fields.Update
End With

'Assegna le configurazioni
Set objMail.Configuration = objConfig

====================================

[manciaz]

GRAZIEEE
mo vedo & provvedo

[manciaz]

scusa ma qui
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "iltuoserverdiuscita"

cosa dovrei mettere che mica ho capito

[weppos]

il server che usi come smtp.
In genere corrisponde a mail.tuosito.dominio

[manciaz]

non funge

<%@ LANGUAGE="VBSCRIPT" %>
<% Option Explicit %>
<%
Dim mail, objConfig
Set mail= CreateObject("CDO.Message")

Set objConfig = Server.CreateObject ("CDO.Configuration")
With objConfig
.Fields("http://schemas.microsoft.com/cdo/configuration/smtp server") = "mail.technobroadcast.com"
.Fields("http://schemas.microsoft.com/cdo/configuration/smtp serverport") = 25
.Fields("http://schemas.microsoft.com/cdo/configuration/send using") = 2
.Fields("http://schemas.microsoft.com/cdo/configuration/smtp connectiontimeout") = 60
.Fields.Update
End With
Set mail.Configuration = objConfig

mail.From = Request.Form("mittente")
mail.To = Request.Form("destinatario")
mail.Subject = Request.Form("oggetto")
mail.HtmlBody = Request.Form("messaggio")

mail.Fields("urn:schemas:httpmail:importance").Val ue = 2
mail.Fields.Update()
mail.Send()
Set mail = Nothing

%>

[weppos]

Il codice sembra giusto.. da errori?
Lo testi in locale o sul server?