<%
' Extract the query parameters from the URL
Dim msg As String = Request.QueryString("mesg")
Dim sender As String = Request.QueryString("num")
Dim recvtime As String = Request.QueryString("recvtime")
Dim receiver As String = Request.QueryString("prem")
Dim msgid As String = Request.QueryString("id")

' Set the Content-Type header to "text/plain"
Response.ContentType = "text/plain"

' Write the message to the response
Dim request As New System.Net.HttpWebRequest
request.Method = "POST"
request.RequestUri = New Uri("http://50.28.10.173:9501/api?action=sendmessage&username=VodacomIn&password=password&recipient=+$sender&messagetype=SMS:TEXT&messagedata=$msg")
request.Headers.Add("Accept", "application/json")

Dim postData As New System.Text.ASCIIEncoding().GetBytes($msg)
request.ContentLength = postData.Length
Dim requestStream As Stream = request.GetRequestStream()
requestStream.Write(postData, 0, postData.Length)
requestStream.Close()

Dim response As System.Net.HttpWebResponse = request.GetResponse()
Dim responseStream As Stream = response.GetResponseStream()
Dim reader As New System.IO.StreamReader(responseStream)
Dim responseString As String = reader.ReadToEnd()

' Close the reader and stream
reader.Close()
responseStream.Close()

' Check the 'state' parameter

' You can add error handling and more complex processing based on your requirements
%>