Mail vuota da form asp

**paco73** · 14-02-2008, 18:19

Ciao, mi arrivano delle email generate dal modulo asp del mio sito con tutti i campi vuoti.

Presumo che sia il robot dei motori di ricerca che scansionando faccia partire questi messaggi.

Qualcuno mi sa indicare un comando per evitare che succeda.
grazie

-------------------------
Questo è il codice.
-------------------------

%

Catalogo=request("chkCatalogo")
if Catalogo="S" then
Catalogo="Si"
else
Catalogo="No"
end if

strHost = "mail.doo.it"

sTesto="<html><body bgcolor=00418c><font face=verdana size=2 color=white>Form dal WebSite

</P>Nome: " & Request.Form("txtNome") & "
" & _
"Nazione: " & Request.Form("txtNaz") & "
" & _
"Società: " & Request.Form("txtRagSoc") & "
" & _
"Telefono: " & Request.Form("txtTel") & "
" & _
"E-mail: " & Request.Form("txtMail") & "
"

Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = strHost
Mail.From = "i" '
Mail.FromName = ""
Mail.AddAddress ""
Mail.AddBcc ""
Mail.Subject = "richiesta contatto"
Mail.Body = sTesto
strErr = ""
Mail.IsHtml = true
bSuccess = False
'On Error Resume Next
Mail.Send

If Err <> 0 Then
strErr = Err.Description
else
bSuccess = True
End If

Response.Redirect "oksend.htm"
%>

**Mems** · 14-02-2008, 18:21

Beh, la pagina asp che invia la mail dovrebbe quanto meno verificare che i campi siano pieni prima di inviare la mail, no?

**paco73** · 14-02-2008, 18:30

... beh sì direi che basterebbe 1 campo x evitare l'invio fasullo. Questa è la pagina che riceve i dati dalla prima pagina in htm. Solo che il form non l'ho fatto io. Mi puoi aiutare?

**Mems** · 14-02-2008, 18:33

codice:

<%

Catalogo=request("chkCatalogo")
if Catalogo="S" then
Catalogo="Si"
else
Catalogo="No"
end if

strHost = "mail.doo.it"

if len(request.form("txtNome")) > 0 and len(request.form("txtMail")) > 0 then

sTesto="<html><body bgcolor=00418c><font face=verdana size=2 color=white>Form dal WebSite

</P>Nome: " & Request.Form("txtNome") & "
" & _
"Nazione: " & Request.Form("txtNaz") & "
" & _ 
"Società: " & Request.Form("txtRagSoc") & "
" & _ 
"Telefono: " & Request.Form("txtTel") & "
" & _ 
"E-mail: " & Request.Form("txtMail") & "
" 



Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = strHost
Mail.From = "i" '
Mail.FromName = ""
Mail.AddAddress "" 
Mail.AddBcc "" 
Mail.Subject = "richiesta contatto"
Mail.Body = sTesto 
strErr = ""
Mail.IsHtml = true
bSuccess = False
'On Error Resume Next 
Mail.Send 

If Err <> 0 Then 
strErr = Err.Description
else
bSuccess = True
End If


Response.Redirect "oksend.htm"

else

response.write "A bbello!!! Ce stai a provà, eh?"

endi f
%>

**paco73** · 14-02-2008, 18:56

Funzia!!!!!!!!!!

1000 grazie

Discussione: Mail vuota da form asp

Strumenti discussione

Ricerca discussione

Visualizza

Mail vuota da form asp

Permessi di invio