Eu tenho um formulário básico que localiza e em seguida envia o arquivo.
Quando eu clico para enviar o arquivo abre uma janéla informando que a página não pode ser exibida, mostrando no final da página o seguinte erro:
HTTP 500 - erro interno do servidor
Internet Explorer
Bem não tenho nem idéia do que possa ser, por isso estou postando aqui o código da página responsável por enviar a foto...
UPLOAD2.ASP
<% ' On Error Resume Next, passa por cima de possíveis erros 'On Error Resume Next Dim objUpload, objUploadedFile Dim lstFiles, strPath, str1File Dim strNome, intItem, strMsg 'Cria uma instancia do objeto Upload e atribui a variável objUpload. Set objUpload = Server.CreateObject("Dundas.Upload.2") ' Seta a não necessidade de alteração de configurações no servidor. objUpload.UseVirtualDir = False 'Existe a variável UseUniqueNames, que recebe valor booleano. Estando TRUE '(default), ela vai anexar ao arquivo um número identificador. Estando FALSE, 'ela conserva o nome do arquivo original. objUpload.UseUniqueNames = False 'Deve ser utilizada antes do método 'SaveAs' utilizado logo abaixo objUpload.SaveToMemory 'Pega algumas variaveis importantes que estão presentes no form-html que 'chama esse script '(é fundamental que estas atribuições só sejam feitas depois de rodar o "SaveToMemory" strNome = objUpload.Form("Nome") intItem = objUpload.Form("selItems") 'Redireciona para o caminho físico onde serão guardados os docs. dependendo 'do módulo strPath = Server.MapPath("..")&"\fotos\"&strNome&"\" lstFiles = "" For Each objUploadedFile in objUpload.Files str1File = objUpload.GetFileName(objUploadedFile.OriginalPath) lstFiles = lstFiles & "<li>" & str1File & "<BR>" '' Acrescenta como prefixo ao arquivo a chave do item em questao 'entre chaves ' --- Trocamos o nome do arquivo --- objUploadedFile.SaveAs strPath & "{"&intItem&"}_" & str1File Next 'Limpa a instância criada na memória do servidor. Set objUpload = nothing ' Vericamos se existe algum erro no codigo acima If Err <> 0 Then ' Mensagem de erro response.write "<b>Erro no envio do arquivo</b>" Else response.write "Arquivo gravado com sucesso com a referencia " & intItem End If %>
Abaixo código do formulário. upload.asp
<html> <body> <form method="post" action="upload2.asp" enctype="multipart/form-data"> Arquivo: <input type="file" name="arquivo"> <input type="submit" value="Enviar"> </form> </body> </html>