controllo variabile prima di inviare form

**dado4u** · 15-07-2006, 17:36

salve a tutti.
allora il mio problema è il seguente; Sto tentando di far funzionare un sistema CAPTCHA per il controllo antispam del mio sito.
questo è il codice della form:

codice:

<form action="process_form.asp" method="post" name="form1" >
            <table width="349" border="0">
              <tr><td>Nome</td>
                <td><input name="Nome" type="text" id="Nome5"></td>
              </tr>
              <tr>
                <td>email</td>
                <td><input name="email" type="text" id="email5"></td>
                <td>Messaggio</td>
                <td><textarea name="messaggio" id="textarea4"></textarea></td>
              </tr>
              <tr>
                <td></td>
                <td>
		</td>
              </tr>
            </table>
            <div align="center">

                <input name="Submit" type="submit" class="menu_txt" value="Invia">
                <input name="Reimposta" type="reset" class="menu_txt" id="Reimposta" value="Reimposta">
                

            </div>
          </form>

Quindi in questa form ci sono solo nome,email, messaggio e il CAPTCHA form. Questo form viene rimandato a questa pagina:

codice:

<%@LANGUAGE="VBSCRIPT" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<body> 
             
     
<%
'Above we include the file that checks to see if the security code is correct

'The variable 'blnCAPTCHAcodeCorrect' will be set to true if the security code is entered correctly

If blnCAPTCHAcodeCorrect Then 
	
		Response.Redirect "modulowebmaster.asp"
Else

	Response.Redirect "webmaster.asp"
End If
              %>
</body>
</html>

qui si controlla la variabile del CAPTCHA se ha valore corretto viene rimandata ad una pagina che prepara l'email da mandarmi, sotto il codice:

codice:

DIM corpoMessaggio, numeroCampi, invioA, invioDa, nomeDominio, indirizzoIp, modulo, browserSistemaOperativo

	'* voce da modificare con il proprio indirizzo email
	
invioA =  "miaemail@email.com"

	'* voce da modificare con un indirizzo email che funga da mittente: 
	'* in caso di errore riceverete notifica a questo indirizzo un MAILER-DAEMON
	'* dato che cdosys supporta questa notifica
		
invioDa =  "email@email.com"

'------------fine modifiche necessarie------------------

nomeDominio 				= Request.ServerVariables("HTTP_HOST")
indirizzoIp					= Request.ServerVariables("REMOTE_ADDR") 
url							= Request.ServerVariables("HTTP_URL")
browserSistemaOperativo		= Request.ServerVariables("HTTP_USER_AGENT")

	'*rilevo i campi del form
	
FOR numeroCampi = 1 TO (Request.Form.Count() - 1)
   IF NOT Request.Form(numeroCampi) = "" THEN
      corpoMessaggio = corpoMessaggio & vbCrLf & Request.Form.Key(numeroCampi) & " = " & Trim(Request.Form(numeroCampi))
   END IF
NEXT

	'* 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 = session("email")
   .Sender = invioDa
   .Subject = "Contatto dal dominio " & nomeDominio
   .Send
End With
%> 
<script>
document.location.replace('graziewebmaster.asp');
</script>

mentre se la variabile non ha valore corretto, viene riproposta la pagina del form.

Il problema è che le email che mi arrivano sono vuote.....

Ho provato a creare le variabili sessione, nome, email,messaggio, ma nell'email che mi arriva, leggo solo l'email.
Come faccio a trascinarmi le informazioni della form fino all'ultima pagina?

Grazie

**Roby_72** · 15-07-2006, 18:16

Hai messo in sessione solo l'email... metti anche le altre variabili.

Roby

**dado4u** · 15-07-2006, 18:22

Ma l'ultimo codice che o postato mi crea i vari campi senza bisogno di metterli. Metto session(email) solo perchè lì serve.
Uso quell'ultimo file ( preso dai servizi aruba) in un'altro contesto,e lì mi funziona benissimo senza richiamarmi le variabili...

**Roby_72** · 15-07-2006, 18:26

Quando controlli il CAPCHE e rimandi a questa pagina Response.Redirect "modulowebmaster.asp"
non passi i valori del form e quindi quando spedisci l'email non ci sono...

Roby

**dado4u** · 15-07-2006, 18:38

Ho modificato così:

codice:

If blnCAPTCHAcodeCorrect Then 

		session("Nome")=Request.form("nome")
		session("Email")=Request.form("email")
		session("Messaggio")=Request.form("messaggio")

		Response.Redirect "modulowebmaster.asp"
Else

	Response.Redirect "webmaster.asp"
End If

ma non funziona lo stesso....

**Roby_72** · 15-07-2006, 18:39

Ma le session le hai poi inserite nell'email?
Fermo restando che quelle info nella tua email non ci sono proprio...

Roby

Discussione: controllo variabile prima di inviare form

Strumenti discussione

Ricerca discussione

Visualizza

controllo variabile prima di inviare form

Permessi di invio