salve a tutti
premetto che sono un niubbo di asp
sto cercando di creare una pagina asp che gestisca l'invio di una form
leggendo la guida su html.it ho capito (o almeno spero) a grandi linee come fare.
in pratica il codice che sto usando è questo :
la form in html
e la pagina aspcodice:<head> <meta http-equiv="Content-Type" content="text/html; charset=windows-1252"> <title></title> <meta name="description" content=""> <meta name="keywords" content=""> <meta name="author" content="Unregistered User"> <meta name="generator" content="AceHTML Freeware"> </head> <body> <form name="form" action="ModuloInvio.asp" method="post"> <div style="text-align: center"> Nome:</p> <INPUT NAME="nome" TYPE="TEXT" size=24 MAXLENGTH=50> Cognome:</p> <INPUT NAME="cognome" TYPE="TEXT" size=24 MAXLENGTH=50> Vi:</p> <INPUT NAME="via" TYPE="TEXT" size=24 MAXLENGTH=50> Civico:</p> <INPUT NAME="civico" TYPE="TEXT" size=24 MAXLENGTH=50> Città:</p> <INPUT NAME="città" TYPE="TEXT" size=24 MAXLENGTH=50> Cap:</p> <INPUT NAME="cap" TYPE="TEXT" size=24 MAXLENGTH=50> Provincia:</p> <INPUT NAME="provincia" TYPE="TEXT" size=24 MAXLENGTH=50> Telefono</p> <INPUT NAME="Telefono" TYPE="TEXT" size=24 MAXLENGTH=50> E-Mail</p> <INPUT NAME="e-mail" TYPE="TEXT" size=24 MAXLENGTH=50> Testo</p> <INPUT NAME="testo" TYPE="TEXT" size=24 MAXLENGTH=50> <input type="submit" value="Invia" name="cmdInvia"> </div> </form> </body> </html>
il problema è che quando clicco il bottone invia invece di eseguire il codice asp me lo visualizza come se fosse una pagina htmlcodice:<% ' Created on: 12/04/2010 %> <html> <title>pagina di invio</title> <body> <% 'dichiaro le variabili dim form,nome,cognome,via,civico,città,provincia,cap,telefono,email,testo 'richiamo la sub principale call Main() sub Main() 'Imposto un controllo: se il campo email è vuoto vado al sub apposito altrimenti invio e chiudo If Len(Request.Form("email")) = 0 then no_email() else manda_posta(form) ecco_fatto(nome) end if end sub Sub no_email() 'si attiva in caso di campo e-mail vuoto response.write "<div style='text-align: center'>" response.write "Indirizzo E-Mail Obbligatorio" response.write "Prova di nuovo" response.write "</div> end sub Sub manda_posta()'invia la form via e-mail 'dichiaro le variabili dim form,nome,cognome,via,civico,città,provincia,cap,telefono,email,testo Dim email, commenti Dim objMail, mandamiquesto 'importo i dati dalla form nome = Request.Form("nome") cognome = Request.Form("cognome") via = Request.Form("via") civico = Request.Form("civico") provincia = Request.Form("provincia") cap = Request.Form("cap") telefono = Request.Form("telefono") email = Request.Form("email") testo= Request.Form("testo") 'creo il testo della mail mandamiquesto = "Nome: " & nome & "Cognome: " cognome & "Via: " via & "Civico: " civico & "Cap: " cap & "Città: " città & "Provincia: " provincia & "Telefono: " telefono & "E-Mail: " email & "Testo: " testo 'creo la mail Set objMail = Server.CreateObject("CDONTS.NewMail") 'inserisco il mittente objMail.From = "Il Mio Sito" 'inserisco il destinatario objMail.To = "limitbreak86@hotmail.com" 'inserisco l'oggetto objMail.Subject = "Ordine" 'inserisco il testo della mail objMail.Body = mandamiquesto 'invio la mail objMail.send 'pulisco i campi Set objMail = Nothing End sub sub ecco_fatto() response.write "<div style='text-align: center'>" response.write "E-mail spedita con successo " response.write "Torna alla Pagina Madre" end sub %> </body> </html>
probabilmente ho fatto qualche errore nella sintassi ma anche confrontando il mio codice con la sintassi usata nel manuale non riesco a capire dove sbaglio... :master:
qualche anima buona può darmi una dritta??
Rispondi quotando
