Form Con CDOSYS

**moretti_web** · 06-04-2005, 17:27

Salve a tutti,
prima di chiedere ho fatto un giro nel forum, ma non son riuscito a trovare quello che cercavo!

Il fatto è che non ci capisco un "tubo" di ASP, ma devo far funzionare un forum che ho creato in html... con tutte le sue belle variabili, campi di testo e checkbox.

Mi serve uno script che mi crei la pagina ASP con CDOSYS(in quanto il server è 2003)... a cui far gestire la variabili che gli arrivano dalla pag. HTML.

Poi mi manda la mail ben formattata con i vari dati.

Vi ringrazio anticipatamente.

**weppos** · 06-04-2005, 17:35

http://www.weppos.com/asp/script/scr....asp?script=17

Questo è l'esempio di un form mail.
Adattalo alle tue esigenze.

**moretti_web** · 06-04-2005, 17:49

Intanto ti ringrazio per la risposta...

Ho visto lo script... se il form l'ho già costruito... quale pezzo di script devo usare e dove lo devo inserire?

Ti ringrazio...

**moretti_web** · 06-04-2005, 17:53

Io avevo uno script che però andava bene con CDONTS:

<html>
<head>
<title>Contatti</title>
<META HTTP-EQUIV="Refresh" CONTENT="8; URL=http://www.dominio.com">

</head>
<body bgcolor="#ffffff">
<div align="center">
<%

toWho = "info@dominio.com"

data = right("0"&day(noW),2)&"/"&right("0"&month(now),2)&"/"&year(now)
ora = right("0"&hour(now),2)&":"&right("0"&minute(now),2 )

' corpo= "<html>"
corpoTestata=""
corpoTestata=corpoTestata& "Messaggio di contatti inviato dal Sito Internet (www.dominio.com).

"
corpoTestata=corpoTestata& "Data: " &data& " - Ora: " & ora&""
corpoTestata=corpoTestata& "

"

corpo=corpo& " Nome: " &Request("Nome")&"
"
corpo=corpo& " Cognome: " &Request("Cognome")&"
"
corpo=corpo& " Indirizzo: " &Request("Indirizzo")&"
"
corpo=corpo& " Località: " &Request("Localita")&"
"
corpo=corpo& " Cap: " &Request("Cap")&"
"
corpo=corpo& " Provincia: " &Request("Provincia")&"
"
corpo=corpo& " Telefono: " &Request("Telefono")&"
"
corpo=corpo& " Fax: " &Request("Fax")&"
"
corpo=corpo& " E-mail: " &Request("email")&"
"
corpo=corpo& " Sono interessato a: " &Request("Sono interessato a")&"
"
corpo=corpo& " Data Arrivo: " &Request("Data Arrivo")&"
"
corpo=corpo& " Data Partenza: " &Request("Data Partenza")&"
"
corpo=corpo& " Numenro Adulti: " &Request("Numero Adulti")&"
"
corpo=corpo& " Numero Bambini(dai 3 ai 12 anni): " &Request("Numero Bambini")&"
"
corpo=corpo& " Messaggio: " &Request("Messaggio")&"
"

subject = "E-mail dal sito www.dominio.com"

response.write "<Body>"

Set myMail = Server.CreateObject( "CDONTS.Newmail" )
myMail.MailFormat = 0
myMail.BodyFormat = 0
myMail.From = "info@dominio.com"
myMail.To = toWho
myMail.Subject = subject
myMail.Body = corpoTestata & corpo

myMail.Send

Set myMail = Nothing

%>
<center>
www.dominio.com

Contatti

Grazie per averci scritto.

<a href="http://www.dominio.com">
Homepage</a>
</div>
</body>
</html>

Ho visto che in dei tutorial ti spiega come "convertirlo".... ma francamente nn c'ho capito molto!

**weppos** · 06-04-2005, 18:41

Se il form l'ha già allora basta cambiare la sintassi da CDONTS a CDOSYS.
Qua ci sono le specifiche di CDOSYS
http://www.weppos.com/asp/script/scr....asp?script=15

**moretti_web** · 06-04-2005, 18:52

Ti ringrazio.... mi sono accorto che già era stato affrontato il problema...
non me n'ero proprio accorto.

...sorry!

Grazie.

**moretti_web** · 07-04-2005, 10:06

Sono ancora qui... e vi chiedo UMILMENTE SCUSA!!!
credevo di aver risolto... ma nn mi funziona!!!

Vi incollo il codice... se mi volete aiutare...

_______________
<html>
<head>
<title>Contatti</title>
<META HTTP-EQUIV="Refresh" CONTENT="8; URL=http://www.dominio.xx">

</head>
<body bgcolor="#ffffff">
<div align="center">
<%

toWho = "destinatario@dominio.xx"

' corpo= "<html>"
corpoTestata=""
corpoTestata=corpoTestata& "Messaggio di contatti inviato dal Sito Internet (www.dominio.xx).

"
corpoTestata=corpoTestata& "Data: " &data& " - Ora: " & ora&""
corpoTestata=corpoTestata& "

"

corpo=corpo& " Nome: " &Request("Nome")&"
"
corpo=corpo& " Cognome: " &Request("Cognome")&"
"
corpo=corpo& " Indirizzo: " &Request("Indirizzo")&"
"
corpo=corpo& " Località: " &Request("Localita")&"
"
corpo=corpo& " Cap: " &Request("Cap")&"
"
corpo=corpo& " Provincia: " &Request("Provincia")&"
"
corpo=corpo& " Telefono: " &Request("Telefono")&"
"
corpo=corpo& " Fax: " &Request("Fax")&"
"
corpo=corpo& " E-mail: " &Request("email")&"
"
corpo=corpo& " Sono interessato a: " &Request("Sono interessato a")&"
"
corpo=corpo& " Data Arrivo: " &Request("Data Arrivo")&"
"
corpo=corpo& " Data Partenza: " &Request("Data Partenza")&"
"
corpo=corpo& " Numenro Adulti: " &Request("Numero Adulti")&"
"
corpo=corpo& " Numero Bambini(dai 3 ai 12 anni): " &Request("Numero Bambini")&"
"
corpo=corpo& " Messaggio: " &Request("Messaggio")&"
"

subject = "E-mail dal sito www.dominio.xx"
if Request.QueryString("invia") = "true" AND Request.Form("submit") = "invia" then
Dim objMail, objConfig
Set objMail = createObject("CDO.Message")
Set objConfig = Server.createObject("CDO.Configuration")
With objConfig
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.teleunit.it"
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
.Fields.update
End With

Set objMail.Configuration = objConfig
objMail.From = "mittente@dominio.xx"
objMail.To = "destinatario@dominio.xx"
objMail.Subject = Request.Form("subject")
objMail.HTMLBody = Request.Form("corpoTestata & corpo")
objMail.Send()

Set objMail = Nothing

<center>
www.dominio.xx

Contatti

Grazie per averci scritto.

<a href="http://www.dominio.xx">
Homepage</a>
</div>
</body>
</html>
else %>
_________________

Questa è la pag. in ASP... che controlla e formatta ma mail...
a "monte" esiste la pagina HTML con il form che invia le variabili con

action="questionario.asp?invia=true"
_________________

Grazie per il disturbo!

Discussione: Form Con CDOSYS

Strumenti discussione

Ricerca discussione

Visualizza

Form Con CDOSYS

Permessi di invio