ASP.NET

public class CAuthentication:System.Web.UI.page
{
   public CAuthentication()
   {
      if ( Session["login"] == null )
         Response.Redirect("expired.aspx");
   }
}

public partial class MyPage:CAuthentication
{
   //Pageload goes here
}

Private Sub ListBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

    Dim DBConn As OdbcConnection

    Dim DBCommand As OdbcCommand


    Dim DS As New DataSet
    If Not LBoxProfessions.SelectedItem Is Nothing Then
        DBConn = New OdbcConnection("Driver={MySQL ODBC 3.51 Driver};Server=myDB;Database=myDB;User=myUser;Password=myPW;Option=3;")

        DBCommand = New OdbcCommand("Select ResumeID,Resumes,DocType, from tb_content where Professions = '" & LBoxProfessions.SelectedItem.Text & "' Limit 10 Offset 10", DBConn)

        DBConn.Open()

        Dim AD As OdbcDataReader = DBCOmmand.ExecuteReader()

        If (AD.Read()) Then

            Dim contentLength As Integer = Convert.ToInt32(AD.GetBytes(0, 0, Nothing, 0, Integer.MaxValue))
            Dim buffer As Byte() = New Byte(contentLength - 1) {}
            AD.GetBytes(0, 0, buffer, 0, contentLength)



           'Resumes is the field in the database table that holds the documents
            Response.AddHeader("Content-Disposition", "attachment;filename=Resumes")

            'DocType is the field that holds the mime types
            Response.ContentType = DirectCast(AD("DocType"), String)

            Response.BinaryWrite(buffer)
            Response.End()
        End If
        DBConn.Close()
    End If

End Sub