dir = "d:\tmp\"
dir2 = "e:\temp\"
Set fso = CreateObject("Scripting.FileSystemObject")
czas = Now()
ex = Year(czas) & Month(czas) & Day(czas) & Hour(czas) & Minute(czas) & Second(czas)
dir_ex = dir2 & ex
fso.CreateFolder(dir_ex)
fso.CopyFolder dir & "*", dir_ex
set fso = nothing$sDir = "d:\\do_wysylki" if($sDir eq '');
opendir(SEND_DIR, $sDir) or die "Couldn't open $dir for reading: $!";
@files = ();
while( defined ($file = readdir(SEND_DIR)) ) {
next if ($file eq '.' or $file eq '..');
my $filename = $file;
push(@files, $filename);
}
closedir(SEND_DIR);
my $count = @files;
delete from Raport_Blad_wp_d where id_zamowienie in
(
select id_zamowienie from
(
select x.id_zamowienie, x.status, count(*) as cnt from Raport_Blad_wp_d x
--where id_zamowienie = 300340659
group by
x.id_zamowienie,
x.status
) as t
group by id_zamowienie having count(t.id_zamowienie)=1
)
body, p, td, ul, li, form {
font: normal 12px/120% Tahoma, Arial, Helvetica, sans-serif;
color:#505050;
}
p, td, ul, li, form {
padding:0;
margin:0;
}$res = file_get_contents($url);
$content_start = strpos($res, '</form>') + strlen('</form>');
$head_end = $content_start;
$content_end = strpos($res, '</xml-export>');
$foot_start = strpos($res, '</xml-export>');
$head = substr($res, 0, $head_end);
$content = substr($res, $content_start, $content_end - $content_start);
$foot = substr($res, $foot_start);
$content = nl2br(html_entity_decode($content));
$content = htmlspecialchars_decode($content);
$content = UTF8toISO2($content);
$html_doc = $content;