Scusate, qualcuno mi può aiutare a sistemare?
Vorrei mettere un controllo all'invio delle mail da un form (utilizzo Asp Mail); il mio file .asp è quelllo che segue, e vorrei che se nel campo "titolo" (oppure messaggio) fosse scritto un determinato carattere/testo la mail non venga inviata; preferisco farlo nel file asp e non con uno script direttamente nel form poichè è facilmente superabile.
Ho messo la condizione if titolo .... che vedete in fondo al codice, il messaggio compare ma la mail parte ugualmente; qualche idea su cme posso risolvere?
Grazie
<%
nome = Request.form("nome")
email = Request.form("email")
titolo = Request.form("titolo")
messaggio = Request.form("messaggio")
telefono = Request.form("telefono")
data=now()
host=Request.ServerVariables("REMOTE_HOST")
to_name = "Ufficio"
to_email = "indirizzo@mail.estensione"
smtp = "indirizzo smtp"
url_risposta = "http://www.sito/risposta.htm"
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.QMessage = true
Mailer.FromName = nome
Mailer.FromAddress= email
Mailer.RemoteHost = smtp
Mailer.AddRecipient to_name , to_email
Mailer.Subject = titolo
Mailer.BodyText="Data richiesta: " & data & VbCrLf & "Host di provenienza: " & host & VbCrLf &
VbCrLf & "Oggetto: " & titolo & VbCrLf & "Nome cliente: " & nome & VbCrLf & "Telefono: " &
telefono & VbCrLf & "Indirizzo email: " & email & VbCrLf & VbCrLf & "Testo del messaggio: " &
messaggio
if not Mailer.SendMail then
Response.Write "Mailing Failed... Error is:
"
Response.Write Mailer.Response
else
if titolo = "parola/carattere che non si può scrivere" then
Response.Write ("Hai scritto un carattere non valido nel campo oggetto - Usa la
freccia indietro del broswer per tornare all'inserimento")
else
response.redirect url_risposta
end if
end if
%>

Rispondi quotando