To Save an Image in sqlserver 2005 with unique name

Dim img As String




img = FileUpload1.FileName

Dim arr As String()



arr = img.Split("."c)

Dim ext As String = arr(arr.Length - 1)

Dim uname As String = DateTime.Now.Ticks.ToString()

Dim uprodimg As String = uname & "." & ext

Dim imgpath As String = Server.MapPath("~/images/") + "\" & uprodimg

FileUpload1.SaveAs(imgpath)