none
Formulário misto RRS feed

  • Pergunta

  • Olá.

    Estou fazendo um sistema de cadastro, onde tenho dados e um upload no mesmo formulário...

    [code]<form name="Form1" method="POST" enctype="multipart/form-data" onSubmit="Add(); return false;">
       <div align="left"><strong></strong></div>
       <div align="left"><font color="#FF0000" size="1" face="Verdana, Arial, Helvetica, sans-serif">(*)
          Campos de preenchimento obrigat&oacute;rio</font></div>
       <table width="100%" border="1" cellpadding="0" cellspacing="0" bordercolor="#CCCCCC">
          <tr>
             <td><table width="100%" border="0" cellspacing="0" cellpadding="0">
                   <tr>
                      <td width="100" nowrap> <div align="right"><font color="#FF0000" size="1" face="Verdana, Arial, Helvetica, sans-serif">*</font><font size="2" face="Arial, Helvetica, sans-serif" color="#000066"><b>Cliente:</b></font></div></td>
                      <td><font face="Verdana, Arial, Helvetica, sans-serif" size="1">&nbsp;
                         <select name="TextCliente" class="borda" id="TextCliente" style="font-family: Arial; font-size: 12px; width:396px;">
                            <option value="">-= Selecione o Cliente =-</option>
                            <% For i = 0 To objClientes.Indice %>
                            <option value="<%=objClientes.ID(i)%>"><%=objClientes.Nome(i)%></option>
                            <%Next%>
                         </select>
                         </font></td>
                   </tr>
                   <tr>
                      <td nowrap> <div align="right"><font color="#FF0000" size="1" face="Verdana, Arial, Helvetica, sans-serif">*</font><strong><font color="#000066" size="2" face="Arial, Helvetica, sans-serif">Identifica&ccedil;&atilde;o</font></strong><font size="2" face="Arial, Helvetica, sans-serif" color="#000066"><b>:</b></font></div></td>
                      <td><font face="Verdana, Arial, Helvetica, sans-serif" size="1">&nbsp;
                         <input name="TextIdentificacao" type="text" class="Borda" id="TextIdentificacao" size="25" maxlength="20">
                         </font></td>
                   </tr>
                   <tr>
                      <td nowrap><div align="right"><font color="#FF0000" size="1" face="Verdana, Arial, Helvetica, sans-serif">*</font><strong><font color="#000066" size="2" face="Arial, Helvetica, sans-serif">Prefixo</font></strong><font size="2" face="Arial, Helvetica, sans-serif" color="#000066"><b>:</b></font></div></td>
                      <td><font face="Verdana, Arial, Helvetica, sans-serif" size="1">&nbsp;
                         <input name="TextPrefixo" type="text" class="Borda" id="TextPrefixo" size="25" maxlength="20">
                         </font></td>
                   </tr>
                   <tr id="Text_Anexos">
                      <td nowrap align="right"><b><font color="#000066" size="2" face="Arial">Anexo:</font></b></td>
                      <td>
                                <font face="Verdana" size="1">&nbsp; </font>
                                <input class="Borda" name="Text_Anexo1" id="_Text_Anexos" type="file" size="26" style="width:270px;">
                                <b><font color="#000066" size="2" face="Arial">Data Contrato:</font></b> <input class="Borda_D" name="Text_Data_Contrato1" id="_Text_Data_Contratos" type="text" OnFocus="SetarEvento(this,10,'N')" onKeyDown="FormataData2('_Text_Data_Contratos', event)" size="8" maxlength="10">
                                <a href="java script:addTextAnexo();">+</a> <a href="java scriptBig SmileelTextAnexo();">-</a>
                            </td>
                   </tr>
                </table></td>
          </tr>
       </table>
       <p align="center">
          <input class="botao" type=submit value="Gravar" name="BotIncluir">
          <input class="botao" type=button value="Voltar" name="BotVoltar" onClick="window.close();">
       </p>
    </form>[/code]

    Daí recupero eles:

    [code]xCliente                    = Upload.Form("TextCliente")
            xIdentificacao                = Upload.Form("TextIdentificacao")
            xPrefixo                    = Upload.Form("TextPrefixo")[/code]

    O problema, é que não consigo recuperar o upload...

    Tô usando freeASPUpload...

    [code]Cont = -1

            For Each fileItem In Upload.Files()
                Cont = Cont + 1
                ReDim Preserve xAnexo( Cont )
                ReDim Preserve xAnexo_Nome( Cont )
                ReDim Preserve xData_Contrato( Cont )
                xAnexo( Cont ) = fileItem.Path
                xAnexo_Nome( Cont ) = fileItem.FileName
                xData_Contrato( Cont ) = Upload.Form("Text_Data_Contrato" & Cont+1)
            Next

            'OK = objCopia_Contratos.incluirCopia_Contratos    (    xCliente, xIdentificacao, xPrefixo, xData, xID_Usuario_Inclusao, xData_Inclusao )
            OK = objCopia_Contratos.incluirCopia_Contratos    (    xCliente, xIdentificacao, xPrefixo, xID_Usuario_Inclusao, xData_Inclusao )

            If ( OK ) Then
                objCopia_Contratos_Anexo.incluirCopia_Contratos_Anexo objCopia_Contratos.ID, xAnexo, xAnexo_Nome, xData_Contrato, xID_Usuario_Inclusao, xData_Inclusao
            End If

            For Each fileItem In Upload.Files()
                Upload.DeleteFile ( fileItem.Path )
            Next[/code]


    Como faço?!

    Isso tá vindo nulo: xAnexo

    E aí está meu problema.

    Valeu..........
    quarta-feira, 19 de março de 2008 14:32