Formulário misto

Question

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 scriptelTextAnexo();">-</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..........