Partial Class _Default Inherits System.Web.UI.Page Private Sub Submit1_ServerClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Submit1.ServerClick If Not File1.PostedFile Is Nothing And File1.PostedFile.ContentLength > 0 Then Dim fn As String = System.IO.Path.GetFileName(File1.PostedFile.FileName) Dim SaveLocation As String = Server.MapPath("Data") & "\" & fn Try File1.PostedFile.SaveAs(SaveLocation) Response.Write(<center>Thank you for your submission.</center>) Dim connection As String = ConfigurationManager.ConnectionStrings("Dialerresults").ConnectionString Catch Exc As Exception Response.Write("Error: " & Exc.Message) End Try Else Response.Write(<center>Please select a file to upload.</center>) End If End Sub Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load End SubEnd Class