Partial Class PrintItWeb_discount
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        ' this part should work just after creating a user
        Dim sMemberId As String = Session.Item("member_id")
        Dim sInfo As String = "Taken from Session: "
        If (sMemberId = "") Then
            Dim httpCookie As HttpCookie = Request.Cookies("PartnerCookies")
            If (Not httpCookie Is Nothing) Then
                sInfo = "Taken from Cookies: "
                sMemberId = httpCookie("MemberId")
            End If
        End If
        Me.lblInfo.Text = sInfo + " sBannerId='" + sMemberId + "'"
    End Sub
End Class