Originariamente inviato da domaggiore
Ciao a tutta la comunità di html!!!
Avendo intenzione di implementare nel mio sito l'invio di cartoline elettroniche ho scaricato uno script che reputavo interessante ma, una volta caricato sul server (possiedo Aruba) quando tento di inviare la cartolina non accade assolutamente nulla...
Premetto che purtroppo non sono un programmatore, pertanto "mi fido" dello script...
Qualcuno mi saprebbe dire come poter fare a risolvere l'inghippo??????
L'indirizzo web in cui è presente il file è
qui .
Lo script è al seguente
link.
Se potete, rispondetemi pure anche sulla mia
mail.
Grazie a tutti...
Andrea
Devi inviare l'e-mail usando CDOSYS. Prova a modificare il file invia.asp così:
codice:
<%
Function Valida_Email(Stringa)
If instr(Stringa, "@") = 0 or instr(Stringa, ".") = 0 then
'Email valida
Valida_Email = False
Else
'Email non valida
Valida_Email = True
End if
End Function
'Richiamo tutte le variabili
txt_email_1 = request.form("txt_email_1")
txt_email_2 = request.form("txt_email_2")
txt_msg = request.form("txt_msg")
card = request.form("card")
'Controllo se i campi non sono vuoti
if (len(txt_email_1) <> 0) and _
(len(txt_email_2) <> 0) and _
(len(txt_msg) <> 0) and _
(card <> "") then
'Controllo se gli indirizzi Email sono Validi
if Valida_Email(txt_email_1) and Valida_Email(txt_email_2) then
'Adesso invio l' email con ASPEMail
' set objEmail = Server.CreateObject("Persits.MailSender")
set objEmail = Server.CreateObject("CDO.Message")
' objEmail.Host = "smtp.aruba.it" 'Server SMTP
objEmail.From = txt_email_1
objEmail.Subject = "Cartolina inviata da: " & txt_email_1
objEmail.TextBody = "<center>[img][/img]
" & txt_msg
' objEmail.IsHTML = true
' objEmail.AddAddress=(txt_email_2)
objEmail.To=(txt_email_2)
objEmail.Send
set objEmail = Nothing
'Fine dell' Invio email
strErrore = "<font color=""Green"">ePostCard inviata con successo !</font>"
else
strErrore = "<font color=""red"">Controlla gli Indirizzi Email !</font>"
end if
else
strErrore = "<font color=""red"">Devi riempire tutti i Campi !</font>"
end if
%>
Rispondi quotando
