Buon giorno,
Sto creando una pagina sondaggio ASP su di un sito internet, i dati inseriti mi vanno a finire in un db e
volevo sapere come poter avere io, amministratore del sito, una email di notifica inserimento ogni qual volta un utente inserisce un nuovo record nel db. Inoltre è possiblie riportare i campi compilati nel form nell'email?
Gazie a tutti
Certo.
Subito dopo la INSERT nel db crei l'oggetto mail e nel corpo della mail utilizzi le variabili con i dati presi dalla FORM per creare il corpo della mail e quindi inviarlo al tuo indirizzo.
OK provo subito, spero di riuscirci xchè non sono molto esperto in asp.
Grazie per la rapidità nella risposta
Niente da fare, non riesco proprio a fare ciò,
posto il codice per l'inserimento magari sai darmi qualche ulteriore dritta. N.B. utilizzo Aruba come server.
Eventualmente se la risposta è troppo complicata, se lo conosci indicami un tutorial.
Grazie ancora.
-------------------------
<%@LANGUAGE = JScript%>
<%
var azione= new String(Request.QueryString("azione"));
%>
<html>
<head>
<title>Inserisci nuovi dati</title>
<style type="text/css">
td, p { font: Normal 12px Verdana; }
a { color: #0000FF; }
a:hover { color: #FF0000; }
</style>
</head>
<body>
<%
if (azione== "ADD")
{
var Raggiungimento = new String(Request.Form("Raggiungimento"));
var Chiarezza = new String(Request.Form("Chiarezza"));
var Aspetto = new String(Request.Form("Aspetto"));
var Caricamento = new String(Request.Form("Caricamento"));
var Soddisfazione = new String(Request.Form("Soddisfazione"));
var Siti = new String(Request.Form("Siti"));
var Suggerimenti = new String(Request.Form("Suggerimenti"));
var Email = new String(Request.Form("Email"));
if (Raggiungimento == "" || Chiarezza == "" || Aspetto == "" || Caricamento == "" || Soddisfazione == "")
{
Response.Redirect("inserisci.asp");
}
else
{
var Rs = new ActiveXObject("ADODB.Recordset");
Rs.Open("anagrafe",Cn,3,3);
Rs.AddNew();
Rs("Raggiungimento") = Raggiungimento;
Rs("Chiarezza") = Chiarezza;
Rs("Aspetto") = Aspetto;
Rs("Caricamento") = Caricamento;
Rs("Soddisfazione") = Soddisfazione;
Rs("Siti") = Siti;
Rs("Suggerimenti") = Suggerimenti;
Rs("Email") = Email;
Rs.Update();
Rs.Close();
Cn.Close();
Response.Redirect("sondaggio grazie.htm");
}
}
%>
------------------------------------
Devi usare l'oggetto CDOSYS.
Ancora non mi riesce, saresti cortese da indicarmi dove è il bug?
posto il codice
--------------
<%@LANGUAGE = JScript%>
<%
var azione= new String(Request.QueryString("azione"));
%>
<html>
<head>
<title>Inserisci nuovi dati</title>
<style type="text/css">
td, p { font: Normal 12px Verdana; }
a { color: #0000FF; }
a:hover { color: #FF0000; }
</style>
</head>
<body>
<%
if (azione== "ADD")
{
var Raggiungimento = new String(Request.Form("Raggiungimento"));
var Chiarezza = new String(Request.Form("Chiarezza"));
var Aspetto = new String(Request.Form("Aspetto"));
var Caricamento = new String(Request.Form("Caricamento"));
var Soddisfazione = new String(Request.Form("Soddisfazione"));
var Siti = new String(Request.Form("Siti"));
var Suggerimenti = new String(Request.Form("Suggerimenti"));
var Email = new String(Request.Form("Email"));
if (Raggiungimento == "" || Chiarezza == "" || Aspetto == "" || Caricamento == "" || Soddisfazione == "")
{
Response.Redirect("inserisci.asp");
}
else
{
var Rs = new ActiveXObject("ADODB.Recordset");
Rs.Open("anagrafe",Cn,3,3);
Rs.AddNew();
Rs("Raggiungimento") = Raggiungimento;
Rs("Chiarezza") = Chiarezza;
Rs("Aspetto") = Aspetto;
Rs("Caricamento") = Caricamento;
Rs("Soddisfazione") = Soddisfazione;
Rs("Siti") = Siti;
Rs("Suggerimenti") = Suggerimenti;
Rs("Email") = Email;
Rs.Update();
Rs.Close();
Cn.Close();
Response.Redirect("sondaggio grazie.htm");
}
}
%>
<%
If (request ("submit")<> "") Then
Set usxMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
Flds(cdoSendUsingMethod) = cdoSendUsingPort
Flds(cdoSMTPServer) = "smtp.aruba.it"
Flds(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0
Flds.Update
With usxMsg
Set .Configuration = iConf
.To = request.Form(("E_MAIL")
.From = "pippo@aruba.it"
.Sender = "miacasella@miodominio.it"
.Subject = "sondaggio"
.TextBody = &request("Email")
.Send
End With
%>
------------------
Ti da errore? Se si, cosa dice?
Microsoft JScript compilation error '800a03ea'
Syntax error
/prova/inserisci.asp, line 53
If (request ("submit")<> "") Then
-----------------------^
Il codice della mail lo devi trovare in JScript e lo devi mettere prima del response.redirect senza alcuna if (che peraltro te hai scritto con la sintassi di VBScript.
Grazie ancora Mems,
come accennato conosco pochissimo il linguaggio e per fare quel form inserimento dati ho seguito un tutorial su una rivista.
Saresti così gentile da indicarmi alcune dritte?
Ciao
Permessi di invio
Rispondi quotando