Function SendSMS()
  set WinHttpReq = Server.CreateObject ("WinHttp.WinHttpRequest.5")
  url="http://sms. edev.at/send/?from=436641234567&to=436761234567&txt=Hallo&id=test&pwd=test"
  WinHttpReq.Open("GET", url, false)
  WinHttpReq.Send();
  SendSMS=WinHttpReq.ResponseText;
end Function
	

function sendSMS($server,$user,$pwd,$typ,$from,$to,$txt)
{
  // Server Verbindung öffnen
  $f = fsockopen($server, 80);
  fwrite($f, "GET /send/?from=436641234567&to=436761234567&txt=Hallo&id=test&pwd=test 
    HTTP/1.1\r\nHost: $server\r\nConnection: close\r\n\r\n"); $data = "";
  while (!feof($f))
  {
    $data .= fread($f, 1024);
    }

  //HTML StatusCodes entfernen
  list($header, $answer) = explode("\r\n\r\n", $data);
		
  //Status zurueckgeben
  return $answer;
}
	

use HTTP::Request::Common qw(GET);
use LWP::UserAgent;
sub sendsms()
{
  my $url = new URI::URL 'http://sms.edev.at/send/?from=436641234567&to=436761234567&txt=Hallo&id=test&pwd=test';
  my $ua = LWP::UserAgent->new();
  $ua->timeout(6);
  my $res = $ua->request(GET $url->as_string);
  if ($res->is_success) {
    echo $res->content;
    return 0;     #Fehler
  }
  return 1;        # Ok
}