function per controllo valore campo che non va

[andy_s]

chiaro per il titolo. cerchero di fare più attenzione.

ecco il form

<FORM ACTION="<%
    IF action = "add" THEN
        Response.Write "admin_galleryUpdate.asp?action=addRS"
    ELSEIF action = "update" THEN
        Response.Write "admin_galleryUpdate.asp?action=updateRS&PrimKey=" & RS("ID")
    END IF
        %>" onSubmit="javascript:return checkRequired();" METHOD="POST" id="frmPicture" name="frmPicture">
          <TABLE width="100%" border="1" bordercolor="#FFE4B5" class="admintablemain" cellspacing="0" cellpadding="0">
            <TR valign="middle" class="admintableheader">
              <TD colspan="2" height="30" class="admintableheader"><font size="2">[b]
                <input type="Submit" value="<%
           IF UpdateFlag = true THEN
               Response.Write "Aggiorna"
           ELSE
               Response.Write "Aggiungo evento"
           END IF
           %>" id="Submit" name="Submit">
              [/b]</font></TD>
            </TR>
            <TR class="admintablemain">
              <TD width="246" height="15" valign="top" class="Content"> Titolo:</TD>
              <TD width="697" height="30" valign="top"><INPUT TYPE="text" NAME="PhotoLabel" value="<%IF UpdateFlag = true THEN Response.Write RS("PhotoLabel")%>" size="50">
              

              
</TD>
            </TR>

            <TR class="admintablemain">
              <TD height="30" valign="top" nowrap><span class="Content">Nome immagine:</span></TD>
          <TD valign="top" height="15"><SELECT NAME="picURL">
                  <%    IF UpdateFlag = True THEN
                Response.Write "<OPTION Selected>" & RS("picURL") & "</OPTION>" & vbCR
            END IF
            set dir=server.createobject("scripting.filesystemobject")
            set myfiles=dir.getfolder(server.mappath(ImageFolderName & "/large/"))
            for each filefound in myfiles.files
                response.write "<OPTION>" & filefound.name & "</OPTION>" & vbCR
            next
        %>
                </SELECT>              </TD>
            </TR>
            <TR class="admintablemain">
              <TD valign="top" height="95"><span class="Content">Commento: </span></TD>
              <TD height="95" valign="top"><TEXTAREA rows="8" name="Comments" cols="65"><%IF UpdateFlag = true THEN Response.Write RS("Comments")%></TEXTAREA>
    

    
  </TD>
            </TR>
            <TR align="center" class="admintablemain">
              <TD height="15" colspan="2" valign="top"><%
           IF UpdateFlag = true THEN
            with response
                   .Write "<FONT size=""2"">Immagine</FONT>
"
                .Write "[img][/img]
"
               end with        
           END IF
           %>
                 </TD>
            </TR>
          </TABLE>
      </FORM>