Free SMS Text Messaging

hotleatherdreams · Jul 15, 2010

re: megaplex - sending SMS from the server is simply sending an email to phonenumber(a)providersSMSdomain... that I DO know. To send one of them paid texts or votes I doubt would work, but try using the email addy you would receive an SMS message at as the SENDER email address in the script. GL ( I have a script that has just a few providers for the customers of a website I work for, so I havent seen the code OP posted). Looking back at your post, IDK how u would get the message to deliver properly, unless maybe u knew it was #####(a)lameAssProvider.blah. But I did give u my opinion of what your actual question was. GL

hotleatherdreams · Jul 16, 2010

ASP version of working code using a certain emailer... if ur decent at coding it should be easy to figure out how to convert to your situation. This is only major US carriers, but u should be able to understand exactly how SMS messaging from a website script works.

Code:

<%
 
SMSPhone = request("SMSPhone")
SMSProvider = request("SMSProvider")
Select Case SMSProvider
 Case "ALLTEL"
  SMSSend = SMSPhone & "[AT-Sine]message[D0T]alltel[D0T]com"
 Case "ATT"
  SMSSend = SMSPhone & "[AT-Sine]mobile[D0T]att[D0T]net"
 Case "Cingular"
  SMSSend = SMSPhone & "[AT-Sine]cingularme[D0T]com"
 Case "Nextel"
  SMSSend = SMSPhone & "[AT-Sine]messaging[D0T]nextel[D0T]com"
 Case "Sprint"
  SMSSend = SMSPhone & "[AT-Sine]messaging[D0T]sprintpcs[D0T]com"
 Case "T-Mobile"
  SMSSend = SMSPhone & "[AT-Sine]tmail[D0T]com"
 Case "Verizon"
  SMSSend = SMSPhone & "[AT-Sine]vtext[D0T]com"
 Case "Virgin Mobile"
  SMSSend = SMSPhone & "[AT-Sine]vmobl[D0T]com"
 Case Else
End Select
 
' NEW EMAIL CODE
   Set Mail = Server[D0T]CreateObject("Persits[D0T]MailSender")
   Mail[D0T]Host = "mail[D0T]YOURDOMAIN[D0T]com"
   Mail[D0T]From = "ANY-EMAIL-ADDY-WILL-DO"
   Mail[D0T]FromName = "FRIENDLY NAME"
   Mail[D0T]AddAddress SMSSend
   Mail[D0T]Subject = "SUBJECT TEXT"
   Mail[D0T]Body = "YOUR MAIL TEXT
 
   strErr = ""
   bSuccess = False
   On Error Resume Next ' ignore errors - lazy
 
   Mail[D0T]ContentTransferEncoding = "Quoted-Printable"
   'Mail[D0T]IsHTML = True ' not required
   'Mail[D0T]Queue = True ' optional feature of paid version
   Mail[D0T]Send ' send message
 
   If Err <> 0 Then ' error occurred
       strErr = Err[D0T]Description
    response[D0T]write "ERROR sending email: " & strErr
   Else
 bSuccess = True
    'response[D0T]write "SUCCESS sending test email"
   End If
%>

hotleatherdreams · Jul 19, 2010

sorry i dont have the original, thats a script i wrote that is in use on one of my sites.

Free SMS Text Messaging

hotleatherdreams

Registered Member

hotleatherdreams

Registered Member

hotleatherdreams

Registered Member

Main Menu

Marketplace

Making Money

BlackHat World