Function SendMessage ( Username, Password, ToNumber, From, Text ) 

	FormData = ""
	FormData = FormData & "username=" & Server.URLencode(Username)
	FormData = FormData & "&password=" & Server.URLencode(Password)
	FormData = FormData & "&to=" & Server.URLencode(ToNumber)
	FormData = FormData & "&from=" & Server.URLencode(From)
	FormData = FormData & "&text=" & Server.URLencode(Text)

	HTTPResponse = DoFormPost ( "http://www.intellisoftware.co.uk/smsgateway/sendmsg.aspx", FormData )

	'TODO: Parse HTTPResponse for message id and error code

End Function


Function DoFormPost ( URL, FormData ) 
	Set xmlhttp = Server.CreateObject("Microsoft.XMLHTTP")
	xmlhttp.Open "POST", URL, false
	xmlhttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
	xmlhttp.send FormData
	DoFormPost = xmlhttp.responseText
	Set xmlhttp = nothing
End Function