generazione mail da dati form

[franklin_92]

salve a tutti, utilizzo attualmente un servizio di redirect gratuito (AbcZone )per inviare il contenuto di un form(Grand Hotel Sant'Angelo - Prenotazioni ) a un indirizzo email. Vorrei creare uno script asp per mandare l'email in modo da
1.non utilizzare un servizio esterno
2.possibilità di modificare l'oggetto 3.
decidere la struttura dell'email ottenendo il seguente risultato:

Oggetto: prenotazione (data odierna)
Dati Anagrafici
Nome:
Cognome:
Città:
Indirizzo:
Nazione:
Telefono:
Fax:
E-Mail:
Info:

Prenotazione
Data Arrivo:
Data Partenza:
n° camere singole
n° camere doppie
tipo camere singole
tipo camere doppie
tipo pernottamento:

aspetto vostre risposte

[michele.santoro]

Questa è la pagina invio.asp

 <%
Dim IP
IP=Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If IP="" Then
  IP=Request.ServerVariables("REMOTE_ADDR")
End If
	


'**************************************************************************
'* sostituisci qui sotto, a info@tuosito.com, il tuo indirizzo email reale *
'**************************************************************************

mittente = "info@tuosito.com"

'------------------------------------------------------------------------
'------------------------------------------------------------------------

messaggio = "Nome: " & Request.Form("nome") & chr(13) &_
"Cognome: " & Request.Form("cognome") & chr(13) &_
"Città: " & Request.Form("citta") & chr(13)&_
"Indirizzo: " & Request.Form("indirizzo") & chr(13) &_
"Nazione: " & Request.Form("nazione") & chr(13) &_
"Telefono: " & Request.Form("telefono") & chr(13) &_
"Fax: " & Request.Form("fax") & chr(13) &_
"Tipologia_Servizio: " & Request.Form("pernottamento") & chr(13) &_
"Tipologia_Camere_1: " & Request.Form("tipocamerasing") & chr(13) &_
"Tipologia_Camere_2: " & Request.Form("tipocameradopp") & chr(13) &_
"numcameresing_1: " & Request.Form("numcameresing") & chr(13) &_
"numcameresing_2: " & Request.Form("numcameredopp") & chr(13) &_
"Data_arrivo: " & Request.Form("firstinput") & chr(13) &_
"Data_partenza: " & Request.Form("secondinput") & chr(13) &_
"Email: " & Request.Form("email") & chr(13)
messaggio = messaggio & "Informazioni: " & Request.Form("info")& chr(13) & "INDIRIZZO ip: " & IP
'Invio email
Set Mail = Server.CreateObject("CDO.Message")
Mail.To = mittente
Mail.From = Request.Form("email")
Mail.Subject = "Prenotazione Camere"
Mail.TextBody = messaggio 
Mail.Send 
Set Mail = nothing
%>

Modifica nella pagina del form (prenotazioni_ita.html) questa parte

      <FORM name=sampleform 
      action=invio.asp   
      method=POST>

Metti al posto di
mittente = "info@tuosito.com"
l'indirizzo email al quale vuoi che arrivino le prenotazioni, per es:
mittente = "prenotazioni@grandhotelsantangelo.it.com"

Dovrebbe funzionare

[franklin_92]

grazie mille!!!!! lo provo subito e ti faccio sapere

[franklin_92]

funziona a perfezione, solo vorrei chiedere: è possibile impostare un redirect ad una pagina terminato l'invio della mail?
aspetto vostre risposte e grazie ancora per la collaborazione

[maxolino]

Originariamente inviato da franklin_92
funziona a perfezione, solo vorrei chiedere: è possibile impostare un redirect ad una pagina terminato l'invio della mail?
aspetto vostre risposte e grazie ancora per la collaborazione

Aggiungi una riga con scritto:

Response.redirect("indirizzo.asp")

[michele.santoro]

Originariamente inviato da franklin_92
funziona a perfezione, solo vorrei chiedere: è possibile impostare un redirect ad una pagina terminato l'invio della mail?
aspetto vostre risposte e grazie ancora per la collaborazione

Nel copia e incolla mi è rimasto un pezzo fuori, e cioè alla fine dello script invio.asp ci andava:

<%
'***************************************************
'*               Ridirezionamento alla pagina Confsendmail.htm            *
'***************************************************

response.redirect "Confsendmail.htm"
%>

Comunque ti ha già risposto maxolino
Approfitto per augurare Buone Feste a te e a tutto il Forum

[franklin_92]

ringrazio te e maxolino per l'aiuto
auguri e buon anno!!!