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
        Dim sMemberId As String = Request.Params.Get("discount_code")
        ' store session
        If (sMemberId <> "") Then
            Session.Add("member_id", sMemberId)
            ' store cookies
            Response.Cookies("PartnerCookies")("MemberId") = sMemberId
            'Dim tDate As DateTime = New DateTime()
            Response.Cookies("PartnerCookies").Expires = DateTime.Now.AddMonths(1)
            Response.Redirect("home.aspx")
        End If

        '' this part should work just after creating a user
        'sMemberId = Session.Item("member_id")
        'If (sMemberId = "") Then
        '    sMemberId = Request.Cookies("PartnerCookies")("MemberId")
        'End If
        'Dim lMembId As Long = 0
        'Try
        '    lMembId = Convert.ToInt64(sMemberId)
        'Catch ex As Exception
        'End Try
        'If lMembId > 0 Then
        '    Dim partnerWS As PartnetWS.Service = New PartnetWS.Service
        '    Dim sMemberUniqId = "29f3e2fa-3aaf-4608-a191-252ab875157f" ' TODO: put real user_id here
        '    partnerWS.registerPartner(lMembId, sMemberUniqId)
        'End If

    End Sub
End Class