script asp invio mail con dati di un form

franklin_92

Nuovo Utente
19 Dic 2006
12
0
0
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
 

gfransb

Nuovo Utente
1 Dic 2004
1
0
0
Io utilizzo uno script "sendmail.asp" che funziona abbastanza bene. Nel form indico
"action="sendmail.asp" method="POST" enctype="x-www-form-encoded"
di seguito lo script di controllo del form e lo script "sendmail". Guarda se può fare al tuo caso.


<!-- controllo campi form -->
<script language="JavaScript">
<!--
function validate_form() {
validity = true; // assume valid
if (!check_empty(document.form.Nome.value))
{ validity = false; alert('Inserire il Nome'); }
if (!check_empty(document.form.Cognome.value))
{ validity = false; alert('Inserire il Cognome'); }
if (!check_empty(document.form.Indirizzo.value))
{ validity = false; alert('Inserire Indirizzo'); }
if (!check_empty(document.form.Citta.value))
{ validity = false; alert('Inserire la Città'); }
if (!check_empty(document.form.Provincia.value))
{ validity = false; alert('Inserire la Provincia'); }
if (!check_empty(document.form.email.value))
{ validity = false; alert('Inserire indirizzo E-Mail'); }
if (!check_empty(document.form.email.value) || !check_email(document.form.email.value))
{ validity = false; alert('Avete inserito una E-Mail errata'); }
if (validity)
alert ("Il form è corretto.");
return validity;
}

function check_empty(text) {
return (text.length > 0); // returns false if empty
}

function check_email(Email) {
if ((Email == "")
|| (Email.indexOf ('@') == -1)
|| (Email.indexOf ('.') == -1))
return false;
return true;
}
// -->
</script>
<!-- fine controllo campi form -->


-------------------------------------------------

sendmail.asp


<%

indirizzo_destinazione = "[email protected]"
indirizzo_destinazioneCC = "[email protected]"
oggetto = "Modulo inviato dal Sito ................"
pagina_successiva = "grazie.htm"


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

email = Request.form("email")

if email <> "" then
MAIL( FormData() )

if pagina_successiva <> "" then
response.redirect(pagina_successiva)
else
response.redirect("index.htm")
end if
else
response.write("Manca l'indirizzo del mittente (campo ""email"") - Spedizione fallita")
response.end
end if


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

provenienza = Request.ServerVariables("HTTP_REFERER")

if provenienza <> "http://www...................it/form.html" and provenienza <> "http://www...............it/commenti.html" then
response.redirect("http://www.................it/errore.html")
end if

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



'DEBUG FORM

'Response.Write FormData()


Function FormData()
Dim llngMaxFieldIndex
Dim llngFieldIndex
Dim llngMaxValueIndex
Dim llngValueIndex
Dim lstrDebug

llngMaxFieldIndex = Request.Form.Count

' Let user know if Form do not exist
If llngMaxFieldIndex = 0 Then
FormData = "Il Form &egrave; vuoto!"
Exit Function
End If

' Begin building a list of all Form
lstrDebug = "<table width=""400""><font face=""verdana"" size=""12"">"

' Loop through each Form
For llngFieldIndex = 1 To llngMaxFieldIndex
lstrDebug = lstrDebug & "<tr><td>" & Server.HTMLEncode(Request.Form.Key(llngFieldIndex))

' Count the values
llngMaxValueIndex = Request.Form(llngFieldIndex).Count

' If the Field doesn't have multiple values ...
If llngMaxValueIndex = 1 Then
lstrDebug = lstrDebug & " </td><td> "
lstrDebug = lstrDebug & Server.HTMLEncode(Request.Form.Item(llngFieldIndex))
' Else loop through each value
Else
lstrDebug = lstrDebug & " </td><td>"
For llngValueIndex = 1 to llngMaxValueIndex
'lstrDebug = lstrDebug & "<LI>"
lstrDebug = lstrDebug & Server.HTMLEncode(Request.Form(llngFieldIndex)(llngValueIndex))
lstrDebug = lstrDebug & "<br>"
Next
'lstrDebug = lstrDebug & "</OL>"
End If
lstrDebug = lstrDebug & "</td><tr>"
Next
lstrDebug = lstrDebug & "</table>"
' Return the data
FormData = lstrDebug

