Telkomsel provides GSM cellular services in Indonesia, through its own nationwide Dual band 900/1800 MHz GSM network, and internationally, through 268 international roaming partner in 155 countries (end of 2006). In September 2006, Telkomsel became the first operator in Indonesia to launch 3G services.
Telkomsel’s gross revenues have grown from Rp 3,59 trillion in 2000 to Rp 34,89 trillion in 2006. Over the same period, the total number of Telkomsel’s cellular subscribers increased from approximately 1.7 million as at 31 December 2000 to 35,6 million as at 31 December 2006. Telkomsel has the largest network coverage of any of the cellular operators in Indonesia, providing network coverage to over 90% of Indonesia’s population and is the only operator in Indonesia that covers all of the country’s provinces and counties, and all sub-counties (“kecamatan”) in Sumatra, Java, and Bali/Nusra. The company offers GSM Dual Band (900 & 1800), GPRS, Wi-Fi, EDGE, and 3G Technology.
Info: http://www.telkomsel.com/web/company_profile
' ********************************************************************
' Paste this block of code on your web page where you would like text
' links to be displayed. This code will dynamically add and remove text
' links on your web page according to your BackLinks.com settings.
' ********************************************************************
' The following variable defines whether links are opened in a new window
' (1 = Yes, 0 = No)
Const OpenInNewWindow As Byte = 1
' This variable defines the timeout for the script, in seconds
Const TimeOut As Byte = 30
Const UserKey As String = "S6FS-PLHZ-CF34"
Public Function GetBackLinksData() As String
Dim TextEncoding As System.Text.Encoding
Dim Reader As System.IO.StreamReader
Dim Writer As System.IO.StreamWriter
Dim WebResponce As Net.WebResponse
Dim IOReceive As System.IO.Stream
Dim WebRequest As Net.WebRequest
Dim strPostingString As String
Dim LinkUrl As String
Dim BLURL As String
If Request.ServerVariables("HTTPS").ToString() = "on" Then
LinkUrl="https://"
Else
LinkUrl="http://"
End If
'LinkUrl = LinkUrl & Request.ServerVariables("HTTP_HOST").ToString() & Request.ServerVariables("REQUEST_URI").ToString()
LinkUrl = LinkUrl & Request.ServerVariables("HTTP_HOST").ToString() & Request.ServerVariables("SCRIPT_NAME").ToString()
If Request.ServerVariables("QUERY_STRING").ToString() <> "" Then
LinkUrl = LinkUrl & "?" & Request.ServerVariables("QUERY_STRING").ToString()
End If
LinkUrl = server.URLencode(LinkUrl)
strPostingString = "&Key=" & UserKey
strPostingString = strPostingString & "&LinkUrl=" & LinkUrl
strPostingString = strPostingString & "&OpenInNewWindow=" & OpenInNewWindow
BLURL = "http://www.backlinks.com/engine.php?" & strPostingString
Try
WebRequest = Net.WebRequest.Create(BLURL)
WebRequest.Method = "GET"
WebRequest.Timeout = TimeOut * 1000
WebResponce = WebRequest.GetResponse
IOReceive = WebResponce.GetResponseStream
TextEncoding = System.Text.Encoding.GetEncoding("utf-8")
Reader = New System.IO.StreamReader(IOReceive, TextEncoding)
GetBackLinksData = Reader.ReadToEnd()
If Not WebResponce Is Nothing Then
WebResponce.Close()
End If
Catch exError As Exception
Return exError.Message
End Try
End Function
Public Sub Page_Load(sender As Object, e as System.EventArgs)
Dim OutString As String
OutString = GetBackLinksData()
BackLinks.Text = OutString
End Sub