form mail: super problemi

[Togira]

Magari me ne date qlcuno facile facile voi e mi spiegate come faccio ad inserirlo


Ho inserito un form ( inviare semplici email) in flash a qst indirizzo:

http://www.amicidellacultura.net/pagine/contatti.htm

Non mi funziona ed io sono un super pivellino in asp.



oltre al swf che io metto nella cartella principale, vi è anche una file in asp con qst codice:
(io in questo codice cambio solo l'email,inserendo la mia di tiscali).



<% @language="VBSCRIPT"%>

<%

Dim myMail, myBody

myBody = "Name: "&request.form("name") & vbcrlf
myBody = myBody & "Company:" & request.form("company") & vbcrlf
myBody = myBody & "Email:" & request.form("email") & vbcrlf
myBody = myBody & "Telephone:" & request.form("telephone") & vbcrlf
myBody = myBody & "Message:" & request.form("message")

Set myMail = CreateObject("CDONTS.NewMail")

myMail.BodyFormat = 1
myMail.MailFormat = 1
myMail.From = request.form("email")
myMail.To = "nome@tiscali.it"
myMail.Subject = "Information Request"
myMail.Body = myBody
myMail.Send

set myMail=nothing

%>

[crescenzo]

Originariamente inviato da Togira
Magari me ne date qlcuno facile facile voi e mi spiegate come faccio ad inserirlo


Ho inserito un form ( inviare semplici email) in flash a qst indirizzo:

http://www.amicidellacultura.net/pagine/contatti.htm

Non mi funziona ed io sono un super pivellino in asp.



oltre al swf che io metto nella cartella principale, vi è anche una file in asp con qst codice:
(io in questo codice cambio solo l'email,inserendo la mia di tiscali).



<% @language="VBSCRIPT"%>

<%

Dim myMail, myBody

myBody = "Name: "&request.form("name") & vbcrlf
myBody = myBody & "Company:" & request.form("company") & vbcrlf
myBody = myBody & "Email:" & request.form("email") & vbcrlf
myBody = myBody & "Telephone:" & request.form("telephone") & vbcrlf
myBody = myBody & "Message:" & request.form("message")

Set myMail = CreateObject("CDONTS.NewMail")

myMail.BodyFormat = 1
myMail.MailFormat = 1
myMail.From = request.form("email")
myMail.To = "nome@tiscali.it"
myMail.Subject = "Information Request"
myMail.Body = myBody
myMail.Send

set myMail=nothing

%>

con server win 2003 x inviare mail nn si usa + CDONTS ma CDOSYS
guarda con una cosa del genere

<%

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 =  "mailda@cambiare.it"

	'* voce da modificare con un indirizzo email che funga da mittente: 
			
invioDa =  "mailda@cambiare.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 size=2>Nome/Azienda : " & Request.Form("nome")
corpoMessaggio = corpoMessaggio & vbCrLf & "Cognome/Ragione Sociale : " & Request.Form("cognome")
corpoMessaggio = corpoMessaggio & vbCrLf &"E-mail : " & Request.Form("email")
corpoMessaggio = corpoMessaggio & vbCrLf &"Telefono : " & Request.Form("tel")
corpoMessaggio = corpoMessaggio & vbCrLf &"Indirizzo : " & Request.Form("indirizzo")
corpoMessaggio = corpoMessaggio & vbCrLf &"Citta : " & Request.Form("citta")
corpoMessaggio = corpoMessaggio & vbCrLf &"Provincia : " & Request.Form("provinvcia")
corpoMessaggio = corpoMessaggio & vbCrLf &"Cap : " & Request.Form("cap")
corpoMessaggio = corpoMessaggio & vbCrLf &"
Richiesta : " & Request.Form("ric")


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
%>

ovviamente sostituisci i tuoi campi


ciao

[Togira]

scusa ma non ho capito.Ho iniziato da poco a studiare qst cose,

Mi potete inviare qualcosa di + semplice xfavore???!!!

Grazie

[Togira]

mi inviate qualche form completo e semplicissimo da istallare x favore???

Grazie