Send SMS with 🔩 ASP (Classic)

// Primary
https://smtpapi.vocotext.com/isms_send_all_id.php

// Mirror 2
https://smtpapi2.vocotext.com/isms_send_all_id.php

// Mirror 3
https://www.bulksms.com.sg/isms_send_all_id.php

%<
Dim un, pwd, dstno, msg, sType, sendid, apiUrl, url, xmlhttp, result

un      = "your_username"        ' iSMS account username
pwd     = "your_password"        ' iSMS account password
dstno   = "601X-XXXXXXX"          ' Recipient — full international format
msg     = Server.URLEncode("Hello from iSMS!")
sType   = "1"                    ' 1 = ASCII, 2 = Unicode
sendid  = "MyBrand"             ' Optional sender ID (max 11 chars)
apiUrl  = "https://smtpapi.vocotext.com/isms_send_all_id.php"

url = apiUrl & "?un=" & un & "&pwd=" & pwd _
          & "&dstno=" & dstno & "&msg=" & msg _
          & "&type=" & sType & "&agreedterm=YES" _
          & "&sendid=" & sendid

Set xmlhttp = CreateObject("MSXML2.ServerXMLHTTP.6.0")
xmlhttp.Open "GET", url, False
xmlhttp.setOption 2, 13056   ' Enable SSL/TLS
xmlhttp.Send

result = xmlhttp.responseText

If InStr(result, "2000") > 0 Then
    Response.Write "SMS sent! Response: " & result
Else
    Response.Write "Failed: " & result
End If

Set xmlhttp = Nothing
%>