<% if NOT request.form("number")="" then%><%
YourMobileNumber=request.form("number") 'your cell phone number with area code
DataToSend = "refer=txt2day&status=index&to="&YourMobileNumber&"&provider=uscell&message="&request.form("message")&"&terms=checked&submit=submit"
dim xmlhttp
set xmlhttp = server.Createobject("MSXML2.ServerXMLHTTP")
'replace localhost with the server you would like to post to
xmlhttp.Open "POST","http://www.txt2day.com/newsend.php",false
'set header to tell the receiving we are posting form data
xmlhttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
xmlhttp.send DataToSend 'send data in the form of a query string
Response.ContentType = "text"
'Response.write xmlhttp.responseText
Set xmlhttp = nothing
response.write "Your text sent to " & YourMobileNumber
%><%end if%>
|
