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 / cardDetails.aspx.vb < prev    next >
Text File  |  2010-08-24  |  2KB  |  43 lines
  1. 
  2. Partial Class card2
  3.     Inherits System.Web.UI.Page
  4.  
  5.     Dim myFunctions As New Functions
  6.     Protected Sub imgHome_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles imgHome.Click
  7.         Response.Redirect("~/enquiries.aspx", True)
  8.     End Sub
  9.  
  10.     Protected Sub imgLogout_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles imgLogout.Click
  11.         If myFunctions.logout(Me.Context) Then Response.Redirect("~/Default.aspx", True)
  12.     End Sub
  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, "Transaction history")
  18.         End If
  19.         If Not Page.IsPostBack Then loadCards("")
  20.  
  21.     End Sub
  22.  
  23.     Private Sub loadCards(ByVal selectedCard As String)
  24.         Dim cardNumber As String = Request.Cookies("hcCNum").Value
  25.         Dim myCardData() As String = myFunctions.getIndividual(cardNumber)
  26.         txtCardNo.Text = myCardData(0)
  27.         txtExpDate.Text = myCardData(1)
  28.         txtEmboss.Text = myCardData(2)
  29.         'cmbCard.Items.Clear()
  30.         'For i As Integer = 0 To 4
  31.         '    cmbCard.Items.Add(New ListItem("card number (" & i & ") goes here"))
  32.         'Next
  33.         'For Each myItem As ListItem In cmbCard.Items
  34.         '    If myItem.Value = selectedCard Then myItem.Selected = True
  35.         'Next
  36.     End Sub
  37.  
  38.     Protected Sub cmbCard_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmbCard.SelectedIndexChanged
  39.         loadCards(cmbCard.SelectedValue)
  40.         txtCardNo.Text = cmbCard.SelectedValue
  41.     End Sub
  42. End Class
  43.