<![CDATA[
The script can be called via
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="smslib.asp" -->
<% call sendsms("447740123456",1,"123 ABC TEST test","","")
if AQresponse <> "" then
response.write(AQresponse)
else
response.write("ERROR")
end if
%>
Actual script follows
<%
response.buffer = true
' Copyright 2002 (aq) ltd.
' Script requires Microsoft XMLHTTP component
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 sms2email username, can either be set here
' or done on a per call basis from the function.
password = "testpassword" ' Your sms2email password, can either be set here
' or done on a per call basis from the function.
' Do not edit below here unless you know what you are doing!
Function sendsms(to_number, flash, message, f_username, f_password)
if f_username <> null or f_username <> "" then
username = f_username
end if
if f_password <> null or f_password <> "" then
password = f_password
end if
if username = "" then
call senderror(1)
else if password = "" then
call senderror(2)
else if to_number = "" then
call senderror(3)
else if len(message) > 160 and error_on_length = 1 then
call senderror(6)
'else if flash > 1 and flash > -1 then
'call senderror(5)
'end if
end if
end if
end if
end if
Dim objXMLHTTP, xml
message = replace(message," ","+")
Set xml = Server.CreateObject("Microsoft.XMLHTTP")
if secured = null or secured = 0 then
xml.Open "POST", "http://www.sms2email.com/sms/postmsg.php", False
xml.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
xml.Send "username=" & username & "&password=" & password & "&to_num=" & to_number & "&message=" & message & "&flash=" & flash
else if secured = 1 then
xml.Open "POST", "https://www.sms2email.com/sms/postmsg.php", False
xml.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
xml.Send "username=" & username & "&password=" & password & "&to_num=" & to_number & "&message=" & message & "&flash=" & flash
else
call senderror(7)
end if
end if
AQresponse = xml.responseText
Set xml = nothing
End Function
Function senderror(id)
set xml = nothing
Select case(id)
case (1)
response.write("No username was specified in either the function call or the config section")
response.end
case (2)
response.write("No password was specified in either the function call or the config section")
response.end
case (3)
response.write("No to number was set in the function call")
response.end
case (4)
response.write("No, or incorrect method specified")
response.end
case (5)
response.write("Invalid setting for Flash message flag, must be 1 or 0")
response.End
case (6)
response.write("Message was over 160 chars and was not sent. To disable this warning edit the flag in ""smslib.asp""")
response.end
case (7)
response.write("Invalied setting for Secure flag, must be 1 or 0")
response.end
end select
end function
%>
]]>