form mail e asp

[mimmagino]

ok a tra poco

[mimmagino]

funziona ma mi restituisce solo nome,cognome, e-mail e città.

[crescenzo]

Originariamente inviato da mimmagino
funziona ma mi restituisce solo nome,cognome, e-mail e città.

posta ilcodice di entrambe le cose
sia quello usato nel file flash che quello della pag asp
e vediamo subito
devi anche dirmi le variabili che hai associato alle caselle di testo

[mimmagino]

ok ci provo

[mimmagino]

file contatti.swf
on (release) {
if (inputnome<>null & inputcognome<>null & inputcitta<>null & inputemail<>null) {
nome = inputnome;
cognome = inputcognome;
email = inputemail;
indirizzo = inputindirizzo;
citta = inputcitta;
provincia = inputprovincia;
cap = inputcap;
tel = inputtel;
ric = inputric;
loadVariables("contatti.asp", this, "POST");


} else {
out = "* Campo obbligatorio";
}
}
contatti.asp
<%

on error resume next

if err.number>0 then
response.write "out=Si è verificato un errore nell'invio dei dati tramite posta elettronica.&"
else
response.write "out=Richiesta inoltrata correttamente.&"
end if


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



invioA = "mimmagino@katamail.com"

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

invioDa = "crescy@tiscali.it"



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 face=verdana size=2>Nome : " & Request.Form("nome") & "
"
corpoMessaggio = corpoMessaggio & vbCrLf & "Cognome : " & Request.Form("cognome") & "
"
corpoMessaggio = corpoMessaggio & vbCrLf &"E-mail : " & Request.Form("email") & "
"
corpoMessaggio = corpoMessaggio & vbCrLf &"Città : " & Request.Form("citta") & "
"
corpoMessaggio = corpoMessaggio & vbCrLf &"
Richiesta : " & Request.Form("testo") & "</font>
"


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.aruba.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
.HTMLBody = "Questi i dati inseriti nel modulo dei contatti per la richiesta di informazioni dall'utente con indirizzo IP " & indirizzoIp & " . " & vbCrLf & corpoMessaggio & ""
.Send
End With
%>
giusto?

[crescenzo]

<% 

on error resume next 

if err.number>0 then 
response.write "out=Si è verificato un errore nell'invio dei dati tramite posta elettronica.&" 
else 
response.write "out=Richiesta inoltrata correttamente.&" 
end if 


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

invioA = "mimmagino@katamail.com" 

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

invioDa = "mimmagino@katamail.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 face=verdana size=2>Nome : " & Request.Form("nome") & "
" 
corpoMessaggio = corpoMessaggio & vbCrLf & "Cognome : " & Request.Form("cognome") & "
" 
corpoMessaggio = corpoMessaggio & vbCrLf &"E-mail : " & Request.Form("email") & "
" 
corpoMessaggio = corpoMessaggio & vbCrLf &"Indirizzo : " & Request.Form("indirizzo") & "
" 
corpoMessaggio = corpoMessaggio & vbCrLf &"Città : " & Request.Form("citta") & "
"
corpoMessaggio = corpoMessaggio & vbCrLf &"Provincia : " & Request.Form("provincia") & "
"
corpoMessaggio = corpoMessaggio & vbCrLf &"Cap : " & Request.Form("cap") & "
" 
corpoMessaggio = corpoMessaggio & vbCrLf &"Telefono : " & Request.Form("tel") & "
"   
corpoMessaggio = corpoMessaggio & vbCrLf &"
Richiesta : " & Request.Form("ric") & "</font>
" 


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.aruba.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 
.HTMLBody = "Questi i dati inseriti nel modulo dei contatti per la richiesta di informazioni dall'utente con indirizzo IP " & indirizzoIp & " . " & vbCrLf & corpoMessaggio & "" 
.Send 
End With 
%>

così dovrebbe andare

[mimmagino]

niente..
però nel primo che mi hai mandato (CDONTS) ..

<%


on error resume next
Set mail = Server.CreateObject("CDONTS.NewMail")
strFrom = "Webmaster <mailvalida@tin.it>"
mail.From = strFrom
mail.to ="mimmagino@katamail.com"
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>"


%>

l'unica cosa che non funzionava era il filmato flash perchè nonostante
inviasse correttamente, non faceva comparire il messaggio di inoltro avvenuto .

[crescenzo]

scusami fammi capire bene con quale ti funzionava inviandoti solo alcune var ??????

la prima pag asp o la seconda e poi se sei su win 2003 dovrebbe fungere la seconda e nn la prima

[mimmagino]

ok ho provato a ricopiarlo e stavolta va bene.
Davvero grazie..
è possibile che una volta inviato il messaggio, il filmato si resetti o si chiuda completamente?

[mimmagino]

con la seconda mi dava solo alcune var mentre con la prima me le dava tutte ma sul form non risultava l'invio corretto.