if ($form{'ASSMS'} eq "Yes") {
$ring = "0";
$smsdate = $Day.$monnm.$yearx;
$smslogtitle = $smsdate;



$smstitlea = $form{'DESTINY'};
$smstitleb = "44";
$smstitled = substr($smstitlea, 1, 10);
$smstitle = $smstitleb.$smstitled.$smstitlec;
$smsuser = "xxx";
$smspass = "xxx";
$smsto = $smstitleb.$smstitled;
$smssender = "DMSTEST";

$smsmsg = "$form{'DESC'}  Ref: $form{'REQREF'}";
$smsmax = "3";

$smsmsg =~ s/\ /%20/g;

$smsurl = "http://www.intellisoftware.co.uk/smsgateway/sendmsg.aspx?username=$smsuser&password=$smspass&to=$smsto&from=$smssender&text=$smsmsg&maxconcat=$smsmax";

NEED TO CALL URL HERE

$adtitle = $form{'FILEBIT'};
&oops('Cannot write') unless (open(NEWITEM, ">>$basepath/Parts/$adtitle.dat"));
print NEWITEM
 "\n$form{'TSTAMP'}-$form{'initials'}-SMS-$form{'DESC'}";
close NEWITEM;
$izsent = 1 ;
open(NEWITEM, ">>$smslog/$smslogtitle.dat");
print NEWITEM
 "\n$Hour:$Minute-$form{'DESTINY'}-$form{'REQREF'}-$form{'DESC'}";
close NEWITEM;
print $smsurl;
print <<"EOF";
<p align="center"><font face="Verdana">Your text message has been logged and sent !</p>

EOF
}