ASP.NET

    Public Function fill(Optional ByVal orderID As Integer = 0) As DataTable<br />
        Dim cmd As SqlCommand<br />
        cmd = New SqlCommand<br />
        Dim da As SqlDataAdapter<br />
        da = New SqlDataAdapter<br />
        Dim dt As DataTable<br />
<br />
        Try<br />
            dt = New DataTable<br />
            cmd.Connection = _SQLConnection<br />
            cmd.CommandType = CommandType.StoredProcedure<br />
            cmd.CommandText = "nw_spSelectOrders"<br />
            cmd.Transaction = _SQLTransaction<br />
<br />
            If Not orderID.Equals(0) Then<br />
<br />
                cmd.Parameters.Add(New SqlParameter("@orderID", SqlDbType.Int))<br />
                cmd.Parameters("@orderID").Direction = ParameterDirection.Input<br />
                cmd.Parameters("@orderID").Value = orderID<br />
            End If<br />
<br />
            da.SelectCommand = cmd<br />
            da.Fill(dt)<br />
<br />
            If Not dt.Rows.Count > 0 Then<br />
                Throw New Exception("no record")<br />
<br />
            Else<br />
                Return dt<br />
<br />
            End If<br />
<br />
        Catch ex As Exception<br />
            Throw New Exception(ex.Message)<br />
<br />
        Finally<br />
            cmd.Dispose()<br />
            da.Dispose()<br />
<br />
        End Try<br />
<br />
    End Function

SET ANSI_NULLS ON<br />
SET QUOTED_IDENTIFIER ON<br />
GO<br />
<br />
alter PROCEDURE nw_spSelectOrders <br />
(<br />
	@orderID int = 0<br />
<br />
)<br />
as<br />
begin<br />
	<br />
	Select o.orderID, <br />
		   od.quantity, <br />
		   od.unitprice, <br />
		   od.unitprice <br />
	from orders as o<br />
			left outer join [order details] as od<br />
	on o.orderid = od.orderid<br />
	where case when @orderID = 0 then 'selected'<br />
	else<br />
		case when o.orderID = @orderID then 'selected'<br />
		else 'not selected'<br />
		end <br />
	end= 'selected'<br />
end

<br />
HttpCookie cookie = new HttpCookie(TxtBxUserName.Text);<br />
            Response.Cookies.Add(cookie);<br />
            cookie.Values.Add("",TxtBxUserName.Text + "|" + TxtBxPassword.Text + ";");<br />
            Response.Cookies[TxtBxUserName.Text].Expires = DateTime.Now.AddDays(15); <br />
<br />