Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

kaamus

[Resolvido] erro no upload

Por , em ASP Clássico

Recommended Posts

kaamus    0

kaamus
Postado

Olá pessoal!

 

vejam só o erro:

 

"Persits.Upload.1 error '800a0005'

 

The system cannot find the path specified.

 

/manage/auxiliar/upload.asp, line 17 "

 

 

minha linha 17

 

linha 15 - >> Set objUpload = Server.CreateObject("Persits.Upload.1")

		linha 17->>>	objUpload.Save Server.MapPath("/imagens/" & stPasta)

estranho que ele funciona certinho em outras aplicações

se alguém puder ajudar, manjo muito pouco de asp =/

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

este caminho esta correto?

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

antes da linah do erro mende escrever na tela o valro de

 

Server.MapPath("/imagens/" & stPasta)

 

e poste aqui o resultado

Compartilhar este post

Link para o post
Compartilhar em outros sites

kaamus    0

kaamus
Postado

cara que bacana.. tentei usar isso mais fiz na linha abaixo ai não funcionou

 

Response object error 'ASP 0185 : 80020003'

 

Missing Default Property

 

/manage/auxiliar/upload.asp, line 0

 

A default property was not found for the object.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

como colocou a linha de codigo que pedi?

Compartilhar este post

Link para o post
Compartilhar em outros sites

kaamus    0

kaamus
Postado

aqui código, talvez ajude vcs porque eu ele não ajuda=/ :

 

CODE

<%

Dim sHTML, sMsg, sNomeImagem, stCampo, stForm, stCaminho, stPasta

Dim objUpload

 

Sub subADD(ByRef sString, ByVal sTexto)

sString = sString & vbCrLf & sTexto

End Sub

 

stCampo = Request("stCampo")

stForm = Request("stForm")

stPasta = Request("stPasta")

 

If Request.ServerVariables("CONTENT_LENGTH") > 0 Then

 

Set objUpload = Server.CreateObject("Persits.Upload.1")

response.Write(objUpload)

objUpload.Save Server.MapPath("/imagens/" & stPasta)

 

For each objFile In objUpload.Files

 

If lCase(Right(cstr(objFile.FileName),3)) = "jpg" Or Right(cstr(objFile.FileName),3) = "gif" Or Right(cstr(objFile.FileName),3) = "pdf" Or Right(cstr(objFile.FileName),3) = "png" Or Right(cstr(objFile.FileName),3) = "swf" Or Right(cstr(objFile.FileName),3) = "flv" Or Right(cstr(objFile.FileName),4) = "html" Or Right(cstr(objFile.FileName),3) = "htm" Then

 

sNomeImagem = objFile.FileName

 

Response.Write "<script> parent.opener." & stForm & "." & stCampo & ".value='" & sNomeImagem & "'; </script>"

sMsg = "<font face='arial' color='darkred' size='2'><b>O Upload foi executado com sucesso!</b></font>"

Else

objFile.Delete

sMsg = "<font face='arial' color='darkred' size='2'><b>O Upload só é permitido para arquivos do tipo JPG, GIF, PDF, PNG, SWF, HTML E HTM.</b></font>"

End If

 

Next

 

Set objUpload = nothing

End If

subADD sHTML, "<HTML>"

subADD sHTML, "<body bgcolor=#EFEFF1>"

subADD sHTML, "<form name='Formulario' method='post' ENCTYPE='multipart/form-data'>"

subADD sHTML, "<Center>"

subADD sHTML, "<table width='86%' border='1' cellspacing='2' cellpadding='2' bordercolor='#CCCCCC' align='center'>"

subADD sHTML, " <tr bgcolor='#333333'>"

subADD sHTML, " <Td colspan=4 align='center' height='30'><font face='arial' color='#FFFFFF' size='2'><b>Envio de Arquivos</b></font></td>"

subADD sHTML, " </tr>"

subADD sHTML, " <tr>"

subADD sHTML, " <td colspan='4' height=10 align=center>" & sMsg & "</td>"

subADD sHTML, " </tr>"

subADD sHTML, " <tr bgcolor='#CCCCCC'>"

subADD sHTML, " <Td><font face='arial' color='#333333' size='2'><b>Local do arquivo:</b></font></td>"

subADD sHTML, " <Td colspan=2><INPUT TYPE='file' NAME='stImagem'></td>"

subADD sHTML, " </tr>"

subADD sHTML, " <tr bgcolor='#CCCCCC'>"

subADD sHTML, " <Td colspan=3> </td>"

subADD sHTML, " </tr>"

subADD sHTML, " <Tr bgcolor='#CCCCCC' height='30'>"

subADD sHTML, " <td colspan=4 align='center'>"

subADD sHTML, " <input type='submit' name='enviar' value='Enviar'>"

subADD sHTML, " <input type='button' value='Fechar' onClick='parent.close();'>"

subADD sHTML, " </td>"

subADD sHTML, " </tr>"

subADD sHTML, "</table>"

subADD sHTML, "</center>"

subADD sHTML, "</form>"

subADD sHTML, "</BODY>"

subADD sHTML, "</HTML>"

 

response.write sHTML

%>

 

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

nao foi isso que pedi

 

response.Write(objUpload)

pedi isso

 

response.Write(Server.MapPath("/imagens/" & stPasta))

troque

Compartilhar este post

Link para o post
Compartilhar em outros sites

kaamus    0

kaamus
Postado

cara foi!!!

 

descobri que ele joga em outra pasta dentro que chama galeria!!!!

 

vlw mesmo, muito obrigada...

não manjo de asp =/

 

se você ou alguém puder indicar uma boa apostila eu agradeceria ;)

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

Entao essa é a vantagem de mandar escrever os valores pois fica mais facil ver o problema

 

Que bom qeu resolveu

 

Abraços

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito