Cadastro de Produtos

[Guilherme Strich 0]

Bom-Dia!

Estou com um problema no cadastro de produtos em um sistema e não estou conseguindo arrumar.

Me aparece este erro.

 

Persits.Jpeg.1 error '800a0002'

 

The system cannot find the file specified.

 

/admin/produtos/acao.asp, line 56

 

 

Line 56:

jpg.Open ( caminho & File.FileName )

 

 

Me parece ser o caminho do upload da foto, na hora do cadastro, certo?

Porem tem esta pasta normal no sistema, o que pode estar ocorrendo?

[AspMan 0]

Line 56:

jpg.Open ( caminho & File.FileName )

 

Atenção às dicas:

Está salvando o arquivo?

Upload.Save "c:\suapasta"

 

Caminho se refere ao endereço do arquivo do upload?

caminho = 'C:\suapasta'

 

 

Criou a instância jpg?

Set jpg = Server.CreateObject("Persits.Jpeg")

jpg.Open

 

Qualquer dúvida poste aí.

[Guilherme Strich 0]

Todo o codigo é:

 

<!-- #Include Virtual="/admin/comum/includes/conexao.asp"-->
<!-- #Include Virtual="/admin/produtos/parametros.asp"-->
<%
set upload = Server.CreateObject("Persits.Upload")
set jpg = Server.CreateObject("Persits.Jpeg")

upload.OverwriteFiles = False
upload.SetMaxSize 99999999, True

vPathVirtual	= "/fotos"
vPathGrand		= server.MapPath(vPathVirtual) & "\" 		' Caminho para Upload da Foto Grande

Count 			= upload.Save(PathGrande)
caminho 		= vPathGrand

'indice 			= trim(replace(upload.form("indice"),chr(39),"''"))
'alteracao 		= trim(replace(upload.form("alteracao"),chr(39),"''"))
'nome 			= trim(replace(upload.form("nome"),chr(39),"''"))
'valor 			= trim(replace(upload.form("valor"),chr(39),"''"))
'descricao 		= trim(replace(upload.form("descricao"),chr(39),"''"))
'categoria 		= trim(replace(upload.form("categoria"),chr(39),"''"))
'subcategoria	= trim(replace(upload.form("subcategoria"),chr(39),"''"))
'nGalFotos       = trim(replace(upload.form("galeria"),chr(39),"''"))
'sNomeEs			= trim(replace(upload.form("nomees"),chr(39),"''"))
'sDescEs         = trim(replace(upload.form("descricaoes"),chr(39),"''"))
'sVideo          = trim(replace(upload.form("video"),chr(39),"''"))
'sPromo          = trim(replace(upload.form("promocao"),chr(39),"''"))

indice		= trim(replace(request.QueryString("indice"),chr(39),"''"))
alteracao		= trim(replace(request.QueryString("alteracao"),chr(39),"''"))
nome		= trim(replace(request.QueryString("nome"),chr(39),"''"))
valor		= trim(replace(request.QueryString("valor"),chr(39),"''"))
descricao		= trim(replace(request.QueryString("descricao"),chr(39),"''"))
categoria		= trim(replace(request.QueryString("categoria"),chr(39),"''"))
subcategoria		= trim(replace(request.QueryString("subcategoria"),chr(39),"''"))
nGalFotos		= trim(replace(request.QueryString("nGalFotos"),chr(39),"''"))
sPromo		= trim(replace(request.QueryString("sPromo"),chr(39),"''"))
sNomeEs		= trim(replace(request.QueryString("sNomeEs"),chr(39),"''"))
sDescEs		= trim(replace(request.QueryString("sDescEs"),chr(39),"''"))
sVideo		= trim(replace(request.QueryString("sVideo"),chr(39),"''"))


If sPromo = "on" Then
	sPromo = "true"
Else	
	sPromo = "false"
End If	
If subcategoria = "" Then subcategoria = "null"

if err <> 0 then
	session("msg") = err.description
	response.redirect "/admin/monta.asp?link=" & vLinkPasta & "&qual=" & qual
else

	for each file in Upload.Files
		jpg.Open		( caminho & File.FileName )
		jpg.Width 		= "500"
		jpg.Height 		= File.ImageHeight * 500 / File.ImageWidth
		jpg.Save		(caminho & File.FileName)

		'response.Write nome
		sTemFoto = "s"
		'sFoto = file.ExtractFileName
		'Altera no banco de dados
		If indice <> "" Then
			conn.execute("update produtos set promocao = " & sPromo & ", nome = '" & nome & "',nome_es = '" & sNomeEs & "', valor = '" & valor & "', descricao = '" & descricao & "',descricao_es = '" & sDescEs & "', categoria = " & categoria & ", subcategoria = " & subcategoria & ", video = '" & sVideo & "' where indice = " & indice)
			If sTemFoto = "s" Then
				conn.execute("update produtos set imagem = '" & File.ExtractFileName& "' where indice = " & indice)
			End If
		Else
			conn.execute("insert into produtos (nome,valor,descricao,categoria,data,hora,subcategoria,nome_es,descricao_es,video,promocao,imagem) values ('" & nome & "','" & valor & "','" & descricao & "'," & categoria & ",'" & fData(date(),"aaaa-mm-dd") & "','" & time() & "'," & subcategoria & ",'" & sNomeEs & "','" & sDescEs & "','" & sVideo & "'," & sPromo & ",'" & File.ExtractFileName & "')")
			'conn.execute("INSERT INTO produtos (nome) VALUES ('" & nome & ")")
		End If

	next
End If
	'--- Destroy objects
'Set oFileUp = Nothing
response.redirect "/admin/monta.asp?link=produtos"
%>

 

A pasta /fotos existe

[jrcardozo 4]

imprima a variavel vPathGrand

 

Verifique o caminho impresso com o diretório físico.

 

Estando ok, verifique as permissões de leitura e escrita no diretório

[Daniel1 1]

vPathGrand              = server.MapPath(vPathVirtual) & "\"            ' Caminho para Upload da Foto Grande

 

Parece que o erro é na barra invertida "\" troque para:

vPathGrand              = server.MapPath(vPathVirtual)