Fazendo update com upload

[Michel_ 0]

Rapaziada é o seguinte , eu fiz um sistema para um cliente , e estou Usando o dundas para upload, mas é o seguinte o upload esta funcionando normamente. mas tem um formulario que é para alteracão dos dados como eu faço?

 

estou tentando assim: mas não da

 

ASP

[*]

 

[*]

 

[*]

 

[*] <%

 

[*]

 

[*]

 

[*]  

 

[*]  Set CN= Server.CreateObject("ADODB.Connection")

 

[*]  

 

[*]Set objUpload = Server.CreateObject("Dundas.Upload.2") 

 

[*]

 

[*]

 

[*]

 

[*]objUpload.UseUniqueNames = False

 

[*]

 

[*]

 

[*]

 

[*]objUpload.Save "C:\WINDOWS\Desktop\temp\admin\images" 

 

[*]

 

[*]

 

[*]

 

[*]tximage = objUpload.GetFileName(objUpload.Files(0).Path)

 

[*]

 

[*]txfoto1 = objUpload.GetFileName(objUpload.Files(1).Path)

 

[*]txfoto2 = objUpload.GetFileName(objUpload.Files(2).Path)

 

[*]txfoto3 = objUpload.GetFileName(objUpload.Files(3).Path)

 

[*]txfoto4 = objUpload.GetFileName(objUpload.Files(4).Path)

 

[*] txref= objUpload.Form("txref")

 

[*] 

 

[*]  seltipo= objUpload.Form("seltipo")

 

[*]  selpara=objUpload.Form("selpara")

 

[*]  txpqdescricao=objUpload.Form("txpqdescricao")

 

[*]  txdescricao=objUpload.Form("txdescricao")

 

[*]  txbairro=objUpload.Form("txbairro")

 

[*]  txcidade=objUpload.Form("txcidade")

 

[*]  selquartos=objUpload.Form("selquartos")

 

[*]  selbanheiros=objUpload.Form("selbanheiros")

 

[*]  txvalor=objUpload.Form("txvalor")

 

[*]  dest=objUpload.Form("dest")

 

[*]  txestado=objUpload.Form("txestado")

 

[*]  selgaragens= objUpload.Form("selgaragens")

 

[*]  txmts=objUpload.Form("txmts")

 

[*]  

 

[*]  

 

[*]  

 

[*]  Set CN= Server.CreateObject("ADODB.Connection")

 

[*]  CN.ConnectionString = "driver={Microsoft Access Driver (*.mdb)}; dbq="& Server.MapPath("imoveis.mdb")

 

[*] CN.open 

 

[*]

 

[*]

 

[*]inserir = "Update into propriedades(image,foto1,foto2,foto3,foto4,ref,id,modelo,para,titdescricao,

descricao,bairro,cidade,quartos, banheiros,preco,destaque,estado,garagem,mts) values('"& tximage&"','"& txfoto1&"','"& txfoto2&"','"&txfoto3&"','"& txfoto4&"','"& txref&"','"& txref&"','"& seltipo&"','"& selpara& "','"& txpqdescricao & "','"& txdescricao& "','"& txbairro& "','"& txcidade& "','"& selquartos& "','"& selbanheiros& "','"& txvalor&"','"& dest&"','"& txestado&"','"&selgaragens&"','"& txmts&"')" 

 

[*] 

 

[*]CN.execute(inserir)

 

[*]

 

[*]

 

[*]

 

[*]  CN.Close

 

[*]  Set CN = Nothing

 

[*] Set objUpload = Nothing  

 

[*]response.Redirect("form2.asp")

 

[*]

 

[*] 

 

[*]%>

 

me ajudem ..

[Michel_ 0]

Será que alguém pode me ajudar?