' The script can be called via

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

if AQresponse <> "" then
  response.write(AQresponse)
else
  response.write("ERROR")
end if

%>

' Actual script follows. This could be placed in a separate file, 
' such as the smslib.asp file described above

<%
Dim method, secured, error_on_length, username, password, AQresponse
  ' User Editable Variables
  secured = 0                       ' Set to either 1 for SSL connection 
                                    ' or 0 for normal connection.
  error_on_length = 1               ' Whether to give and error on messages over 160 chracters. 
                                    ' 1 for true, 0 for false.
  username = "testusername"         ' Your aql username, can either be set here 
                                    ' or done on a per call basis from the function.
  password = "testpassword"         ' Your aql password, can either be set here
                                    ' or done on a per call basis from the function.

Dim objXMLHTTP, xml
  message = replace(message," ","+")
  Set xml = Server.CreateObject("Microsoft.XMLHTTP") 
  if secured = null or secured = 0 then
    xml.Open "POST", "http://gw1.aql.com/sms/sms_gw.php", False
    xml.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
    xml.Send "username=" & username & "&password=" & password & "&destination=" & destination & 
             "&message=" & message & "&originator=" & originator & "&flash=" & flash
  else if secured = 1 then
    xml.Open "POST", "https://gw1.aql.com/sms/sms_gw.php", False
    xml.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
    xml.Send "username=" & username & "&password=" & password & "&destination=" & destination & 
             "&message=" & message & "&originator=" & originator & "&flash=" & flash
  else
    call senderror(7)
    end if
   end if

AQresponse = xml.responseText
Set xml = nothing

End Function 


%>