form asp e flash...ho fatto giusto?

[puzzolina]

form asp e flash...ho fatto giusto?

Non so come verificare se funziona perchè il mio spazio supporta php e questa volta mi serve in asp...qualcuno mi può dire se ci sono errori enormi?

Form flash con questi campo di testo:
nome
cognome
society
telefono
messaggio

Pulsante invia al quale do queste istruzioni:

on (release) {

loadVariables("inviomail.asp", "", "POST");

}

la pagina inviomail.asp ha questo codice:

<%
Dim nome, cognome, society, telefono, messaggio
nome= Request.Form ("nome")
cognome= Request.Form ("cognome")
society= Request.Form ("society")
fax= Request.Form ("fax")
telefono= Request.Form ("telefono")
messaggio= Request.Form ("messaggio")

Dim Mail
Dim sMailBody
SetMail= Server.CreateObject("Persits.MailSender")

Mail.Address="[email protected]"
Mail.Oggetto= "Messaggio dal sito"

messaggio="nome:"
sMailBody=sMailBody&messaggio&nome&vbcrlf
sMailBody=sMailBody&messaggio&cognome&vbcrlf
sMailBody=sMailBody&messaggio&society&vbcrlf
sMailBody=sMailBody&messaggio&telefono&vbcrlf
sMailBody=sMailBody&messaggio&fax&vbcrlf
sMailBody=sMailBody&messaggio&messaggio&vbcrlf

Mail.Body =sMailBody
Mail.Send
Set Mail= Nothing
%>

[legolas]

Effettivamente c'è qualche errore.
Per prima cosa assicurati che il tuo piano di hosting ti permetta di utilizzare l'oggetto Persits.MailSender.
In alternativa utilizza l'oggetto CdoSys o l'oggetto CdoNts

Qui ti sei dimenticata di uno spazio :

SetMail= Server.CreateObject("Persits.MailSender")
Diventa così:

 Set Mail= Server.CreateObject("Persits.MailSender")

Mancano dei campi:

                                     
Mail.Host = "**smtp.dominio.it**" ' smtp del tuo dominio
Mail.From = "**[email protected]**" ' indirizzo di chi invia l'email

Questo non è corretto:

Mail.Address="[email protected]" Diventa così:

Mail.Address "[email protected]"

Questo proprio non lo capisco, perchè prima dici che la variabile messaggio= Request.Form ("messaggio") poi diventa messaggio="nome:"; praticamente la riga prima è inutile :D:

messaggio="nome:"
sMailBody=sMailBody&messaggio&nome&vbcrlf
sMailBody=sMailBody&messaggio&cognome&vbcrlf
sMailBody=sMailBody&messaggio&society&vbcrlf
sMailBody=sMailBody&messaggio&telefono&vbcrlf
sMailBody=sMailBody&messaggio&fax&vbcrlf
sMailBody=sMailBody&messaggio&messaggio&vbcrlf

Presumo che volevi fare + o - così:

sMailBody = "Nome: " & nome & vbcrlf
sMailBody = sMailBody  & "Cognome: " & cognome & vbcrlf
sMailBody = sMailBody  & "Società: " & society & vbcrlf
sMailBody = sMailBody  & "Telefono: " & telefono & vbcrlf
sMailBody = sMailBody  & "Fax: " & fax & vbcrlf
sMailBody = sMailBody  & "Messaggio: " & messaggio

Il resto è ok.
Per chiarezza ti scrivo il codice senza interruzioni:

 Dim nome, cognome, society, telefono, messaggio
 nome  =  Request.Form ("nome")
 cognome  =  Request.Form ("cognome")
 society  =  Request.Form ("society")
 fax  =  Request.Form ("fax")
 telefono  =  Request.Form ("telefono")
 messaggio  =  Request.Form ("messaggio")
 
 Dim Mail
 Dim sMailBody
 Set Mail = Server.CreateObject("Persits.MailSender")

Mail.Host = "**smtp.dominio.it**"   ' smtp del tuo dominio
Mail.From = "**[email protected]**"   ' indirizzo di chi invia l'email
Mail.Address "[email protected]"
Mail.Oggetto = "Messaggio dal sito"
 
sMailBody = "Nome: " & nome & vbcrlf
sMailBody = sMailBody  & "Cognome: " & cognome & vbcrlf
sMailBody = sMailBody  & "Società: " & society & vbcrlf
sMailBody = sMailBody  & "Telefono: " & telefono & vbcrlf
sMailBody = sMailBody  & "Fax: " & fax & vbcrlf
sMailBody = sMailBody  & "Messaggio: " & messaggio
 
Mail.Body = sMailBody
Mail.Send
Set Mail = Nothing