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>
