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 / debitOrder.aspx.vb < prev    next >
Text File  |  2010-08-20  |  869b  |  21 lines
  1. 
  2. Partial Class debitOrder
  3.     Inherits System.Web.UI.Page
  4.     Dim myFunctions As New Functions
  5.     Protected Sub imgHome_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles imgHome.Click
  6.         Response.Redirect("~/enquiries.aspx", True)
  7.     End Sub
  8.  
  9.     Protected Sub imgLogout_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles imgLogout.Click
  10.         If myFunctions.logout(Me.Context) Then Response.Redirect("~/Default.aspx", True)
  11.     End Sub
  12.  
  13.     Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
  14.         If Not myFunctions.testLogin(Me.Context) Then
  15.             Response.Redirect("~/Default.aspx", True)
  16.         Else
  17.             myFunctions.logMe(Request.Cookies("hcUid").Value, "Debit Order")
  18.         End If
  19.     End Sub
  20. End Class
  21.