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 / sms2http.aspx.vb < prev    next >
Text File  |  2010-08-20  |  2KB  |  49 lines
  1. ∩╗┐Imports System.Xml
  2. Partial Class sms2http
  3.     Inherits System.Web.UI.Page
  4.  
  5.     Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
  6.         Try
  7.             Dim doc As New XmlDocument
  8.             doc.Load(Request.InputStream)
  9.             Dim requestTime As String = doc.SelectSingleNode("smsDateTime").InnerText
  10.             Dim gateway As String = doc.SelectSingleNode("gatewayIdentifier").InnerText
  11.             Dim cellNumber As String = doc.SelectSingleNode("cellNumber").InnerText
  12.             Dim smsNumber As String = doc.SelectSingleNode("smsLocation").InnerText
  13.             Dim content As String = doc.SelectSingleNode("content").InnerText
  14.             If content.Contains("!") Then content = content.Replace("!", "")
  15.             If content.Contains("[") Then content = content.Replace("[", "")
  16.             If content.Contains("]") Then content = content.Replace("]", "")
  17.             If content.Contains("CDATA") Then content = content.Replace("CDATA", "")
  18.             Dim balance As String = getBalance(content)
  19.         Catch ex As Exception
  20.  
  21.         End Try
  22.     End Sub
  23.     '<gviSms>
  24.     '<smsDateTime>2005-09-08T10:06:03</smsDateTime>
  25.     '<gatewayIdentifier>ThreeRandVodaRx1</gatewayIdentifier>
  26.     '<cellNumber>27827891099</cellNumber>
  27.     '<smsLocation>35444</smsLocation>
  28.     '<content><![CDATA[Lindiwe Sisulu, KZN]]></content>
  29.     '</gviSms>
  30.  
  31.     Private Function getBalance(ByVal idNumber As String) As String
  32.         Try
  33.             Dim prmServices As New Mercantile.PrimeServices
  34.             Dim entityRequest As New Mercantile.EntityInquiryRequest
  35.             entityRequest.Header.MessageID = System.Guid.NewGuid.ToString
  36.             entityRequest.Entity = Mercantile.EntityType.Card
  37.             entityRequest.Reference = "P"
  38.             Dim numbers(0) As String
  39.             numbers(0) = idNumber
  40.             entityRequest.Numbers = numbers
  41.             Dim entityResponse As Mercantile.EntityInquiryResponse = prmServices.EntityInquiry(entityRequest)
  42.             Dim balance As String = entityResponse.Customer(0).Account(0).Data.Balance.ToString("###,###,##0.00")
  43.             Return balance
  44.         Catch ex As Exception
  45.             Return "Error"
  46.         End Try
  47.     End Function
  48. End Class
  49.