inserire messaggio di errore in un form

[Lino80]

vorrei inserire nello stesso script un Response, se nel caso un utente non compila tutti i campi..dopo che preme il pulsante INVIA gli uscirà scritto:

"Errore

Devi compilare tutti i campi"

si può?

grazie

<%

' Controlla invio
if Request.QueryString("invia") = "true" AND Request.Form("submit") = "invia" then

Dim objMail, objConfig

' Crea l'oggetto email
Set objMail = Server.createObject("CDO.Message")

' Dimensiona l'oggetto configurazione
Set objConfig = Server.createObject ("CDO.Configuration")

' Imposta le configurazioni
With objConfig

' Server SMTP di uscita
' ATTENZIONE! Usare il proprio indirizzo di server email!
' E' FONDAMENTALE per l'invio della email
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.sito.com"

' Porta SMTP
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

' Porta CDO
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

' Timeout
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
.Fields.update

End With

' Assegna le configurazioni
Set objMail.Configuration = objConfig

' Assegna all'oggetto le proprietà necessarie
objMail.From = Request.Form("email") ' Mittente
objMail.To = "info@.com" ' Destinatario
objMail.Subject = Request.Form("oggetto") ' Oggetto
objMail.HTMLBody = Request.Form("messaggio") ' Messaggio
objMail.HTMLBody = Request.Form("messaggio2") ' Messaggio2

' Invia l'email
objMail.Send()

Set objMail = Nothing

Response.Write("Email inviata correttamente da " &_

Request.Form("email") & " 

Le risponderemo al più presto!

Grazie.")

else %>
<form name="formail" method="post" action="?invia=true">
<table border="1" align="center" cellpadding="3" cellspacing="1">
<tr>
<td bgcolor="<%=Tabella_Colore_Titolo%>">* Email</td>
<td><input type="text" name="email" /></td>
</tr>
<tr>
<td bgcolor="<%=Tabella_Colore_Titolo%>">* Oggetto</td>
<td><input type="text" name="oggetto" value="oggetto" /></td>
</tr>
<tr>
<td bgcolor="<%=Tabella_Colore_Titolo%>">* Messaggio</td>
<td><textarea name="messaggio"></textarea></td>
</tr>
<tr>
<td bgcolor="<%=Tabella_Colore_Titolo%>">* Messaggio2</td>
<td><textarea name="messaggio2"></textarea></td>
</tr>
<tr>
<td bgcolor="<%=Tabella_Colore_Titolo%>"> </td>
<td> <input type="submit" value="invia" name="submit" /> </td>
</tr>
</table>
</form>

[Roby_72]

Devi fare i request a monte, controllare che siano tutti pieni e, in caso contrario, scrivere qualcosa...

Roby

[Lino80]

il problema è che non so da dove iniziare..non so programmare... se mi dai una mano ad inserire il codice ti ringrazio

[Mems]

Originariamente inviato da Lino80
il problema è che non so da dove iniziare..non so programmare... se mi dai una mano ad inserire il codice ti ringrazio

Oggi la Caritas fa sciopero

[Lino80]

ah ok.. ripasso col piattino firmato asp domani...

[Roby_72]

<%

' Controlla invio
if Request.QueryString("invia") = "true" AND Request.Form("submit") = "invia" then

email = trim(Request.Form("email")) ' Mittente
oggetto = trim(Request.Form("oggetto")) ' Oggetto
messaggio = trim(Request.Form("messaggio")) ' Messaggio
messaggio2 = trim(Request.Form("messaggio2")) ' Messaggio2

if email &"[]" <> "[]" and oggetto &"[]" <> "[]" and messaggio &"[]" <> "[]" and messaggio2 &"[]" <> "[]" then

    Dim objMail, objConfig

    ' Crea l'oggetto email
    Set objMail = Server.createObject("CDO.Message")

    ' Dimensiona l'oggetto configurazione
    Set objConfig = Server.createObject ("CDO.Configuration")

    ' Imposta le configurazioni
    With objConfig

    ' Server SMTP di uscita
    ' ATTENZIONE! Usare il proprio indirizzo di server email!
    ' E' FONDAMENTALE per l'invio della email
    .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.sito.com"

    ' Porta SMTP
    .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

    ' Porta CDO
    .Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

    ' Timeout
    .Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
    .Fields.update

    End With

    ' Assegna le configurazioni
    Set objMail.Configuration = objConfig

    ' Assegna all'oggetto le proprietà necessarie
    objMail.From = Request.Form("email") ' Mittente
    objMail.To = "info@.com" ' Destinatario
    objMail.Subject = Request.Form("oggetto") ' Oggetto
    objMail.HTMLBody = Request.Form("messaggio") ' Messaggio
    objMail.HTMLBody = Request.Form("messaggio2") ' Messaggio2

    ' Invia l'email
    objMail.Send()

    Set objMail = Nothing

    Response.Write("Email inviata correttamente da " &_

    Request.Form("email") & " 

Le risponderemo al più presto!

Grazie.")

    else %>
    <form name="formail" method="post" action="?invia=true">
    <table border="1" align="center" cellpadding="3" cellspacing="1">
    <tr>
    <td bgcolor="<%=Tabella_Colore_Titolo%>">* Email</td>
    <td><input type="text" name="email" /></td>
    </tr>
    <tr>
    <td bgcolor="<%=Tabella_Colore_Titolo%>">* Oggetto</td>
    <td><input type="text" name="oggetto" value="oggetto" /></td>
    </tr>
    <tr>
    <td bgcolor="<%=Tabella_Colore_Titolo%>">* Messaggio</td>
    <td><textarea name="messaggio"></textarea></td>
    </tr>
    <tr>
    <td bgcolor="<%=Tabella_Colore_Titolo%>">* Messaggio2</td>
    <td><textarea name="messaggio2"></textarea></td>
    </tr>
    <tr>
    <td bgcolor="<%=Tabella_Colore_Titolo%>"> </td>
    <td> <input type="submit" value="invia" name="submit" /> </td>
    </tr>
    </table>
    </form>
<%else
    Response.Write("Devi compilare tutti i campi, non te lo dico più!")
end if
end if
%>

Roby

[mosquito70]

Lo puoi anche fare in Javascript...

Se ti serve facci sapere...

[Mems]

Originariamente inviato da mosquito70
Lo puoi anche fare in Javascript...

Se ti serve facci sapere...

E se l'utente disabilita i javascript?

[mosquito70]

Originariamente inviato da Mems
E se l'utente disabilita i javascript?

Gli ho detto di non farlo altrimenti lo uccido

Comunque il metodo che ho letto poco fa lo utilizzerò presto.

[Lino80]

grazie roby... mi da questo errore:


Microsoft VBScript compilation error '800a03f6'

Expected 'End'

/pagina.asp, line 258

else
^

<%else 
    Response.Write("Devi compilare tutti i campi, non te lo dico più!")
end if
end if
%>