inviare campi form via email

[soproblemi]

Per favore ragazzi non riesco (da giorni) a risolvere sta cosa...

non trovo niente neanche su internet...

vorrei praticamente inviare via email i campi di un form di registrazione utente

come fare???????????????

[Mems]

Perchè apri sempre una nuova discussione per lo stesso problema?
Questa è la terza.
Hai del codice già fatto che possiamo vedere ed, eventualmente, correggere?

[soproblemi]

si scusa ha ragione a pieno...

è giusto perchè voglio che qualche anima buona possa e voglia aiutarmi...

mi vien da piangere perchè non ricordo nulla e qui ho urgenza di finire...

che faccio ti posto il codice???

[Mems]

Che vuol dire non ricordi nulla?
Sii più chiaro (e sincero).
form.html

<form method="post" action="sendemail.asp">
Nome <input type="text" name="nome" />

email <input type="text" name="email" />

messaggio <textarea name="messaggio" cols="20" rows="20"></textarea>

<input type="submit" value="INVIA" />
</form>

sendemail.asp

 
 
<%
theSmtp = "smtp.sito.it"
thePort = 25
recipient = "tuamail@sito.it" ' destinatario
theAuthenticate = 0 ' 1 = con autenticazione; 0 = senza autenticazione
theUser = "tuamail@sito.it" ' l'utente per autenticarsi al server smtp
thePass = "123xyz" ' la password per autenticarsi al server smtp
siteName = request.serverVariables("SERVER_NAME")
sender = request.form("email") ' l'indirizzo del mittente

for each item in request.form
  corpo = corpo & item & ": " & request.form(item) & vbCrLf
next

corpo = corpo & "indirizzo ip mittente: " & request.serverVariables("REMOTE_ADDR") & vbCrLf
corpo = corpo & "data/ora: " & now() & vbCrLf

	set mail = server.createObject("CDO.Message")
		set conf = server.createObject("CDO.Configuration")
			set flds = conf.fields
				flds(cdoSendUsingMethod) = cdoSendUsingPort
				flds(cdoSMTPServer) = theSmtp
				flds(cdoSMTPServerPort) = thePort
				flds(cdoSMTPAuthenticate) = theAuthenticate
					if theAuthenticate = 1 then
						flds(cdoSendUsername) = theUser
						flds(cdoSendPassword) = thePass
					end if				
				flds.update()
					set mail.configuration = conf
					mail.to = recipient
					mail.from = sender
					mail.subject = siteName & " - Contatto online"					
                                                                mail.textBody = corpo					
                                                                mail.send()
			set flds = nothing
		set conf = nothing
	set mail = nothing
%>

[soproblemi]

ora provo ad utilizzare il tuo codice