Protected Sub AjaxFileUpload1_UploadComplete(sender As Object, e As AjaxControlToolkit.AjaxFileUploadEventArgs) Handles AjaxFileUpload1.UploadComplete Dim filename As String = RemoveSpecialChars(e.FileName) Dim imageFilename As String = DateTime.Now.Ticks.ToString() + "_" + filename Dim acc As New accounts(Membership.GetUser.ProviderUserKey) AjaxFileUpload1.SaveAs("E:\kunden\homepages\19\d664110395\www\myUrl\catalog\videos\" & imageFilename) 'Insert uploaded file details Dim item As New items item.filename = imageFilename item.originalFilename = RemoveSpecialChars(filename) item.bootsaleDate = "1/1/2090" item.accountID = aID item.InsertItems(item.filename, item.originalFilename, item.bootsaleDate, item.accountID) End Sub
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)