Cadastro de Produtos

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í.

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

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

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

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

vPathGrand = server.MapPath(vPathVirtual)