End Function

Function MAIL(body)

'---------------------------------------------------------------
'Oggetto ASPMail

Set Mailer = Server.CreateObject("CDONTS.newmail")
Mailer.From = email
Mailer.to = indirizzo_destinazione
if indirizzo_destinazioneCC <> "" then
Mailer.CC = indirizzo_destinazioneCC
end if
Mailer.Subject = oggetto
Mailer.BodyFormat = 0
Mailer.MailFormat = 0
Mailer.Body = body
Mailer.Send
Set Mailer = Nothing

End Function


%>
 
Discussioni simili
Autore Titolo Forum Risposte Data
P lanciare script asp (o php) da jquery Javascript 1
E Script iscrizione mailinglist in ASP Classic ASP 1
S Vendo script in asp per sito aste ribasso Offerte e Richieste di Lavoro e/o Collaborazione 0
voldemort Script calendario eventi ASP.Net ASP.NET 1
F Problemi con Explorer su uno script Ajax che richiama un asp Ajax 0
D codice html in script asp Classic ASP 2
T Problema con script search.asp Lukeonweb Classic ASP 9
S integrare script per paginazione ad una pagina asp Classic ASP 11
mythar ASP.NET 2.0 e Java Script ASP.NET 9
F Somma di più tabelle da script Javascript 0
L Script per convertire numeri in parole Javascript 2
H Eliminazione script. Photoshop 0
S Script Google Translate scomparso HTML e CSS 3
G Script notifiche dekstop aiuto Javascript 0
G [PHP] Creare script di prenotazione con controllo disponibilità. PHP 7
P Passare solo alcuni parametri a script per CSV PHP 0
M Collegamento tra form html e script php PHP 4
F Script java elenco alfabetico non funziona Javascript 3
F Script non funzionante. Devo elencare in ordine alfabetico un elenco di nominativi, ma lo script non Javascript 2
P Script upload immagini jQuery 0
M Premature end of script headers PHP 1
Cosina script data aggiornamento pagina Javascript 1
R Distribuire uno Script "Facebook Auto Post" PHP 0
F Creazione script Tv Presentati al Forum 1
N Script elenco file HTML HTML e CSS 5
felino PHP e script generazione file excel PHP 2
MarcoGrazia Se non sai se riceverai da GET o da POST, puoi verificarlo e far scegliere allo script. Snippet PHP 0
Beppe2 Ritardare esecuzione script Javascript 2
R Primo script in PHP / CSS PHP 4
felino Script PHP per leggere un file JSON. autenticazione? PHP 4
T [a pagamento] programmatore PHP che mi aiuti a migrare gli script da vecchia versione PHP a nuova Offerte e Richieste di Lavoro e/o Collaborazione 1
T script jquery non funziona più dopo il passaggio a MVC jQuery 5
F Aiuto java script Javascript 2
Max 1 [PHP] Script che funziona in locale e non online PHP 16
K Help: problema con uno script di booking in php! PHP 0
O [PHP] inviare dati da form e script ajax PHP 0
P [PHP] Aggiungere un mio script a prestashop? PHP 10
D [Javascript] inserire uno script in un file php Javascript 6
Gabriele15497514 php testo errato durante la lettura del file txt quando lo script viene eseguito contemporaneamente PHP 3
R [Javascript] Aiuto su questo script Javascript 2
M [HTML] Stesso script su 2 blog CMS (Content Management System) 4
romeocharly [PHP] Script per rinominare in automatico le immagini inviate da ftp PHP 0
elpirata [Javascript] Lo script alle volte funzione altre volte no Javascript 0
A [PHP] Script con array con numeri che iniziano per 00 PHP 2
F [HTML] Failed script su coffee cookies HTML e CSS 1
TpD [PHP] Script per organizzazione presenza eventi PHP 3
D [PHP] script che invii una mail automatica dopo risposta ad una discussione di un forum PHP 0
T interpretare uno script php non fatto da me... PHP 3
Cosina Modifica script textarea jQuery 0
O Script PHP e loro visibilità PHP 4

Discussioni simili