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 / balance.aspx.vb < prev    next >
Text File  |  2010-08-24  |  1KB  |  35 lines
  1. ∩╗┐Imports System.Data
  2. Partial Class balance
  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.         Dim cardNumber As String = Request.Cookies("hcCNum").Value
  12.         Try
  13.  
  14.             Dim thisIndividual As String = myFunctions.getIndividual(cardNumber)
  15.             txtBalance.Text = thisIndividual
  16.             'Dim balance As String = thisIndividual.balance.ToString("###,###,##0.00")
  17.             'txtBalance.Text = "R" & balance
  18.         Catch ex As Exception
  19.  
  20.         End Try
  21.         lblDateStamp.Text = Now.ToShortDateString & " " & Now.ToShortTimeString
  22.     End Sub
  23.  
  24.  
  25.     Protected Sub imgHome_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles imgHome.Click
  26.         Response.Redirect("~/enquiries.aspx", True)
  27.     End Sub
  28.  
  29.     Protected Sub imgLogout_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles imgLogout.Click
  30.         If myFunctions.logout(Me.Context) Then Response.Redirect("~/Default.aspx", True)
  31.     End Sub
  32.  
  33.  
  34. End Class
  35.