Ver Mensaje Individual
  #7 (permalink)  
Antiguo 20/09/2007, 08:28
Avatar de engonga
engonga
Usuario no validado
 
Fecha de Ingreso: marzo-2002
Ubicación: Buenos Aires
Mensajes: 1.300
Antigüedad: 23 años, 1 mes
Puntos: 8
Re: envio de formulario complejo

si te fijas en los imputs utilizo request.form() ya que con el validador de campos si falla algun campo me pinta los campos que ya estan escritos

el codigo del validador de campos

Código HTML:
Function ValidateField(sFieldvalue, sFieldtype)
 ValidField = true
 Select Case LCase(sFieldtype)
  Case "nom"
  If Len(sFieldvalue) < 2 Then ValidField = False  
  Case "cognoms"
  If Len(sFieldvalue) < 2 Then ValidField = False
  Case "horari"
  If Len(sFieldvalue) = 0 Then ValidField = False
  Case "tel_1"
  If Len(sFieldvalue) < 8 Then ValidField = False
  Case "adreca"
  If Len(sFieldvalue) < 2 Then ValidField = False
  Case "poblacio"
  If Len(sFieldvalue) < 3 Then ValidField = False
  Case "provincia"
  If Len(sFieldvalue) < 3 Then ValidField = False
  Case "codi_post"
  If Len(sFieldvalue) < 5 Then ValidField = False
  
  Case "mail"
   If Len(sFieldvalue) < 5 Then
    ValidField = False
   Else
    If InStr(1, sFieldvalue, "@", 1) < 2 Then
     ValidField = False
    Else
     If InStr(1, sFieldvalue, ".", 1) < 4 Then
      ValidField = False
     End If
    End If
   End If  
  Case "else"
   ValidField = False
 End Select
ValidateField = ValidField
End Function

y en el final de la pagina hay la otra parte del validador

Código HTML:
 <%Set dictFields = Server.CreateObject("Scripting.Dictionary")
For Each Field in Request.Form
If ValidateField(Request.Form(Field), Field) = False Then
dictFields.Add LCase(Field), true
End If
Next
If Request.Form.Count <> 0 And dictFields.Count  = 0 Then
%>
          <br>
           <br>
           <br>
           <br>
           <br>
           <br>
           <br>
           <br><br />
<div align="center">
           <span class="text_titol_camp"><b>Gr&agrave;cies<br>
             </b>               Aviat ens posarem amb contacte<br />
           [ <a href="#" class="contentstyle2" onclick="javascript:window.close()">Tanca la finestra</a> ]             </span>
             <%
Call guarda
Else
ShowForm
End If
%>