Inserimento Box privacy in form mail

**Girogio** · 08-06-2007, 15:59

Ciao ragazzi!
Mi servirebbe un piccolo aiuto relativo al form della mia Mailing-list.
Vi spiego.
Il sito che sto sviluppando è per un ente di formazione (dove io lavoro) e mi sono reso conto che vado contro legge se nn utilizzo, unitamente al form dove chiedo l'inserimento email, un box con indicata la legge sulla privacy, da spuntare con una casella..ottenendo così l'autorizzazione al trattamento dei dati..
Come faccio a creare ciò???
Ancora meglio, come si fà a collegare la spunta della casella privacy con l'effettiva registrazione della email??(se io nn spunto la casella privacy, nn permetto l'inserimento email)
Spero di essermi spiegato..il codice del form email al momento è questo:

codice:

<form method="post" action="AddUser.asp" form onSubmit="return control(this);" name="form1">


Inserisci il tuo indirizzo email: <input type="text" name="email"></p>

<input type="button" value="Conferma" name="B1" /></p>
</form>

Grazie in anticipo.

**Roby_72** · 08-06-2007, 16:43

Per maggiore sicurezza il controllo devi farlo ANCHE lato server.

codice:

<form method="post" action="AddUser.asp" form onSubmit="return control(this);" name="form1">


Inserisci il tuo indirizzo email: <input type="text" name="email"></p>



Accetta privacy: <input type="checkbox" name="privacy" /></p>

<input type="button" value="Conferma" name="B1" /></p>
</form>

AddUser.asp

codice:

email = trim(request.form("email"))
checkbox = trim(request.form("checkbox"))

if checkbox &"[]" <> "[]" then
'ha accettato
'inserisci l'email nel db
else
'nop ha accettato
end if

Roby

**Girogio** · 08-06-2007, 20:07

Allora ragazzi aiutatemi perchè nn mi sto più trovando..

Questo è il codice del file per l'inserimento nel database di un nuovo indirizzo

codice:

