ASP.NET

protected void Page_Load(object sender, EventArgs e)<br />
    {<br />
        Label13.Text = Convert.ToString(DateTime.Now);<br />
        //  SqlConnection maConnexionSQLsrv = new SqlConnection(@"Data Source=.\SQLEXPRESS;UID=sa;Password=forChariaa3*;Initial Catalog=scolarite");<br />
        SqlConnection myConnection = new SqlConnection(ConnectionString);<br />
        myConnection.Open();<br />
<br />
<br />
        String maRequete = "select ann_uni as [p1]from annee where @param between date_debut and date_fin";<br />
        SqlCommand myCommand = new SqlCommand(maRequete, myConnection);<br />
        myCommand.Parameters.Add(new SqlParameter("@param", SqlDbType.DateTime));<br />
        myCommand.Parameters["@param"].Value = Label13.Text;<br />
        SqlDataReader drr2 = myCommand.ExecuteReader();<br />
<br />
<br />
        while (drr2.Read())<br />
        {<br />
            Textbox1.Text = drr2["p1"].ToString();<br />
        }<br />
        drr2.Close();<br />
<br />
    }<br />
    private string ConnectionString<br />
    {<br />
        get<br />
        {<br />
            string connectionString = (@"Data Source=.\SQLEXPRESS;UID=sa;Password=*****;Initial Catalog=bd1");<br />
<br />
            // string connectionString = ConfigurationManager.ConnectionStrings["ConnectionString"].ConnectionString;<br />
            return connectionString;<br />
        }<br />
    }<br />
    public string ContentTextBoxOfMasterPage<br />
    {<br />
        get { return Textbox1.Text; }<br />
    }

<%@ Page Language="C#" MasterPageFile="~/MasterPage.master" AutoEventWireup="true" CodeFile="Default2.aspx.cs" Inherits="Default2" Title="Page sans titre" %><br />
<%@ MasterType  virtualPath="~/MasterPage.master"%><br />
 <br />
<asp:Content ID="Content1" ContentPlaceHolderID="head" Runat="Server"><br />
</asp:Content><br />
<asp:Content ID="Content2" ContentPlaceHolderID="ContentPlaceHolder1" Runat="Server"><br />
    <asp:TextBox ID="TextBox2" runat="server"></asp:TextBox></asp:Content><br />

protected void Page_Load(object sender, EventArgs e)<br />
    {<br />
        TextBox2.Text = Master.ContentTextBoxOfMasterPage;<br />
    }

<asp:TextBox ID="Textbox1" runat="server"></asp:TextBox><br />
       <br />
        <asp:ContentPlaceHolder id="ContentPlaceHolder1" runat="server"><br />
        </asp:ContentPlaceHolder><br />
    </div><br />
    </form><br />
</body><br />
</html><br />

        DataTable dt = new DataTable();<br />
        DataSet ds = new DataSet();<br />
        SqlConnection sqlConn = new SqlConnection(ConfigurationManager.ConnectionStrings["SN11ConnectionString"].ConnectionString);<br />
        SqlCommand sqlCmd = new SqlCommand("SELECT UserId FROM [Users] WHERE ([Email]=@Email AND [Password]=@Password", sqlConn);<br />
        //Create the parameters<br />
        SqlParameter paramEmail;<br />
        paramEmail = new SqlParameter("@Email", SqlDbType.NVarChar, 25);<br />
        paramEmail.Value = TextBoxLoginEmail.Text;<br />
        sqlCmd.Parameters.Add(paramEmail);<br />
<br />
        //Hash the password<br />
        MD5CryptoServiceProvider md5Hasher = new MD5CryptoServiceProvider();<br />
        byte[] hashedBytes;<br />
        UTF8Encoding encoder = new UTF8Encoding();<br />
        hashedBytes = md5Hasher.ComputeHash(encoder.GetBytes(TextBoxLoginPassword.Text));<br />
        SqlParameter paramPwd;<br />
        paramPwd = new SqlParameter("@Password", SqlDbType.Binary, 16);<br />
        paramPwd.Value = hashedBytes;<br />
        sqlCmd.Parameters.Add(paramPwd);   <br />
<br />
            sqlConn.Open();<br />
            SqlDataAdapter sda = new SqlDataAdapter(sqlCmd);<br />
            sda.Fill(ds);<br />
            dt = ds.Tables[0];

<asp:DropDownList ID="DropDownList_HP" runat="server"
    AppendDataBoundItems="True" DataSourceID="SqlDataSource_HP" 
    DataTextField="Hospital" DataValueField="H_ID" SelectedValue='<%# Bind("H_ID") %>' Enabled="True">
    <asp:ListItem>- select -</asp:ListItem>
