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 / passRetrieve.aspx.vb < prev    next >
Text File  |  2010-08-20  |  3KB  |  61 lines
  1. ∩╗┐Imports System.Data
  2. Partial Class passRetrieve
  3.     Inherits System.Web.UI.Page
  4.     Dim myFunctions As New Functions
  5.  
  6.     Protected Sub imgLogin_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles imgLogin.Click
  7.         If Not myFunctions.testLogin(Me.Context) Then Response.Redirect("~/Default.aspx", True)
  8.         Dim idNumber As String = txtIDNumber.Text
  9.         Dim cardNumber As String = txtHealthCardNumber.Text
  10.         Dim surname As String = txtSurname.Text
  11.         Dim validLogin As Boolean = getPassword(idNumber, cardNumber, surname)
  12.         If Not validLogin Then
  13.             lblInvalidLogin.Text = "Cannot locate user.  Please retry"
  14.         Else
  15.             lblInvalidLogin.Text = "Your password has been sent to your email address / cell phone number."
  16.         End If
  17.     End Sub
  18.  
  19.     Protected Sub ImageButton1_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ImageButton1.Click
  20.         Response.Redirect("~/otherEnq.aspx", True)
  21.     End Sub
  22.  
  23.     Private Function getPassword(ByVal idNumber As String, ByVal cardNumber As String, ByVal surname As String) As Boolean
  24.         Dim success As Boolean = False
  25.         Dim sqlStr As String = "SELECT password, case when emailContact = 'True' THEN email else '' end as email, case when smsContact = 'True' then contactNumber else '' end as cell"
  26.         sqlStr &= " FROM tblMembers"
  27.         sqlStr &= " WHERE (surname = @surname) OR (cardNumber = @cardnumber) OR (idNumber = @idnumber)"
  28.         Dim params As New Hashtable
  29.         params.Add("@surname", surname)
  30.         params.Add("@idNumber", idNumber)
  31.         params.Add("@cardNumber", cardNumber)
  32.         Dim ds As DataSet = myFunctions.getData(sqlStr, params)
  33.         Try
  34.             Dim myRow As DataRow = ds.Tables(0).Rows(0)
  35.             Dim password As String = myRow.Item("password").ToString.Trim
  36.             Dim email As String = myRow.Item("email").ToString.Trim
  37.             Dim cell As String = myRow.Item("cell").ToString.Trim
  38.             If email <> "" Then
  39.                 Dim myMailer As New MAILER(True)
  40.                 myMailer.sendMail("HealthCard Portal", email, "Healthcard Password Retrieval", "You requested a password retrieval.  Your password is " & password & ".", True)
  41.             End If
  42.             success = True
  43.         Catch ex As Exception
  44.             success = False
  45.         End Try
  46.         Return success
  47.     End Function
  48.  
  49.     Private Sub sendSMS(ByVal cellNumber As String, ByVal message As String)
  50.         Dim userId As Integer = CInt(Request.Cookies("hcUid").Value)
  51.         Dim smsNumber As String = ""
  52.         If Left(cellNumber, 1) = "0" Then
  53.             smsNumber = "27" & cellNumber.Substring(1, cellNumber.Length - 1)
  54.         Else
  55.             smsNumber = cellNumber
  56.         End If
  57.         Dim smsSender As New smsSender
  58.         smsSender.sendMessage(userId, smsNumber, message)
  59.     End Sub
  60. End Class
  61.