ASP.NET

using System;
using System.Web;

using System.IO;
using System.Data;
using System.Data.SqlClient;



public class left1old : IHttpHandler {
    
    public void ProcessRequest (HttpContext context)
    {

        int branchid = 0;

        if (context.Session["branchid"] != null)
            //if (context.Request.QueryString["Shop"] != null)

            branchid = Convert.ToInt32(context.Session["branchid"]);
        else
            throw new ArgumentException("No parameter specified");

        context.Response.ContentType = "image/jpeg";
        Stream strm = ShowImage(branchid);
        byte[] buffer = new byte[4096];
        int byteSeq = strm.Read(buffer, 0, 4096);

        while (byteSeq > 0)
        {
            context.Response.OutputStream.Write(buffer, 0, byteSeq);
            byteSeq = strm.Read(buffer, 0, 4096);
            
        }        
        
    }

    public Stream ShowImage(int branchid)
    {
        SqlConnection con = new SqlConnection(" Data Source=.; Initial Catalog=SafaView;User ID=sa;Password=nsg_ss_0103;");
        string sql = "SELECT imgleft1old FROM tblImages WHERE BranchId = @branchid";
        SqlCommand cmd = new SqlCommand(sql, con);
        cmd.CommandType = CommandType.Text;
        cmd.Parameters.AddWithValue("@BranchId", branchid);
        con.Open();
        object img = cmd.ExecuteScalar();
        try
        {
            return new MemoryStream((byte[])img);
        }
        catch
        {
            return System.IO.Stream("~/images/NoPic.jpg");
        }
        finally
        {
            con.Close();
        }
    }
 
    public bool IsReusable {
        get {
            return false;
        }
    }

}

protected void Page_Load(object sender, EventArgs e)
    {int i=0;
       i= Convert.ToInt32(Session["branchid"]);
        if (IsPostBack == false)
        {
            Image1.ImageUrl = "left1.ashx?BranchId=" + i;
            Image2.ImageUrl = "left1old.ashx?BranchId=" + i;
                    
        
        }

Dim conexcel As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("upload/" & FileUpload1.FileName) & "; Extended Properties=Excel 8.0")
Dim cmd As New OleDbCommand("select * from [Sheet1$]", conexcel)


Try
    If ConnectionState.Open Then
        conexcel.Close()
    End If
    conexcel.Open()
    Dim dr As OleDbDataReader
    dr = cmd.ExecuteReader()

    Dim act, cnt, ds, cf, co, distt, dtype As String

    act = ddl_Activity.SelectedItem.Text.ToString()
    cnt = ddl_Center.SelectedItem.Text.ToString()
    ds = ddl_DataSource.SelectedItem.Text.ToString()
    distt = ddl_Distt.SelectedItem.Text.ToString()
    bcode = UCase(bcode) & "/" & distt & "/" & act & "/" & bno.ToString()
    dtype = ddl_DataType.SelectedItem.Text.ToString()

    Try
        Dim name, cnt1, cnt2 As String
        name = ""
        cnt1 = ""
        cnt2 = ""
        cf = ""
        co = ""

        Dim m, p As Int64
        m = 1
        While (dr.Read())
            name = Trim(dr(0).ToString())
            cnt1 = Trim(dr(1).ToString())
            cnt2 = Trim(dr(2).ToString())
            cf = Trim(dr(3).ToString())
            co = Trim(dr(4).ToString())

            Dim str As String
            If cnt1 <> "" Or name <> "" Then
                str = "insert into tbl_edu_dt(full_name,contact1,contact2,Activity,Center,DistName,DataSource,Collected_From,Collected_On,batch_code,batch_id,imp_date,imp_time,Data_Type) values ('" & name & "','" & cnt1 & "','" & cnt2 & "','" & act & "','" & cnt & "','" & distt & "','" & ds & "','" & cf & "' , '" & co & "','" & bcode & "','" & m & "','" & Format(Now(), "dd/MM/yyyy") & "','" & imp_time & "','" + dtype + "')"
                ObjClass.execute_query(str)

                m = m + 1
            End If
        End While

    Catch ex As Exception

    End Try
    conexcel.Close()
    File.Delete(Server.MapPath("~/Upload/" + FileUpload1.FileName))
Catch ex As Exception
    Response.Write(ex)
End Try