ASP.NET

sub btnUploadTheFile_Click (sender As Object, e As EventArgs)<br />
dim strFileNameOnServer<br />
dim strBaseLocation<br />
strFileNameOnServer = txtServername.Value<br />
strBaseLocation = Server.MapPath("")<br />
  if strFileNameOnServer ="" then<br />
 txtOutput.InnerHtml = "Error - a file name must be specified."<br />
 return<br />
end if<br />
    try <br />
dim imageUrl as string<br />
Dim connect As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source= "& Server.mappath("matt.mdb") & ""<br />
Dim conn as New OleDbConnection(connect)<br />
dim adap as OleDbDataAdapter<br />
Dim ds as New Dataset<br />
adap= New OleDbDataAdapter ("SELECT * FROM Config",conn)<br />
adap.Fill (ds,"Config")<br />
dim de as datarow<br />
ds.Tables("Config").Rows(0)("Logo") = txtServername.Value<br />
response.Write (ds.Tables("Config").Rows(0)("Logo")) <br />
adap.Update (ds,"Config")<br />
imageurl=(ds.Tables("Config").Rows(0)("Logo")) <br />
Image1.ImageUrl = imageurl<br />
conn.close()<br />
      uplTheFile.PostedFile.SaveAs(strBaseLocation+"\"+strFileNameOnServer)<br />
      txtOutput.InnerHtml = "File <b>"  + strBaseLocation+"\"+strFileNameOnServer+"</b> uploaded successfully"<br />
    catch ex as exception <br />
  txtOutput.InnerHtml = "Error saving <b>" + strBaseLocation+"\"+strFileNameOnServer+"</b><br>"+ ex.message    <br />
end try<br />
end if<br />
end sub