Upload - Pegar Nome Do Arquivoe Gravar No Bd

[jucacabala]

tenho um codigo de upload, que esta funcionando normalmente.

o unico problema é que não estou conseguindo salvar no banco o nome da imagem que esta sendo salva na pasta de destino.

estou usando o dundas e nele a propriedade

objUpload.UseUniqueNames = true

para não correr o risco de uma imagem sobrescrever outra.

meu codigo de upload é esse:

<!--#include file="conexao.inc" -->
<%	
	if session("logado")="" then
	response.redirect "login.asp"
	end if
%>
<%
	On Error Resume Next
	Dim objUpload, rs, srt, conexaodb, foto, codigo

	Set objUpload = server.CreateObject("Dundas.Upload.2")
	objUpload.UseVirtualDir = false
	objUpload.UseUniqueNames = true
	objUpload.Save "F:\Julyana\acasp\site\images\associados"

	If Err <> 0 Then

	Response.Write Err.Description & " " & Err.Number & "<br>"
	Response.Write "erro"
	Else
	Response.Write "certo"

    path=objUploadedFile.Path
	foto = "F:\Julyana\acasp\site\images\associados\"& objUpload.GetFileName(path)
	codigo = objUpload.form("codigo")

	End If

	str = "UPDATE associados SET "
	str = str & "foto= '"&foto&"' "
	str = str & "WHERE codigo= '"&codigo&"' "

	call abreconexao	
	Set rs = conexaodb.Execute(str)
	Set objUpload = Nothing

%>

como posso resolver esse problema?

[Deividy]

você já verifico com response.write se a variavel foto tem alguma informação?

[bareta]

ele tem qyue ter um for each lá....

ais ou menos nessa parte

path=objUploadedFile.Path

foto = "F:\Julyana\acasp\site\images\associados\"& objUpload.GetFileName(path)

da uma buscada aqui no forum que tem....

[jucacabala]

a variavel foto esta vindo em branco, não esotu conseguindo pegar o valor para jogar na variavel

[jucacabala]

eis a resposta!

<!--#include file="conexao.inc" -->
<%	
	if session("logado")="" then
	response.redirect "login.asp"
	end if
%>
<%
	On Error Resume Next
	Dim objUpload, rs, srt, conexaodb, foto, codigo

	Set objUpload = server.CreateObject("Dundas.Upload.2")
	objUpload.UseVirtualDir = false
	objUpload.UseUniqueNames = true
	objUpload.Save "F:\Julyana\acasp\site\images\associados"

	For Each objUploadedFile in objUpload.Files
	foto = objUpload.GetFileName(objUploadedFile.Path) 
	Next

	codigo = objUpload.form("codigo") 

	Set objUpload = Nothing

	str = "UPDATE associados SET "
	str = str & "foto= '"&foto&"' "
	str = str & "WHERE codigo= '"&codigo&"' "

	call abreconexao	
	Set rs = conexaodb.Execute(str)

%>

para mostrar erro dentro da minha pagina:

    <%
    	If Err <> 0 Then
    %>
          <td height="50" align="center" class="verdana11bold"><font color="#990000">Houve 
            erros ao carregar o arquivo anexado.</font></td>
    <% 
    	Else
    %>
    <td height="50" align="center" class="verdana11bold"> <font color="#990000">Arquivo 
            enviado com sucesso.</font></td>
    <% 
    	end if
    %>

[bareta]

ok vou colocar lá no tópico de funções pra achar melhor....