<% Option Explicit Dim upl, NewFileName Set upl = Server.CreateObject("ASPSimpleUpload.Upload") If Len(upl.Form("File1")) > 0 Then NewFileName = "/Uploads/" & upl.ExtractFileName(upl.Form("File1")) If upl.SaveToWeb("File1", NewFileName) Then Response.Write("File successfully written to disk.") Else Response.Write("There was an error saving the file to disk.") End If End If %> ASP Simple Upload Example #1

Select a file to upload:

 

Home

free web counter
Dell Coupon Code