inserimento in database

[Marco7303]

Salve... ho un problema su uno script che satvo cercando di modificare per far inserire più dati nel database.

ho due pagine una index.htm dove all'interno c'è un form per l'immissione dei dati:

<form method="post" action="iscrizione.asp">
		

<span class="Stile3">indirizzo e-mail </span>

		  

		  <input type="text" name="email">
	  </p>
		<table width="100%">
          <tr>
            <td><div align="center">azienda</div></td>
            <td><div align="center">referente</div></td>
            <td><div align="center">indirizzo</div></td>
            <td><div align="center">telefono</div></td>
          </tr>
          <tr>
            <td><input type="text" id="azienda"></td>
            <td><input type="text" id="referente"></td>
            <td><input type="text" id="indirizzo"></td>
            <td><input type="text" id="telefono"></td>
          </tr>
        </table>
		



		  

		  <input type="radio" name="azione" value="S" checked> 
		  Iscriviti
		  <input type="radio" name="azione" value="N"> 
		  Cancellati

		  

		  <input type="submit" value="invia">
		  

		  

	        </p>
	</form>

una volta compilato il form, si rimanda alla pagina iscrizione.asp:

<%
    var errore = 0;

    var email = new String(Request.Form("email"));
	var azienda = new String(Request.Form("azienda"));
	var referente = new String(Request.Form("referente"));
	var indirizzo = new String(Request.Form("indirizzo"));
	var telefono = new String(Request.Form("telefono"));
	var data = new String(Request.Form("data"));
   var azione = new String(Request.Form("azione"));

    var Controlla = /^([a-zA-Z0-9_\.\-])+\@(([a-zA-Z0-9\-]{2,})+\.)+([a-zA-Z0-9]{2,})+$/;

     var Cn = new ActiveXObject("ADODB.Connection");
  var Sc="dsn=mailing";   
    Cn.Open(Sc);

    var Ridondanza = Cn.Execute("SELECT * FROM utenti WHERE email LIKE '" + email + "'");

   if (azione == "S") {
       if (!Controlla.test(email)) {
           errore = 1;
      }
      if (!Ridondanza.EOF) {
           errore = 2;
      }

      if (errore == 1) {
          Response.Write("Inserisci un indirizzo email corretto");
          Cn.Close();
          Response.End;
      }
      if (errore == 2) {
          Response.Write("Sei già iscritto alla Mailing list");
          Cn.Close();
          Response.End;
      }

      var Rs = new ActiveXObject("ADODB.Recordset");
   
      Rs.Open("utenti",Cn,3,3);
         Rs.AddNew();
            Rs("email") = email;
			Rs("azienda") = azienda;	
			Rs("referente") = referente;
			Rs("indirizzo") = indirizzo;
			Rs("telefono") = telefono;
			Rs("data") = now();

         Rs.Update();
      Rs.Close();

      Response.Write("Iscrizione avvenuta con successo");
   }
   
   if (azione == "N") {
      if (Ridondanza.EOF) {
           errore = 3;
      }       

      if (errore == 3) {
          Response.Write("Indirizzo email inesistente: impossibile effettuare la cancellazione");
          Cn.Close();
          Response.End;
      }

      var Cancella = Cn.Execute("DELETE * FROM utenti WHERE email LIKE '" + email + "'");
  
      Response.Write("Cancellazione avvenuta con successo");
   }
   
   Cn.Close();
%>

Il problema è che viene scritto solamente l'indirizzo e-mail e gli altri campi no...

[Roby_72]

<input type="text" name="azienda">

Come giustamente hai fatto per l'email.

Roby

[Marco7303]

Grazie Roby.
Questa era una prova che stavo facendo, avevo anche provato con il name="azienda" però fa lo stesso... non scrive nulla, sempre e solo l'indirizzo e-mail

e anche la data now() quindi dovrebbe prendere la data attuale... il campo resta vuoto!

[Marco7303]

Niente... continua a non scrivere niente... ho effettuato anche altre prove...
chi mi aiuta, per favore?