invio FORM

**ronnin** · 30-05-2006, 08:43

ciao a tutti!
ho un problema con un form di contatto che nn viene spedito.

sto usando un codice asp che ho gia usato altre volte, ma stavolta nn funzia!

codice:

<%
    	HTML = "<!DOCTYPE HTML PUBLIC""-//IETF//DTD HTML//EN"">"
    	HTML = HTML & "<html>"
    	HTML = HTML & "<head>"
    	HTML = HTML & "<meta http-equiv=""Content-Type"""
    	HTML = HTML & "content=""text/html; charset=iso-8859-1"">"
    	HTML = HTML & "<meta name=""GENERATOR"""
    	HTML = HTML & " content=""Microsoft Visual Studio 6.0"">"
    	HTML = HTML & "<title>HTMLMail</title>"
    	HTML = HTML & "</head>"
    	HTML = HTML & "<body bgcolor=""FFFFFF"">"
    	HTML = HTML & "

Vi ha scritto " & request.form("nome") &"</p>

Cognome: " & request.form("cognome") & "</p>

Città: " & request.form("citta") & "</p>

E-mail: " & request.form("email")&"</p>

Commento: " & request.form("commento")
	
	HTML = HTML & "</body>"
   	HTML = HTML & "</html>"

	Set objNewMail = Server.CreateObject("Persits.MailSender") 
 objNewMail.Host = "www.alloggiallascala.com" 
 objNewMail.IsHTML = True
 objNewMail.From =  "ale@xxxxxxxx.com"
 objNewMail.AddAddress"ale@xxxxxxxx.com"
 objNewMail.Subject = "Messaggio dal Sito Internet www.alloggiallascala.com"
 objNewMail.Body = HTML
 objNewMail.Send

	
 Set objNewMail = Server.CreateObject("Persits.MailSender") 
 objNewMail.Host = "mail.alloggiallascala.com" 
 objPersist.Port = 25
 objNewMail.IsHTML = True
 objNewMail.From =  "ale@xxxxxxxx.com"
 objNewMail.AddAddress request.form("email")
 objNewMail.Subject = "Messaggio dal Sito Internet Alloggi alla Scala"
 objNewMail.Body = "Alloggi alla scala Vi ringrazia per aver compilato il form di contatto.
Sar&agrave; nostra premura risponderVi al pi&ugrave; presto."
 objNewMail.Send
%>

in pratica questo script mi manda una mail con i dati raccolti da form, e poi un ringraziamento a chi lo ha compilato.
una volta usavo cdonts, poi pero' ho saputo che quel metodo nn funzionava per tutti e ho cominciato a usare questo.

qualcuno sa dirmi cosa non va??

io cmq ho provato a cercare altri metodi.. e ho trovato un invio con CDO, ma nn riesco ad adattarlo!!

help....

grazie

**Roby_72** · 30-05-2006, 10:17

Sicuro che questo componente Persits.MailSender sia presente sul server?
Prova CDOSYS: http://www.weppos.com/asp/script/categoria_email.asp

Roby

**ronnin** · 30-05-2006, 11:01

grazie per la risposta!

sn andata a vdr il codice... ma e' messo subito prima del form..
quindi script di invio e campi del form risiedono sulla stessa pagina giusto??

adesso provo a modificare la mia pagina...

spero funzi!

**Roby_72** · 30-05-2006, 11:09

Devi modificare solo il codice di invio non adattare la tua pagina a quell'esempio...

Roby

**ronnin** · 30-05-2006, 11:33

ok, allora io ho preso la mia pagina spedisci.asp che viene richiamata dalla pagina form.htm dopo che ho cliccato su invia, e ho modificato il codice di invio cosi:

codice:

<%
    	HTML = "<!DOCTYPE HTML PUBLIC""-//IETF//DTD HTML//EN"">"
    	HTML = HTML & "<html>"
    	HTML = HTML & "<head>"
    	HTML = HTML & "<meta http-equiv=""Content-Type"""
    	HTML = HTML & "content=""text/html; charset=iso-8859-1"">"
    	HTML = HTML & "<meta name=""GENERATOR"""
    	HTML = HTML & " content=""Microsoft Visual Studio 6.0"">"
    	HTML = HTML & "<title>HTMLMail</title>"
    	HTML = HTML & "</head>"
    	HTML = HTML & "<body bgcolor=""FFFFFF"">"
    	HTML = HTML & "

Vi ha scritto " & request.form("nome") &"</p>

Cognome: " & request.form("cognome") & "</p>

Città: " & request.form("citta") & "</p>

E-mail: " & request.form("email")&"</p>

Commento: " & request.form("commento")
	
	HTML = HTML & "</body>"
   	HTML = HTML & "</html>"

	Set objMail = Server.createObject("CDO.Message")

' Dimensiona l'oggetto configurazione
Set objConfig = Server.createObject ("CDO.Configuration")

' Imposta le configurazioni
With objConfig

' Server SMTP di uscita
' ATTENZIONE! Usare il proprio indirizzo di server email!
' E' FONDAMENTALE per l'invio della email
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.alloggiallascala.com"

' Porta SMTP
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

' Porta CDO
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 

 objNewMail.IsHTML = True
 objNewMail.From =  "ale@beevulgaris.com"
 objNewMail.AddAddress"ale@beevulgaris.com"
 objNewMail.Subject = "Messaggio dal Sito Internet www.alloggiallascala.com"
 objNewMail.Body = HTML
 objNewMail.Send

	
Set objMail = Server.createObject("CDO.Message")

' Dimensiona l'oggetto configurazione
Set objConfig = Server.createObject ("CDO.Configuration")

' Imposta le configurazioni
With objConfig

' Server SMTP di uscita
' ATTENZIONE! Usare il proprio indirizzo di server email!
' E' FONDAMENTALE per l'invio della email
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.alloggiallascala.com"

' Porta SMTP
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

' Porta CDO
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 

 objNewMail.IsHTML = True
 objNewMail.From =  "ale@beevulgaris.com"
 objNewMail.AddAddress request.form("email")
 objNewMail.Subject = "Messaggio dal Sito Internet Alloggi alla Scala"
 objNewMail.Body = "Alloggi alla scala Vi ringrazia per aver compilato il form di contatto.
Sar&agrave; nostra premura risponderVi al pi&ugrave; presto."
 objNewMail.Send



%>

ma nn funzia.
penso che forse dovrei cacciare tutto sulla pagina del form???

**ronnin** · 30-05-2006, 11:53

ho sostituito objNewMail con objMail.... spero funzi...

**ronnin** · 30-05-2006, 15:55

....niente....nn funzia....

Discussione: invio FORM

Strumenti discussione

Ricerca discussione

Visualizza

invio FORM

Permessi di invio