DIM NewEmail
	  NewEmail = Request.Form("EMAIL")

	  Dim objRec
	  Set objRec = Server.CreateObject("ADODB.Recordset")
	  
	  sql="select * from Mailing where email = '"&NewEmail&"'"

	  objRec.Open sql, objConn, 3, 3
	  
	  if not objRec.eof then
	  	response.write("<div align='center'>Utente già iscritto!</div>")
		
		objRec.Close
	    Set objRec = Nothing
		
		objConn.Close
	    Set objConn = Nothing
		
		
		else
		
    
	'crea nuovo record
	  objRec.AddNew
	
   	  objRec("EMAIL")    = NewEMail
	
	  objRec.Update
	
	   
	'chiudo e distruggo recordset e connessione
	  objRec.Close
	  Set objRec = Nothing
	  
	  objConn.Close
	  Set objConn = Nothing

	
		response.write("<div align='center'>Nuovo utente inserito</div>
")
		response.write("<div align='center'>Benvenuto!</div>")

	end if
	%>

Poi nella mia default ho inserito tra <head></head> un collegamento esterno ad un file.js che controlla che l'indirizzo email scritto sia corretto (lato client)..l'ho messo esterno per problemi di validazione...

codice:

<script type="text/JavaScript" src="/Script/controllo.js"></script>

Infine ho il form
Il form

codice:

<form method="post" action="AddUser.asp" onsubmit="return controllo();" id="form1">


Inserisci il tuo indirizzo email: <input type="text" id="email" name="email"></p>



Accetta privacy: <input type="checkbox" name="privacy" /></p>

<input type="button" value="Conferma" name="B1" /></p>
</form>

Ah scordavo nel file per l'inserimento email manca l'ultimo suggerimento di codice datomi da Roby..

Il mio problema è che nn capisco come fare nel mio caso a mettere i controlli lato server...ho cercato..si ma nn riesco ad arrivarci..perdonate la mia ignoranza, vorrei però tanto imparare... anche se sono un biologo marino e nn un webmaster..
Scusate per lo spazio occupato (come al solito)
Grazie
Giorgio!

**Roby_72** · 08-06-2007, 20:54

codice:

<%DIM NewEmail
NewEmail = Request.Form("EMAIL")
privacy = Request.Form("privacy")

if privacy &"[]" <> "[]" then
    'Apri connesssione!!!!!!!!!!!!!!!!!!!!!!
    Dim objRec
    Set objRec = Server.CreateObject("ADODB.Recordset")

    sql="select * from Mailing where email = '"&NewEmail&"'"

    objRec.Open sql, objConn, 3, 3

    if not objRec.eof then
        response.write("<div align='center'>Utente già iscritto!</div>")
    else
        'crea nuovo record
        objRec.AddNew
        objRec("EMAIL")    = NewEMail
        objRec.Update

	    response.write("<div align='center'>Nuovo utente inserito</div>
")
	    response.write("<div align='center'>Benvenuto!</div>")
    end if
    'chiudo e distruggo recordset e connessione
    objRec.Close
    Set objRec = Nothing

    objConn.Close
    Set objConn = Nothing
else
    response.write("<div align='center'>consenso al trattamento dati non accettato</div>")
end if%>

**Girogio** · 08-06-2007, 23:38

Grazie Roby come al solito mi sei di grandissimo aiuto...così dovrei risolvere giusto?

**Girogio** · 08-06-2007, 23:48

Roby ultima cosa; ho aggiunto questa funzione...

codice:

Function IsMail(sEmail)
	Dim objRegExp
	Set objRegExp = New RegExp 
	objRegExp.Pattern = "^[a-z._-]+\@[a-z._-]+\.[a-z]{2,4}$" 
	objRegExp.IgnoreCase = True 
	IsMail = objRegExp.Test(sEmail)
End Function

al codice da te corretto che ne pensi??
Ciao notte
Giorgio!

**Roby_72** · 09-06-2007, 12:29

Doveroso.

Roby

**Girogio** · 09-06-2007, 12:38

Ciao Magico!
E grazie ancora per il costante aiuto che mi dai.

Giorgio!

**Girogio** · 21-06-2007, 18:17

Ciao a tutti ragazzi..
Chi mi potremme aiutare dicendomi cosa devo modificare per fare in modo che io tramite il mio form inserisca il nome, cognome, città etc...del visitatore??
Ho provato inserendo le request.form a secondo del input text ossia nome, cognome etc
e poi inserendo ancora gli objRec..(nome) ..cognome etc..
ma nn riesco a memorizzare nel mio DB le informazioni ma solo le mail...
il problema sarà forse nella sql???
Vorrei una dritta anche perchè sto cercando ma nn sono riuscito a trovare ciò che fà a caso mio...
riporto il codice:

codice:

<%DIM NewEmail
NewEmail = Request.Form("EMAIL")
privacy = Request.Form("privacy")

if privacy &"[]" <> "[]" then
    'Apri connesssione!!!!!!!!!!!!!!!!!!!!!!
    Dim objRec
    Set objRec = Server.CreateObject("ADODB.Recordset")

    sql="select * from Mailing where email = '"&NewEmail&"'"

    objRec.Open sql, objConn, 3, 3

    if not objRec.eof then
        response.write("<div align='center'>Utente già iscritto!</div>")
    else
        'crea nuovo record
        objRec.AddNew
        objRec("EMAIL")    = NewEMail
        objRec.Update

	    response.write("<div align='center'>Nuovo utente inserito</div>
")
	    response.write("<div align='center'>Benvenuto!</div>")
    end if
    'chiudo e distruggo recordset e connessione
    objRec.Close
    Set objRec = Nothing

    objConn.Close
    Set objConn = Nothing
else
    response.write("<div align='center'>consenso al trattamento dati non accettato</div>")
end if%>

Ciao e grazie a tt in anticipo..

P.S. Ciao 'mpari Mems e Roby

**Roby_72** · 21-06-2007, 18:20

objRec("EMAIL") = NewEMail

Qui carichi l'email... aggiungi il resto.

Roby

Discussione: Inserimento Box privacy in form mail

Strumenti discussione

Ricerca discussione

Visualizza

Inserimento Box privacy in form mail

Permessi di invio