- Home
- Categorie
- Coding e Sistemistica
- Altri linguaggi per il web
- Dove sbaglio? qualcuno mi può aiutare?
-
Dove sbaglio? qualcuno mi può aiutare?
Ho creato un form, originariamente era in php la pagina di invio, ma poi ho scoperto che il server del mio cliente non supporta i php -.-"
allora ho preso la decisione di realizzare il codice di invio mail in .asp in modo che funzionasse, ma di asp non so una ceppa...ho provato ad informarmi e ho preso questo codice, che poi ho modificato per renderlo adatto alle mie esigenze ma non mi funziona..qualcuno sa dirmi cosa sbaglio? oppure mi sa dare il codice qui presente sistemato e funzionante?
[HTML]
<%@LANGUAGE="JAVASCRIPT" CODEPAGE="65001"%>
<html>
<body>
<% // Recupero i dati dal modulo var Referente: = String(Request.Form("referente"));
var Azienda = String(Request.Form("azienda"));
var Città = String(Request.Form("città"));
var Telefono: = String(Request.Form("telefono"));
var Dettagli: = String(Request.Form("dettagli"));
// Effettuo un banale controllo sulla validità dei campi
if (referente == "" || mail == "" || telefono == "") {
Response.Redirect("saluber.net/Deratizzazione/form-error.asp#arrivo");
Response.End; }
// Creo l'oggetto (o classe) CDONTS.NewMail
var OggettoCDONTS = new ActiveXObject("CDONTS.NewMail");
OggettoCDONTS.From = "mail"; // Mittente
OggettoCDONTS.To = "[email protected]"; // Destinatario (inserisci la tua email)
OggettoCDONTS.Subject = "Richiesta info deratizzazione"; // Oggetto
OggettoCDONTS.Body =
var Inviata da: = String(Request.Form("mail"));
var Referente: = String(Request.Form("referente"));
var Azienda: = String(Request.Form("azienda"));
var Città: = String(Request.Form("città"));
var Telefono: = String(Request.Form("telefono"));
var Dettagli: = String(Request.Form("dettagli"));; // Corpo
OggettoCDONTS.Send(); // Invio la mail
Response.Redirect("saluber.net/Deratizzazione/form-ok.asp#arrivo");%>
</body>
</html>
[/HTML]
-
Ciao!
Tieni questo codice! A me funziona!<%
Dim miaMailSet miaMail = CreateObject(“CDONTS.NewMail”)
miaMail.From = “[email protected]”miaMail.To = “[email protected]”
miaMail.Subject = “Oggetto della mail”
miaMail.BodyFormat = 0
miaMail.MailFormat = 0
miaMail.Importance = 0
miaMail.Body = “Testo della mail”
miaMail.Send
Set miaMail = Nothing%>