Form in Flash con ASP, chi capisce dov'è il problema

[happynewclick]

Ciao a tutti,
sto cercando di far funzionare una form in flash su un server che supporta asp ma non funziona potete dirmi se ho fatto errori?

1. nella form flash ho inserito tutti i campi da compilari con il loro nome della variabile

2. Ho fatto il pulsnte INVIA al quale ho associato questo script:

on (release) {
if (inputNome ne "" and inputEmail ne "" and inputCognome ne "" and inputTesto ne "") {
play();
loadVariablesNum("sendmail.asp", 0, "POST");
} else {
stop();
}
}

3. Ho creato il file sendmail.asp con il seguente script:

<%

on error resume next
Set mail = Server.CreateObject("CDONTS.NewMail")
strFrom = "Webmaster <mionome@provider.it>"
mail.From = strFrom
mail.to ="mionome@provider.it"
strBody="<font color=red>Nuovo Contatto</font>

"
strBody=strBody & "Dettagli del contatto<hr>"
strBody= strBody & "Nome: "& Request("nome") &"
"
strBody= strBody & "Cognome: "& Request("cognome") &"
"
strBody=strBody & "E-mail: "& Request("email") &"
"
strBody=strBody & "Telefono: "& Request("tel") &"
"
strBody=strBody & "Indirizzo : "& Request("indirizzo") &"
"
strBody=strBody & "Città : "& Request("citta") &"
"
strBody=strBody & "Provincia : "& Request("provincia") &"
"
strBody=strBody & "Cap : "& Request("cap") &"
"
strBody=strBody & "Richiesta : "& Request("ric") &"

"
strBody = strBody & "Richiesta effettuata il: " & now() &"
"
strBody = strBody & "Indirizzo I.P. richiedente: "& request.ServerVariables("REMOTE_ADDR") &"

"
mail.Body = strBody
mail.Subject = "Richiesta nuovo utente dal sito"
mail.mailFormat=0
mail.bodyFormat=0
mail.Send
set mail = nothing

if err.number>0 then
strOutput= "Si è verificato un errore nell'invio dei dati tramite posta elettronica. I dati sono stati comunque salvati regolarmente."
else
strOutput ="Richiesta inoltrata correttamente, sarà nostra cura inviarLe una conferma "
end if

response.write "<center>Grazie per averci contattato ti chiameremo al più presto
I dati sono stati inviati con successo</center>"

%>

Ho messo tutto sul server (Windows 2003 che supporta ASP) ma non funziona nulla...

mi aiutate per favore?

grazie mille

[michele.santoro]

Con Windows 2003 si deve usare CDOSYS e non CDONTS.

[happynewclick]

Originariamente inviato da michele.santoro
Con Windows 2003 si deve usare CDOSYS e non CDONTS.

mitico! quindi basta che sostituisco la scritta?

[happynewclick]

Originariamente inviato da happynewclick
mitico! quindi basta che sostituisco la scritta?

pare che non basti, non funziona ancora... accidenti sono arenato, non so che fare

[michele.santoro]

No, non basta cambiare la scritta, ma non è difficile fare i cambiamenti, fai una ricerca sul forum e vedrai che troverai parecchio sull'argomento. Puoi fare una ricerca per CDOSYS

[happynewclick]

ok, credo di essermi avvicinato alla verità... grazie per la vostra pazienza... dunque, lo script della pagina asp è il seguente:

<%

on error resume next

if err.number>0 then
strOutput= "Si è verificato un errore nell'invio dei dati tramite posta elettronica. I dati sono stati comunque salvati regolarmente."
else
strOutput ="Richiesta inoltrata correttamente, sarà nostra cura inviarLe una conferma della richiesta"
end if

response.write "inserimento avvenuto con successo"

DIM corpoMessaggio, numeroCampi, invioA, invioDa, nomeDominio, indirizzoIp, modulo, browserSistemaOperativo

invioA = "massimo@XXXXXXX.com"

'* voce da modificare con un indirizzo email che funga da mittente:

invioDa = "mp@XXXXXXX.com"

nomeDominio = Request.ServerVariables("HTTP_HOST")
indirizzoIp = Request.ServerVariables("REMOTE_ADDR")
modulo = Request.ServerVariables("HTTP_REFERER")
browserSistemaOperativo = Request.ServerVariables("HTTP_USER_AGENT")

'*rilevo i campi del form
corpoMessaggio = corpoMessaggio & vbCrLf &"<font size=2>Nome : " & Request.Form("inputNome")
corpoMessaggio = corpoMessaggio & vbCrLf & "Cognome : " & Request.Form("inputCognome")
corpoMessaggio = corpoMessaggio & vbCrLf &"Funzione : " & Request.Form("inputFunzione")
corpoMessaggio = corpoMessaggio & vbCrLf &"Società : " & Request.Form("inputSocieta")
corpoMessaggio = corpoMessaggio & vbCrLf &"Indirizzo : " & Request.Form("inputIndirizzo")
corpoMessaggio = corpoMessaggio & vbCrLf &"Città : " & Request.Form("inputCitta")
corpoMessaggio = corpoMessaggio & vbCrLf &"Telefono : " & Request.Form("inputTelefono")
corpoMessaggio = corpoMessaggio & vbCrLf &"Email : " & Request.Form("inputEmail")
corpoMessaggio = corpoMessaggio & vbCrLf &"
Tesro : " & Request.Form("inputTesto")

n =Request.Form("nome")
r =Request.Form("cognome")
'* creo gli oggetti cdosys sul server e li gestisco

DIM iMsg, Flds, iConf

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields

Flds(cdoSendUsingMethod) = cdoSendUsingPort
Flds(cdoSMTPServer) = "smtp.XXXXXX.it"
Flds(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0
Flds.Update

With iMsg
Set .Configuration = iConf
.To = invioA
.From = Request.Form("email")
.Sender = invioDa
.Subject = "Richiesta Informazioni dal sito " & nomeDominio
.TextBody = "Questi i dati inseriti nel modulo dei contatti per la richiesta di informazioni dall'utente con indirizzo IP " & indirizzoIp & " . " & vbCrLf & corpoMessaggio & ""
.Send
End With
%>

La domanda è: l'indirizzo smtp che devo inserire lo devo chiedere a chi gestisce lo spazio web?

grazie ancora

[santino83]

risposta: mi sa di si

e questo codice:

if err.number>0 then
strOutput= "Si è verificato un errore nell'invio dei dati tramite posta elettronica. I dati sono stati comunque salvati regolarmente."
else
strOutput ="Richiesta inoltrata correttamente, sarà nostra cura inviarLe una conferma della richiesta"
end if

lo devi mettere dopo il .send

[happynewclick]

abbiate pazienza... dal supporto tecnico di telecom italia (l'host) mi dicono che il componente cdosys non necessita di un indirizzo smtp al quale inviare le informazioni... in questo caso come modifico lo script qui sopra?

grazie

[happynewclick]

qualcuno magari conosce un tutorial semplice e funzionante o un modello di file asp già pronto da scaricare? ho cercato un po' su google ma non ho trovato nulla

[michele.santoro]

Prova a leggerti per benino questo 3D , probabilmente ti risolve il problema.