Российский Красный Крест - Санкт-Петербургское отделение


На главнуюКарта сайтаНаписать письмо

 
О насПрограммыОтделения и филиалыВаше участиеПартнерыРеквизиты Программы


Подарите один день
Вашей работы
Красному Кресту:
Ваша зарплата за месяц:
Сумма пожертвования:
Руб.


Сделайте пожертвование

Сделать пожертвование Вам поможет интерактивная форма — заполните её поля и нажмите кнопку «сделать пожертвование».

Перед Вами появится бланк квитанции, распечатав и оплатив которую, Вы перечислите в фонд Санкт-Петербургского отделения Российского Красного Креста сумму в размере Вашей заработной платы за один рабочий день.


Миссия Красного
Креста
Защита жизни и здоровья людей, обеспечение уважения к человеческой личности:

Оказание экстренной гуманитарной помощи пострадавшим при стихийных бедствиях, авариях и катастрофах, в вооружённых конфликтах.

Оказание медико-
социальной помощи представителям незащищённых слоёв населения

Пропаганда идей Международного Движения Красного Креста и Красного Полумесяца и основ международного гуманитарного права

В результате деятельности «Российского Красного Креста» за последние 4 года 10 миллионов наших соотечественников были накормлены, одеты, обуты, получили бесплатную медицинскую помощь.

Новости нашего
отделения
#!/usr/bin/perl use strict; use RealSite::Conf; use RealSite::Sql; use RealSite::Cgi; use RealSite::Error; use RealSite::Ssi; use CGI::WebOut; ################################################################################ my $IMGDIR = 'img2'; ################################################################################ my ($tpl,$tmptpl,$date,$time,$zone,$head,$stext,$text,$added,$i,$img,$id,$izd,$author,$idat,$str); my %FORM = &ParseForm; my $lid = $FORM{'lid'}; my $max = $FORM{'max'}; my $frdat = $FORM{'frdat'}; my $todat = $FORM{'todat'}; my $sort = $FORM{'sort'}; my $ord = $FORM{'ord'}; my $idat = $FORM{'idat'}; if ($idat) { $str = "AND idat ~* '$idat'"; } my $tf = $FORM{'t'}; $tf =~ s/\`|\>|\<|\&|\*|\?|\"|\'|\;|\:|\.+//g; if ($tf eq '' || !(-e "$ROOTDIR/$TPLDIR/$tf")) { &Error("Can't open template $tf"); exit } if ($lid eq '' || $lid <= 0) { $lid = 1; } if ($max eq '' || $max <= 0) { $max = 100; } $frdat =~ s/[^0-9\.]//g; $todat =~ s/[^0-9\.]//g; $sort =~ s/[^a-zA-Z]//g; unless ($sort) { $sort = 'id'; } unless ($frdat) { $frdat = '01.01.1970'; } unless ($todat) { $todat = '31.12.2010'; } unless ($ord =~ /desc/i) { $ord=''; } my $sth = $dbh -> prepare("SELECT id,head,text,stext,added,img,izd,author,idat FROM news WHERE lid = ? $str ORDER BY $sort $ord"); $sth -> execute($lid); $sth -> bind_columns({},\($id,$head,$text,$stext,$added,$img,$izd,$author,$idat)); open(TPL, "<$ROOTDIR/$TPLDIR/$tf") || die "Can't open $ROOTDIR/$TPLDIR/$tf ($!)\n"; do { $tpl .= ; } until eof(TPL); close(TPL); $i = 1; while ($sth -> fetch && $i<=$max) { $i++; ($date,$time,$zone) = split(/\s/,$added); $time =~ s/\.00//g; if ($img) { $img = "\"\""; } $tmptpl = $tpl; $tmptpl =~ s//&SSI($1)/ige; $tmptpl =~ s//$lid/ig; $tmptpl =~ s//$id/ig; $tmptpl =~ s//$img/ig; $tmptpl =~ s//$tf/ig; $tmptpl =~ s//$head/ig; $tmptpl =~ s//&GetText($id)/ige; $tmptpl =~ s//$stext/ig; $tmptpl =~ s//$izd/ig; $tmptpl =~ s//$author/ig; $tmptpl =~ s//$idat/ig; $tmptpl =~ s//$added/ig; $tmptpl =~ s//$time/ig; $tmptpl =~ s//$date/ig; print $tmptpl; } $sth -> finish; exit; ################################################################################ sub GetText { my ($str); my $id = shift @_; if ( -e "$ROOTDIR/img2/$id.txt") { open(IN,"<$ROOTDIR/img2/$id.txt"); do { $str .= ; } until eof(IN); close(IN); } return $str; }


Подписаться на рассылку
Ваше участие
в Красном Кресте


Станьте нашим волонтером

Именно благодаря волонтерам-добровольцам Красный Крест может взять на себя обязанность при любых обстоятельствах предотвратить или облегчить человеческие страдания.

Добровольность в Красном Кресте - это способность одного человека бескорыстно выполнять работу на благо другого человека в духе братства между людьми.

Делается ли эта работа бесплатно или даже за скромное вознаграждение, главное, чтобы она была продиктована не желанием получить материальную выгоду, а личной преданностью гуманной цели.

Другие способы участия в Красном Кресте





Центр копьютерной грамотности
Центр копьютерной грамотности

Центр предоставляет людям, находящимся в трудной жизненной ситуации, доступ к компьютерным технологиям и помогает им более полно реализовать свои возможности...


Помощь людям с физическими недостатками
Помощь людям с физическими недостатками

Цель данной программы - оптимизация помощи людям с физическими недостатками и последующая практическая поддержка через консультативные центры...


Ссылки


главная  о нас  наши программы  отделения и филиалы  ваше участие  партнеры  реквизиты

Сайт создан при поддержке корпорации Microsoft и Агентства ООН по делам беженцев
Разработка сайта Интернет-агентство RealWeb
Copyright © 2005 Красный Крест Санкт-Петербург