Controllo di un FORM in ASP

Onde evitare spiacevoli errori durante la memorizzazione di dati all'interno di un database collegati a campi vuoti, o a campi numerici occorre controllarne sistematicamente il contenuto in modo da avvertire l'utente e permettergli di completare la digitazione.

Come per tutti i problemi in ASP, l'operazione più delicata di tutto il procedimento è proprio la definizione del database database.mdb e delle tabelle/campi necessari allo scopo.

La prima tabella "clienti" permette di monitorare l'utente e le caratteristiche del suo PC attraverso le variabili di sistema:

            
Modulo per la richiesta dati
       
        
           
Sicurezza
       E-mail (ID) *
      Password * 
       Verifica Password *
           Quesito personale
      Risposta
    
Dati azienda/personali
      Ditta
      Cognome *
      Nome *
       * Partita IVA
       * Codice Fiscale
       * Indirizzo
       * CAP
       * Città?
       * Provincia (sigla)
       * Telefono
       Fax
      Sito internet
      
Modalita di pagamento
       Scegli pagamento... Bonifico bancario Bonifico bancario Conto corrente postale Conto corrente postale Contrassegno Contrassegno      

              
   
   

  

  Quindi l'invio dei dati avviene allo stesso documento modulo.asp 
   

    

  assieme al campo nascosto tipo.

  Dopo aver visto la subroutine che si occupa della visualizzazione del form vediamo la subroutine richiedi_dati che si occupa appunto di di estrarre le informazioni dal database.

  
  Sub richiedi_dati    email=request("email")    chiave=request("chiave")    chiavebis=request("chiavebis")    quesito=request("quesito")    risposta=request("risposta")    nome=request("nome")    cognome=request("cognome")    ditta=request("ditta")    partitaiva=request("partitaiva")    codicefiscale=request("codicefiscale")    indirizzo=request("indirizzo")    cap=request("cap")    citta=request("citta")    provincia=request("provincia")    telefono=request("telefono")    fax=request("fax")    internet=request("internet")    modalita=request("modalita")    End sub


  Quindi il cuore vero e proprio della validazione:

  
  Sub controlla_modulo    avviso=""    if email="" or instr(email,"@")=0 then      avviso="email non inserite o non valida!
"    end if    if chiave<>chiavebis or chiave="" or chiavebis="" then      avviso=avviso & "password non inserite o errate!
"    end if    if quesito="" or risposta="" then      avviso=avviso &"rispondi alla domanda per ricevere la password
"    end if       if nome="" or cognome="" or indirizzo="" then      avviso=avviso &"completare i dati personali
"    end if     if cap="" or citta="" or provincia="" then      avviso=avviso &"completare i dati personali
"    end if     if telefono="" then      avviso=avviso &"manca il numero di telefono
"    end if     if modalita="" then      avviso=avviso &"scegli la modalità? di pagamento!
"    end if     if ditta<>"" and partitaiva="" then      avviso=avviso & "manca la partita iva dell'Azienda
"    end if    if codicefiscale="" and partitaiva="" then      avviso=avviso & "inserisci il codice fiscale o la partita iva
"    end if 


  Per ogni elemento del modulo si provvede a fare un controllo se non è vuoto e se è corretto, come nell'esempio della posta elettronica.

I dati facoltativi come: fax ed  internet non vengono controllati. 

   La variabile avviso all'inizio è vuota. Se qualche controllo non risulta verificato, la variabile avviso verrà? riempita con un messaggio.

  
 if avviso="" then      call inserisci_cliente()    else      call modulo_cliente()    end if   End sub


  Il controllo finale avviene proprio sulla variabile avviso che se è vuota attiva la subroutine inserisci_cliente() altrimenti ri-visualizza i dati all'interno del modulo (call modulo_cliente()).

  Il controllo finale avviene proprio sulla variabile avviso che se è vuota attiva la subroutine inserisci_cliente() altrimenti ri-visualizza i dati all'interno del modulo (call modulo_cliente()), vediamome le caratteristiche:  

  
  Sub inserisci_cliente()    dim DBase 'nome del database da aprire e percorso    DBase=server.mapPath("database.mdb")    dim Conn 'tipo di connessione    Set Conn=Server.Createobject("ADODB.Connection")      dim DSNtemp 'apre la connessione con un database di tipo Access    DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & DBase    Conn.Open DSNtemp       SQLstmt= "INSERT INTO clienti (email,chiave,quesito,risposta,ditta,cognome,nome,partitaiva,codicefiscale,indirizzo,cap,citta,provincia,telefono,fax,internet)"    SQLstmt= SQLstmt & " VALUES ("    SQLstmt= SQLstmt & "'" & email & "',"    SQLstmt= SQLstmt & "'" & chiave & "',"    SQLstmt= SQLstmt & "'" & quesito & "',"    SQLstmt= SQLstmt & "'" & risposta & "',"    SQLstmt= SQLstmt & "'" & ditta & "',"    SQLstmt= SQLstmt & "'" & cognome & "',"    SQLstmt= SQLstmt & "'" & nome & "',"    SQLstmt= SQLstmt & "'" & partitaiva & "',"    SQLstmt= SQLstmt & "'" & codicefiscale & "',"    SQLstmt= SQLstmt & "'" & indirizzo & "',"    SQLstmt= SQLstmt & "'" & cap & "',"    SQLstmt= SQLstmt & "'" & citta & "',"    SQLstmt= SQLstmt & "'" & provincia & "',"    SQLstmt= SQLstmt & "'" & telefono & "',"    SQLstmt= SQLstmt & "'" & fax & "',"    SQLstmt= SQLstmt & "'" & internet & "')"    set rs= conn.execute(SQLstmt)        Conn.close    set Rs= nothing    set Conn= nothing    response.write "Inserimento completato correttamente"  End Sub  %>


  Si tratta difatti della classica operazione di apertura e di inserimento dei dati nel database.