dundas upload

[designmix 0]

galera . fiz um sistema usando o aspload mais tivemos que trocar de servidor no novo ser so tem o dundas.

 

como faço para pegar o valor dos 5 campos file e colocar o nome da img no banco.

 

tentei com pegar do campo foto1 mais nda .. alguem pode me ajudar

 

grato

 

 

<%			Set oDundas = Server.CreateObject("Dundas.Upload.2")			oDundas.UseUniqueNames = False			oDundas.Save Server.MapPath("img/")					categoria	 = oDundas.Form.Item("categoria")area		  = oDundas.Form.Item("area")endereco	  = oDundas.Form.Item("endereco")numero		= oDundas.Form.Item("numero")edificio	  = oDundas.Form.Item("edificio")andar		 = oDundas.Form.Item("andar")bairro		= oDundas.Form.Item("bairro")apto		  = oDundas.Form.Item("apto")dormitorio	= oDundas.Form.Item("dormitorio")suite		 = oDundas.Form.Item("suite")descricao	 = oDundas.Form.Item("descricao")preco		 = oDundas.Form.Item("preco")fase_obra	 = oDundas.Form.Item("fase_obra")tipo		  = oDundas.Form.Item("tipo")cond_pagamento= oDundas.Form.Item("cond_pagamento")codigo_foto   = oDundas.Form.Item("Cod_Foto")desc_destaque = oDundas.Form.Item("desc_destaque")foto1		 = oDundas.Form.Item("foto1")desc1		 = oDundas.Form.Item("desc1")foto2		 = oDundas.Form.Item("foto2")desc2		 = oDundas.Form.Item("desc2")desc3		 = oDundas.Form.Item("desc3")desc4		 = oDundas.Form.Item("desc4")desc5		 = oDundas.Form.Item("desc5")Set conexao = Server.CreateObject("ADODB.Connection")conexao.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../database/database.mdb")strSQL = "INSERT INTO imoveis ( categoria, area, endereco, numero, edificio, andar, bairro, apto, dormitorio, suite, descricao, preco, fase_obra, tipo, cond_pagamento, codigo_foto, Foto1, desc1, Foto2, desc2, Foto3, desc3, Foto4, desc4, Foto5, desc5, desc_destaque, destaque)" strSQL = strSQL & "values ('" & categoria & "','" & area  & "','" & endereco & "','" & numero & "','" & edificio & "','" & andar & "','" & bairro & "','" & apto & "','" & dormitorio & "','" & suite & "','" & descricao & "','" & preco & "','" & fase_obra & "','" & tipo & "','" & cond_pagamento & "','" & codigo_foto & "','" & Foto1 & "','"& desc1 & "','"& Foto2 &"','" & desc2 &"','" & Foto3 &"','"& desc3 &"','" & Foto4 & "','" & desc4 & "','" & Foto5 & "','" & desc5 & "','" & desc_destaque & "','" & destaque &"')"response.Write strSQLresponse.End()

[Carlos_Seiji 0]

entre no link abaixo e veja se lhe ajuda:

dundas

[designmix 0]

putz.. pior que não eu quero pegar os nomes de todos os campos como fiz no asp uploadSet objUpload = Server.CreateObject("Persits.Upload.1")objUpload.SetMaxSize 150000, Truex = objUpload.SaveVirtual("foto") Set Foto1 = objUpload.Files("Foto1") Set Foto2 = objUpload.Files("Foto2") Set Foto3 = objUpload.Files("Foto3") Set Foto4 = objUpload.Files("Foto4") Set Foto5 = objUpload.Files("Foto5")mais para o dudas não sei como fazer

[Salgado 4]

No Dundas:

Upload.GetFileName(Upload.Files(0).Path)

Onde o "0" (zero) é a "posição" de cada imagem. Num sistema de upload que tenho aqui (que coincidentemente também manda até 5 imagens) está resolvido assim:

		If Upload.Files.Count > 0 Then
		VarFoto(0) = LocalIMG & Upload.GetFileName(Upload.Files(0).Path)
	Else
		VarFoto(0) = LocalIMG & "semfoto.gif"
	End If
	If Upload.Files.Count > 1 Then
		VarFoto(1) = LocalIMG & Upload.GetFileName(Upload.Files(1).Path)
	Else
		VarFoto(1) = LocalIMG & "semfoto.gif"
	End If
	If Upload.Files.Count > 2 Then
		VarFoto(2) = LocalIMG & Upload.GetFileName(Upload.Files(2).Path)
	Else
		VarFoto(2) = LocalIMG & "semfoto.gif"
	End If
	If Upload.Files.Count > 3 Then
		VarFoto(3) = LocalIMG & Upload.GetFileName(Upload.Files(3).Path)
	Else
		VarFoto(3) = LocalIMG & "semfoto.gif"
	End If
	If Upload.Files.Count > 4 Then
		VarFoto(4) = LocalIMG & Upload.GetFileName(Upload.Files(4).Path)
	Else
		VarFoto(4) = LocalIMG & "semfoto.gif"
	End If