Salve a tutti!
Riprendo in mano, dopo parecchio che non ci lavoro più, il tentativo di creare un form sul mio sito nel quale i visitatori inseriscano i propri dati (nome,cognome,email,citta,testo messaggio) da qua che vengano inviati a un ASP e da questo parta una email verso la mia posta.
Vi descrivo come voglio procedere e vi prego se ne avete tempo e voglia di indicarmi le parti giuste e le parti sbagliate.(premetto che lo script che inserirò di seguito non è farina del mio sacco ma è stato preso da una vecchia discussione dove "Crescenzo" spiegava la cosa ma che sinceramente mi piacerebbe riaprire perchè ho molte lacune sull'argomento)
Ho un mc nel quale ho inserito 5 testi di input:
inptnome
inputcogn
inputemail
inputcitta
inputtesto
un pulsante invio con as:
on (release) {
//------controllo dell'e-mail---------\\
email1 = inputemail.lastIndexOf('@');
if (email1>=2) {
m1 = true;
} else {
m1 = false;
}
email2 = inputemail.lastIndexOf('.');
if ((email2-email1)>=2) {
m2 = true;
} else {
m2 = false;
}
email3 = inputemail.substr(email2, inputemail.length);
if (email3.length>=3) {
m3 = true;
} else {
m3 = false;
}
if (inputnome <> "" & inputcogn <> "" & inputcitta <> "" & inputtesto <> "" & m1 & m2 & m3 ) {
myLoadVars = new LoadVars();
myLoadVars.nome = inputnome;
myLoadVars.cognome = inputcogn;
myLoadVars.citta = inputcitta;
myLoadVars.testo = inputtesto;
myLoadVars.email = inputemail;
trace(myLoadVars.cognome);
myLoadVars.sendAndLoad("contatti.asp", myLoadVars, "POST");
myLoadVars.onLoad = function(success){
if(success){
out1 = myLoadVars.out;
inputnome = "";
inputcogn = "";
inputemail = "";
inputcitta = "";
inputtesto = "";
out="";
tempo = setInterval(function () {
out1="";
clearInterval(tempo)},3000);
} else {
out1 = myLoadVars.out;
}
}
}
if (inputtesto==""){
out = "* Inserire una richiesta valida" ;
}
if (inputcitta==""){
out = "* Inserire una Città" ;
}
if(!m1|!m2|!m3){
out="* Inserire una mail valida";
}
if (inputcogn==""){
out = "* Inserire un Cognome valido" ;
}
if (inputnome==""){
out = "* Inserire un Nome valido" ;
}
}
Un pulsante Reset con as:
on (release) {
inputnome = "";
inputcogn = "";
inputemail = "";
inputcitta = "";
inputtesto = "";
out = "" ;
}
E due campi di testo dinamico:
out
out1
Sull'intero mc alla fine metto:
out = "" ;
out1 = "" ;
inputnome = "";
inputcogn = "";
inputemail = "";
inputcitta = "";
inputtesto = "";
Altro problema è l'Asp nel quale non so quali dati devo inserire e dove.
Questo di seguito è contatti.asp:
<%
on error resume next
if err.number>0 then
response.write "out=Si è verificato un errore nell'invio dei dati tramite posta elettronica.&"
else
response.write "out=Mail inoltrata correttamente.&"
end if
DIM corpoMessaggio, numeroCampi, invioA, invioDa, nomeDominio, indirizzoIp, modulo, browserSistemaOperativo
invioA = "tuoindirizzomail@funzionante.it"
'* voce da modificare con un indirizzo email che funga da mittente:
invioDa = "tuoindirizzomail@funzionante.it"
nomeDominio = Request.ServerVariables("HTTP_HOST")
indirizzoIp = Request.ServerVariables("REMOTE_ADDR")
modulo = Request.ServerVariables("HTTP_REFERER")
browserSistemaOperativo = Request.ServerVariables("HTTP_USER_AGENT")
'*rilevo i campi del form
corpoMessaggio = corpoMessaggio & vbCrLf &"
<font face=verdana size=2>Nome : " & Request.Form("nome") & "
"
corpoMessaggio = corpoMessaggio & vbCrLf & "Cognome : " & Request.Form("cognome") & "
"
corpoMessaggio = corpoMessaggio & vbCrLf &"E-mail : " & Request.Form("email") & "
"
corpoMessaggio = corpoMessaggio & vbCrLf &"Città : " & Request.Form("citta") & "
"
corpoMessaggio = corpoMessaggio & vbCrLf &"
Richiesta : " & Request.Form("testo") & "</font>
"
n =Request.Form("nome")
r =Request.Form("cognome")
'* creo gli oggetti cdosys sul server e li gestisco
DIM iMsg, Flds, iConf
Set iMsg = 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 iMsg
Set .Configuration = iConf
.To = invioA
.From = Request.Form("email")
.Sender = invioDa
.Subject = "Richiesta Informazioni dal sito " & nomeDominio
.HTMLBody = "Questi i dati inseriti nel modulo dei contatti per la richiesta di informazioni dall'utente con indirizzo IP " & indirizzoIp & " . " & vbCrLf & corpoMessaggio & ""
.Send
End With
%>
Domanda:in questo spazio devo inserire due mail differenti o la stessa?
invioA = "tuoindirizzomail@funzionante.it"
'* voce da modificare con un indirizzo email che funga da mittente:
invioDa = "tuoindirizzomail@funzionante.it"
Altra domanda:il mio server è Seeweb, dove inserisco i mieidati e quali dati?
VVoVe: Sono un disastro lo so!
Grazie mille in anticipo al povero cristo che mi aiuterà!
Rispondi quotando
