Upload e gravar no banco

[Wallcrawler 0]

Pessoal estou com um problema com o dundas upload.

 

Estou querendo fazer um upload e gravar o caminho do arquivo salvo, no banco mysql.

 

Para tanto, o nome do arquivo dever se único, para se evitar sobreposição.

 

Estou usando o seguinte código:

 

Dim mySmartUpload
		Dim file
		Dim intCount
		intCount=0
			
		Set mySmartUpload = Server.CreateObject("Dundas.Upload.2")
		
		mySmartUpload.UseVirtualDir = False
		
		mySmartUpload.UseUniqueNames = true
		
		nome_unico = mySmartUpload.GetUniqueName
		
		mySmartUpload.Save(Server.MapPath("/fotos_noticias/"))
		
		For Each objUploadedFile in mySmartUpload.Files
			ext = mySmartUpload.GetFileExt(objUploadedFile.OriginalPath)
		Next
		
		url_foto = "/fotos_noticias/" & nome_unico & "." & ext

	conn.execute("insert into `noticias` (`data`, `noticia`, `titulo`, `fonte`, `resumo`, `url_foto`) values ('" & DataMySql(mySmartUpload.Form("data")) &"', '" & mySmartUpload.Form("noticia") &"', '" & mySmartUpload.Form("titulo") &"', '" & mySmartUpload.Form("fonte") &"', '" & mySmartUpload.Form("resumo") &"', '" & url_foto &"')")

O upload ocorre tudo ok, mas ao gravar o endereço no banco, sai com outro nome de arquivo. O que estou fazendo de errado? Obrigado

[Ted k' 126]

tenta

nome_unico = mySmartUpload.GetFileName(mySmartUpload.Files(0).Path)

[Wallcrawler 0]

tenta

nome_unico = mySmartUpload.GetFileName(mySmartUpload.Files(0).Path)

Está dando o erro:

 

DSUpload.CollFiles.2 error '80070057'

 

Index is out of range.

 

/intranet/noticias/noticias.asp, line 19