UPDATE salvando no servidor

[filipefurriel 0]

Galera, cosegui aqui no forum um sistem pequeno de update, onde o include é um arquivo upload.asp, e logo abaixo o arquivo cadastrar_download.asp...segue estrutura do mesmo. Já pedi para o pessal do servidor configurar as pastas para poder executar, ler e etc...para não dar problema, como eles já fizeram a configuração acho que o problema é o caminho que me enviaram absouto: D:\domains\fmnovotempo.com.br\httpdocs\imagens\, relativo: httpdocs/imagens

 

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<%Server.ScriptTimeout = 7200%>


<!--#include file="upload.asp"-->

<% if (session("validalogin")<>true)then
response.Redirect("login_ilegal.asp")
end If
response.Write(vlogin)



'Lê o formulário
upload_ReadRequest
	
'Obtém nome e email
nome=uRequest("nome")
email=uRequest("email")
vdata=uRequest("data")
vdata2=uRequest("data2")


Dim Fso	
Set Fso = CreateObject("scripting.filesystemobject")
arq = Fso.GetBaseName(imagem1)
arq2 = Fso.GetExtensionName(imagem1)
arq3 = ((arq)&"."&(arq2))


'tamanho
Set arq4 = Fso.GetFile(imagem1)
arq5 = arq4.Size
arq6=(((arq5)/1000)&" "&"bytes")
imagemxx=("D:\domains\fmnovotempo.com.br\httpdocs\imagens\"&(arq3))

	
'Salva o arquivo
upload_SalvaArquivo "imagem", "D:\domains\fmnovotempo.com.br\httpdocs\imagens", (arq3), "jpg,doc,txt,rtf,pdf,cdr"

%>
<!--#include file="css.txt"-->
<!--#include file="bd.asp"-->
<%	
	set conexao= Server.CreateObject("ADODB.connection")
	conexao.open ConString
	set rsdownload= Server.CreateObject("ADODB.recordset")
	rsdownload.open("insert into tab_download (nome,titulo,descricao,data,data2,tamanho,extensao,caminho)values('"& arq3 &"','"& nome &"','"& email &"','"& vdata &"','"& vdata2 &"','"& arq6 &"','"& arq2 &"','"& imagemxx &"')"),conexao

set rsdownload=nothing
	conexao.Close
	set conexao=nothing

	%>

[Vinicius Ianni 189]

Se o erro que dá é relativo ao caminho da pasta, use o Server.Mappatch("./imagens") por exemplo, deve funcionar.

Se não for isso, melhor mostrar qual o erro e a linha que o erro aponta.

[filipefurriel 0]

ele responde iso:

 

Internal Server Error

The server encountered an internal error or misconfiguration and was unable to complete your request.

Please contact the server administrator to inform of the time the error occurred and of anything you might have done that may have caused the error.

 

More information about this error may be available in the server error log.

 

 

 

--------------------------------------------------------------------------------

 

Web Server at fmnovotempo.com.br

[Vinicius Ianni 189]

desabilita as mensagens de erro amigaveis do navegador

[filipefurriel 0]

já esta desabilitado na seção de avançados, só que aparece isso aih mesmo, tipo erro no servidor...acredito que seja o caminho, sei lah, o que acha?

[augustoclaro 2]

se aparece isso, então não está configurado. Configure para enviar erros ao navegador e nos envie o erro. Se você acha que é erro de pasta, use como o Vinicius Ianni sugeriu.

[xanburzum 169]

ele gera algum número de erro, se sim poste o número e linha do code

[Amaral 0]

Se estivesse configurado pra não exibir essas mensagens amigáveis ele exibiria a linha em que o erro se encontra... Verifique se você realmente desabilitou

[filipefurriel 0]

esta dando problema na linha de getfile isso ele informa que não encontra o arquivo... vejam:

 

Microsoft VBScript runtime error '800a0035'

 

File not found

 

/cadastrar_download.asp, line 43

 

que no caso é o script: arq4 = Fso.GetFile(imagem1)

 

 

sobre a linha de código esta aqui...

 

 

<!--#include file="upload.asp"-->

'Lê o formulário

upload_ReadRequest

 

'Obtém nome e email

nome=uRequest("nome")

email=uRequest("email")

vdata=uRequest("data")

vdata2=uRequest("data2")

 

'Obtém o nome do arquivo

 

imagem1=UploadRequest.Item("imagem").Item("FileName")

Dim Fso

Set Fso = CreateObject("scripting.filesystemobject")

arq = Fso.GetBaseName(imagem1)

arq2 = Fso.GetExtensionName(imagem1)

arq3 = ((arq)&"."&(arq2))

 

'tamanho

arq4 = Fso.GetFile(imagem1)

arq5 = arq4.Size

[xanburzum 169]

verifique se o caminho esta correto.

[filipefurriel 0]

tenho certeza que o caminho esta correto pois o path que ele recebe recebe do file que o form busca e envia então não tem como vir errado, eu não estou entendendo bem, eu acho que quando fazemos com getfile deste path ele não encontra, deve ser porque é claro tudo roda no servidor, e como ´o caso de o upload ser feito no pc do cliente como ele vai encontrar uma linha de path do cliente rodando no servidor, acho que é isso, mas como deverei fazer o getfile deste path do cliente, ue no caso do meu pc?

[filipefurriel 0]

alguem entendeu minha pergunta?

[Gilberto Jr 26]

brother, tem que tomar cuidado que se o seu aquivo tiver mais que 999kb o fso nao vai enciar, seria melhor você usar outro script.