Upload e gravar no banco

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