CDOSYS com Anexo

[R.Rubin]

Olá! Me ajudem, por favor!

Quero criar um form onde deve haver um link para fazer upload de um arquivo e este arquivo depois é enviado junto com os dados de um form, via CDOSYS. Abaixo o código que tenho e que no final não funciona. Até o momento de clicar no botão "anexar", depois de selecionar o arquivo, funciona. Depois disso, vai para página erro :"This error (HTTP 500 Internal Server Error) means that the website you are visiting had a server problem which prevented the webpage from displaying."

Página "trabalheconosco.html" tem form que chama "envia_curriculo.asp". No campo de arquivo anexo, tem um link "selecionar arquivo" que leva para outra pag:

<input name="txt_anexo" type="text" id="txt_anexo" size="25" maxlength="25" value="<%=session("arquivo")%>">

<a href="up_anexos.html">Selecionar Arquivo</a></span></td>

Na pag. up_anexos.html exibe caixa de texto e btn de "browse..." para selecionar o arquivo:

<FORM METHOD="POST" ENCTYPE="multipart/form-data" ACTION="aspupload.asp">

<table border="0" width="100%" cellspacing="0" cellpadding="0">

<tr>

<td width="35%" rowspan="3">

</td>

<td width="30%">

<p align="justify" style="line-height: 100%"><font size="1" face="Arial" class="corpotab">SELECIONE O ARQUIVO PARA ENVIO NO FORMULÁRIO:</font></td>

<td width="35%" rowspan="3">

</td>

</tr>

<tr>

<td width="30%">

<p align="right">

<INPUT TYPE = file size=60 name="FILE1">

</td>

</tr>

<tr>

<td width="30%">

<p align="right"><INPUT name="btn_anexar" TYPE=SUBMIT id="btn_anexar" VALUE=" ANEXAR ">

</td>

</tr>

</table>

</FORM>

Finalmente, quando vai para aspuload.asp , o erro pág. 500 é exibido. Script do aspupload.asp:

<%

Set obj_Upload = Server.CreateObject("SoftArtisans.FileUp")

obj_Upload.Path = Server.MapPath("./Dados") 'local onde será gravado o arquivo

obj_Upload.Save

SaFileUp.Save

'Session("arquivo") = obj_Upload.ServerName

%>

<FONT SIZE="1" FACE="ARIAL">ARQUIVO ANEXADO

<%

Set FSO = CreateObject("scripting.FileSystemObject")

Set Folder = FSO.GetFolder("./Dados/")

Set Files = Folder.Files

%>

<%

For each objUploadedFile In Upload.Files

arquivo = objUploadedFile.ExtractFileName

response.Write(": " & objUploadedFile.ExtractFileName)

seq = seq + 1

Next

'criei uma session para armazenar o nome do arquivo'

session("arquivo") = arquivo

if session("arquivo") <> "" then

response.redirect "trabalheconoscobrasilog.html"

end if

%>

Me ajudem a corrigir, por favor, ou se tiver outra maneira mais simples, podem mandar tb!

Muuuito obrigada! (Preciso da resposts urgente!)

[bareta]

primeiro desative as mensagens de erro amigaveis de seu navegador e poste o erro que aparece.