Navigazione

    Privacy - Termini e condizioni
    © 2020 Search On Media Group S.r.l.
    • Registrati
    • Accedi
    • CATEGORIES
    • Discussioni
    • Non letti
    • Recenti
    • Hashtags
    • Popolare
    • Utenti
    • Stream
    • Interest
    • Categories
    1. Home
    2. vincanto2013
    3. Post
    V

    vincanto2013

    @vincanto2013

    • Profilo
    • Chi segue 0
    • Da chi è seguito 0
    • Discussioni 1
    • Post 1
    • Migliore 0
    • Gruppi 0
    Iscrizione Ultimo Accesso
    Località Padova
    0
    Reputazione
    1
    Post
    0
    Visite al profilo
    0
    Da chi è seguito
    0
    Chi segue
    User Newbie

    Post creati da vincanto2013

    • Verifica Inserimenti

      Buongiorno a tutti, data la mia poca conoscenza, vorrei, per cortesia, un aiuto su di un form di inserimento dati che possa svolgersi in un'unica pagina commpreso verifiche su quello che viene digitato.
      In questo modo evito che in presenza di errori di digitazione ritornando indietro i dati non vengono persi.
      lo scritto il seguente:
      <body>
      <form action="02_prova_pag.asp" method="post">
      <%
      '##################################################################################################
      Dim nuova, errore
      nuova = Request.Form("nuova")
      errore = 0
      '##################################################################################################
      Dim rich_farm, rich_impo

      var_r_farm = Request.Form("rich_farm")
      var_r_impo = Request.Form("rich_impo")
      '##################################################################################################
      var_r_farm = split(var_r_farm, ",")
      var_r_impo = split(var_r_impo, ",")

      For i=0 TO 3 and UBound(var_r_farm) and UBound(var_r_impo)

      <div align="center">
      <table border="0" width="800" cellspacing="0" cellpadding="0">
      <tr>
      <td height="20">
      <%
      <%
      If (nuova <> "" And Len(var_r_farm(i)) =0) then
      Response.Write "ERRORE: VALORE NON INSERITO"
      errore = errore + 1

      elseIf (nuova <> "" And Len(var_r_impo(i)) =0) then
      Response.Write "ERRORE: E' UN DATO NUMEROCO"
      errore = errore + 1

      elseIf (nuova <> "" And IsNumeric(var_r_impo(i)) = False)) then
      Response.Write "ERRORE: E' UN DATO NUMEROCO"
      errore = errore + 1
      %>
      </td>
      </tr>
      </table>
      </div>
      <div align="center">
      <table border="0" width="800" cellspacing="0" cellpadding="0">
      <tr>
      <td width="270" height="20" bgcolor="<%= intSfondo %>"><input type="text" name="rich_farm" size="30" maxlength="30" tabindex="<%= i+1 %>" title="CODICE FARMACO" class="ins_testo" value="<%=var_r_farm(i)%>"></td>
      <td width="130" height="20" bgcolor="<%= intSfondo %>"><input type="text" name="rich_impo" size="10" maxlength="6" tabindex="<%= i+1 %>" title="IMPORTO FRAMACO" class="ins_testo" value="<%=var_r_impo(i)%>"></td>
      <td width="400" height="20"></td>
      </tr>
      <tr>
      <td height="5" colspan="3"></td>
      </tr>
      </table>
      </div>
      <%
      next
      %>
      <input type="submit" value="Invia" id="invia" />
      </form>

      Grato per il vostro aiuto:ciauz:

      postato in Coding
      V
      vincanto2013