Problemas com upload de arquivos

[natalia 0]

Este é o meu código, ele funciona qdo faço upload de arquivos .doc, .xls, mas pdf ele não faz. Dá essa msg: File writing error. O que pode ser? <!--#include file="_padrao.asp" --><% Server.ScriptTimeout = 9000 Call Open_cn Response.Buffer = true on error resume next set Upload = server.CreateObject("Dundas.Upload.2") Upload.MaxFileSize = 1048576 Upload.UseUniqueNames = false Upload.SaveToMemory Caminho = "e:\home\sites\web\SiteTeste\arquivo\subcategoria\" sbcCodigo = Upload.Form("sbcCodigo") notCodigo = Upload.Form("notCodigo") txtCodigo = Upload.Form("txtCodigo") For Each UploadedFile in Upload.Files NomeArquivo = Upload.GetFileName(UploadedFile.OriginalPath) UploadedFile.SaveAs Caminho & NomeArquivo sqlIns = " INSERT INTO Arquivo ( " &_ " sbcCodigo, " &_ " notCodigo, " &_ " txtCodigo, " &_ " arqNome) " &_ " VALUES (" &_ " "& validateNumber(sbcCodigo) &", " &_ " "& validateNumber(notCodigo) &", " &_ " "& validateNumber(txtCodigo) &", " &_ " '"& NomeArquivo &"') " Conexao.Execute(sqlIns) Next If err.number <> 0 Then Response.Write "OS DADOS NÃO PODEM SER ENVIADOS." & err.Description Else strMessage = "DADOS ENVIADOS COM SUCESSO." End If Set Upload = Nothing Call Close_cn %>

[CassianoVix 0]

Este é o meu código, ele funciona qdo faço upload de arquivos .doc, .xls, mas pdf ele não faz. Dá essa msg: File writing error. O que pode ser? <!--#include file="_padrao.asp" --><% Server.ScriptTimeout = 9000 Call Open_cn Response.Buffer = true on error resume next set Upload = server.CreateObject("Dundas.Upload.2") Upload.MaxFileSize = 1048576 Upload.UseUniqueNames = false Upload.SaveToMemory Caminho = "e:\home\sites\web\SiteTeste\arquivo\subcategoria\" sbcCodigo = Upload.Form("sbcCodigo") notCodigo = Upload.Form("notCodigo") txtCodigo = Upload.Form("txtCodigo") For Each UploadedFile in Upload.Files NomeArquivo = Upload.GetFileName(UploadedFile.OriginalPath) UploadedFile.SaveAs Caminho & NomeArquivo sqlIns = " INSERT INTO Arquivo ( " &_ " sbcCodigo, " &_ " notCodigo, " &_ " txtCodigo, " &_ " arqNome) " &_ " VALUES (" &_ " "& validateNumber(sbcCodigo) &", " &_ " "& validateNumber(notCodigo) &", " &_ " "& validateNumber(txtCodigo) &", " &_ " '"& NomeArquivo &"') " Conexao.Execute(sqlIns) Next If err.number <> 0 Then Response.Write "OS DADOS NÃO PODEM SER ENVIADOS." & err.Description Else strMessage = "DADOS ENVIADOS COM SUCESSO." End If Set Upload = Nothing Call Close_cn %>

Estranho.. deveria funcionar para qualquer tipo...Seu arquivo PDF está dentro do tamanho limitado no seu código? Menos de 10 Mb?

[natalia 0]

Está dentro do tamanho sim.