<%
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
from = Server.URLEncode(request("from"))
recipient = "45" & request("recipient")
message = Server.URLEncode(request("message"))
timestamp = request("timestamp")
url = request("url")
url = "
https://www.cpsms.dk/sms/?username=user&password=pass&recipient=" & recipient & "&message=" & message & "&from=" & from & "&utf8=1×tamp=" & timestamp & "&url=" & url & ""
set xmlhttp = Server.CreateObject("MSXML2.ServerXMLHTTP")
xmlhttp.open "GET", url, false
xmlhttp.send ""
if xmlHttp.statusText = "OK" then
response.redirect "sms.asp?rapport=send"
else
response.redirect "sms.asp?rapport=fail"
end if
set xmlhttp = nothing
end if
ye = Right("000" & year(now), 4)
mo = Right("00" & month(now), 2)
da = Right("00" & day(now), 2)
ho = Right("00" & hour(now), 2)
mi = Right("00" & minute(now), 2)
if request.querystring("rapport") = "send" then
url = "
http://minhjemmeside.dk/sms.asp?rapport=send" set xmlhttp = Server.CreateObject("MSXML2.ServerXMLHTTP")
xmlhttp.open "GET", url, false
xmlhttp.send ""
set xmlhttp = nothing
%>