</asp:DropDownList>   

<asp:RequiredFieldValidator ID="RequiredFieldValidatorDV4" runat="server" 
    ControlToValidate="DropDownList_HP" 
    ErrorMessage="Select a referring hospital" 
    InitialValue="- select -" ValidationGroup="PatientInputGroupDV4" SetFocusOnError="True"></asp:RequiredFieldValidator>                            

<asp:DropDownList ID="DropDownList_RefHospDV4" runat="server"
    AppendDataBoundItems="True" DataSourceID="SqlDataSource_RefHosp" 
    DataTextField="HospShort" DataValueField="HospID" SelectedValue='<%# Bind("HospID") %>' Enabled="True">
    <asp:ListItem Selected="True" Value="">- select -</asp:ListItem>
</asp:DropDownList>                            

 Protected Sub btnPrint_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnPrint.Click
        Try
            Dim rptViewer As ReportViewer           

            rptViewer = New ReportViewer
            With rptViewer.LocalReport
                .DataSources.Clear()
                .ReportPath = Server.MapPath("rptCert.rdlc") '(IM USING RDLC INSTEAD OF CR)
                .DataSources.Add(dataSource)
                .Refresh()
            End With

            myRPT= New CustPrint
            With myRPT
                .Export(rptViewer.LocalReport)
                .m_currentPageIndex = 0
                .Print()
            End With
        Catch ex As Exception
            log.Debug(ex.ToString)
        End Try
End Sub
----CLASS-----

Public Class CustPrint
    '  Implements IDisposable

    Public m_currentPageIndex As Integer
    Public m_streams As IList(Of Stream)
    Public stName As String
    'create steam
    Public Function CreateStream(ByVal name As String, ByVal fileNameExtension As String, _
       ByVal encoding As Encoding, ByVal mimeType As String, ByVal willSeek As Boolean) As Stream

        Dim stream As Stream = New FileStream("C:\" + name + "." + fileNameExtension, FileMode.Create)
        m_streams.Add(stream)
        Return stream

    End Function
    'Export
    Public Sub Export(ByVal report As LocalReport)

        Try
            Dim deviceInfo As String = _
        "<DeviceInfo>" + _
        "  <OutputFormat>EMF</OutputFormat>" + _
        "  <PageWidth>8.5in</PageWidth>" + _
        "  <PageHeight>11in</PageHeight>" + _
        "  <MarginTop>0.25in</MarginTop>" + _
        "  <MarginLeft>0.25in</MarginLeft>" + _
        "  <MarginRight>0.25in</MarginRight>" + _
        "  <MarginBottom>0.25in</MarginBottom>" + _
        "</DeviceInfo>"

            Dim warnings() As Warning = Nothing
            m_streams = New List(Of Stream)()

            report.Render("Image", deviceInfo, AddressOf CreateStream, warnings)

            Dim stream As Stream
            For Each stream In m_streams
                stream.Position = 0
            Next

        Catch ex As Exception
            Dim inner As Exception = ex.InnerException
            While Not (inner Is Nothing)
                'MsgBox(inner.Message)
                inner = inner.InnerException
            End While
        End Try

    End Sub
    'metafile
    Public Sub PrintPage(ByVal sender As Object, _
    ByVal ev As PrintPageEventArgs)
        Dim pageImage As New Metafile(m_streams(m_currentPageIndex))
        ev.Graphics.DrawImage(pageImage, ev.PageBounds)

        m_currentPageIndex += 1
        ev.HasMorePages = (m_currentPageIndex < m_streams.Count)
    End Sub
   'print
    Public Sub Print()
        Dim printerName As String = DefaultPrinterName()
        If m_streams Is Nothing Or m_streams.Count = 0 Then
            Return
        End If

        Dim printDoc As New PrintDocument()
        printDoc.PrinterSettings.PrinterName = printerName
        If Not printDoc.PrinterSettings.IsValid Then
            Dim msg As String = String.Format("Can't find printer ""{0}"".", printerName)
            'Console.WriteLine(msg)
            Return
        End If
        AddHandler printDoc.PrintPage, AddressOf PrintPage
        printDoc.Print()

        If Not (m_streams Is Nothing) Then
            Dim stream As Stream
            For Each stream In m_streams
                stream.Close()
            Next
            m_streams = Nothing
        End If        
    End Sub
----FUNCTION ------
   Public Function DefaultPrinterName() As String
        Dim oPS As New System.Drawing.Printing.PrinterSettings

        Try
            DefaultPrinterName = oPS.PrinterName
        Catch ex As System.Exception
            DefaultPrinterName = ""
        Finally
            oPS = Nothing
        End Try
    End Function