Página de edição com falha

[Cesão 1]

Olá amigos.. tenho uma pagina de alteração onde uso Free Asp Upload ... qdo vou fazer alteração do nome (por exemplo), ele simplesmente nao altera.. nao apresenta nenhuma falha e nao altera... e isso acontece mesmo eu fazendo algum upload junto ou nao...

 

meu codigo está assim:

<!--#include file="conn/conexao.asp"--><!-- #include file="conn/freeaspupload.asp" --><%  Dim uploadsDirVar  uploadsDirVar = "e:\home\w3racing\web\produtos" %><%function SaveFiles	Dim Upload, fileName, fileSize, ks, kst, ksi, i, fileKey		Set Upload = New FreeASPUpload	Upload.Save(uploadsDirVar)		SaveFiles = ""	ks = Upload.UploadedFiles.keysid_prod = Upload.form("id_prod")	produto = Upload.form("produto")marca = Upload.form("marca")categoria = Upload.form("categoria")descr = Upload.form("descr")tamanhos = Upload.form("tamanhos")cores = Upload.form("cores")modelo = Upload.form("modelo")ano = Upload.form("ano")modelo_ano = Upload.form("modelo_ano")foto01 = Upload.form("foto01")foto02 = Upload.form("foto02")foto03 = Upload.form("foto03")foto04 = Upload.form("foto04")foto05 = Upload.form("foto05")foto_o2 = Upload.form("foto_o2")	on error resume next	if (UBound(ks) <> -1) then		foto = Upload.UploadedFiles("foto").FileName	End If		if err.number=424 then		foto = Upload.form("foto01")	end if 		on error resume next	if (UBound(ks) <> -1) then		foto2 = Upload.UploadedFiles("foto2").FileName			End If		if err.number=424 then		foto2 = Upload.form("foto02")	end if 			on error resume next	if (UBound(ks) <> -1) then		foto3 = Upload.UploadedFiles("foto3").FileName			End If		if err.number=424 then		foto3 = Upload.form("foto03")	end if 			on error resume next	if (UBound(ks) <> -1) then		foto4 = Upload.UploadedFiles("foto4").FileName			End If		if err.number=424 then		foto4 = Upload.form("foto04")	end if 			on error resume next	if (UBound(ks) <> -1) then		foto5 = Upload.UploadedFiles("foto5").FileName			End If		if err.number=424 then		foto5 = Upload.form("foto05")	end if 			on error resume next	if (UBound(ks) <> -1) then		foto_o = Upload.UploadedFiles("foto_o").FileName			End If		if err.number=424 then		foto_o = Upload.form("foto_o2")	end if 		SQL = "UPDATE produtos SET produto='"& produto &"', marca="& marca &", categoria="& categoria &", descr='"& descr &"', tamanhos='"& tamanhos &"', cores='"& cores &"', modelo='"& modelo &"', ano='"& ano &"', modelo_ano='"& modelo_ano &"', foto='"& foto &"', foto2='"& foto2 &"', foto3='"& foto3 &"', foto4='"& foto4 &"', foto5='"& foto5 &"', foto_o='"&foto_o&"', preco='"&preco&"' WHERE id_prod="&id_prod&""'Response.Write(SQL)conexao.execute(SQL)end functionresponse.write SaveFiles()response.redirect"admin_produtos.asp"%>

[Cesão 1]

alguém pode me ajudar? nao consigo fazer a alteração de jeito nenhum...

[CassianoVix 0]

alguém pode me ajudar? nao consigo fazer a alteração de jeito nenhum...

você tentou executar alguns response.write para ver se ele está passando pela função e recuperando os valores do formulário corretamente?Sugiro que você tire, ou comente os "On Error Resume Next" pelo menos por enquanto, para que você possa pelo menos ver qual erro está acontecendo. Quando você usa On Error Resume Next, o servidor ignora os erros e continua processando a página.Assim você vai conseguir visualizar os erros e ir corrigindo até funcionar.AbraçoCassiano.

[Cesão 1]

ja consegui descobrir o que era... eu nao tinha "puxado" o valor da variavel preco... e como ela eh um campo de numero, nao aceitava vir em branco e por isso nao fazia a alteração.. dai coloquei a linha:

 

preco = Upload.form("preco")

 

junto com as outras.. e funcionou...