print "NIX... ";

$res = getstore ($nixprice, $nixfile);

if ($res == RC_OK) {

print "OK \n";

} else {

die "ОШИБКА\n";

}

print "OLDI.. ";

$res = getstore ($oldiprice, $oldifile);

if ($res == RC_OK) {

print "OK\n";

} else {

die "ОШИБКА\n";

}

print "-== - Распаковка прайсов - ==-\n";

$zipFile = Archive:: Zip->new ();

$status = $zipFile->read ($nixfile);

print "NIX... ";

if ($status! = AZ_OK) {

die "ОШИБКА\n";

} else {

print "OK\n";

}

print "OLDI.. ";

$zipFile->extractTree ('','',$extractpath);

$zipFile = Archive:: Zip->new ();

$status = $zipFile->read ($oldifile);

if ($status! = AZ_OK) {

die die "ОШИБКА\n";

} else {

print "OK\n";

}

$zipFile->extractTree ('','',$extractpath);

print "-== - Разборка прайсов - ==-\n";

ParseOldi ();

ParseNix ();

#archivePrice ();

print "-== - Выгрузка прайсов - ==-\n";

uploadArchive ();

print "-== - Загрузка прайсов в базу - ==-\n";

LoadPrice ();

sub LoadPrice {

my $content = get ($loadurl);

}

sub uploadArchive {

my $ftp = Net:: FTP->new ($ftphost, Debug => 0) or die "Cannot connect to some. host. name: $@";

$ftp->login ($ftpuser,$ftppass) or die "Cannot login", $ftp->message;

$ftp->cwd ("/www") or die "Cannot change working directory", $ftp->message;

$ftp->put ($nixtxt);

$ftp->put ($olditxt);

$ftp->quit;

}

sub archivePrice {

my $zip = Archive:: Zip->new ();

$zip->addFile ($nixtxt);

$zip->addFile ($olditxt);

$zip->writeToFileNamed ($archive);

}

sub ParseNix {

my $oExcel = new Spreadsheet:: ParseExcel;

my $oFmtR = Spreadsheet:: ParseExcel:: FmtUnicode->new (Unicode_Map => "CP1251");

my $oBook = $oExcel->Parse ($nixxls, $oFmtR);

my ($iR, $iC, $oWkS, $oWkC);

$oWkS = $oBook->Worksheet (0);

my $kurs = $oWkS->{Cells} [3] [4] - >{Val};

my $price;

my $price1;

my $id;

my $pid;

my $name;

my $isGood;

my $parent;

my $comp;

open (FILE,'>',$nixtxt);

NEXTL: for (my $iR = 7; defined $oWkS->{MaxRow} && $iR <= $oWkS->{MaxRow}; $iR++) {

$pid = $oWkS->{Cells} [$iR] [7] - >{Val};

$price = $oWkS->{Cells} [$iR] [3] - >{Val};

$price1 = $oWkS->{Cells} [$iR] [3] - >Value;

$comp = $oWkS->{Cells} [$iR] [5] - >Value;

$id = $oWkS->{Cells} [$iR] [0] - >{Val};

if ($comp eq 'Компьютер') {

next NEXTL;

} elsif ($price1 eq 'Дилер') {

$price = $oWkS->{Cells} [$iR] [5] - >{Val};

$price = ($price*0.15 + $price) *$kurs;

} else {

$price = $price*$kurs;

}

if ($pid) {

$parent = $pid;

$id = $parent;

$pid = 0;

$isGood = 0;

$name = $oWkS->{Cells} [$iR] [0] - >Value;

} else {

$id = $oWkS->{Cells} [$iR] [0] - >{Val};

$isGood = 1;

$pid = $parent;

$name = $oWkS->{Cells} [$iR] [1] - >Value;

}

print FILE "$isGood|$id|$pid|$name|$price\n";

}

close (FILE);

}

sub ParseOldi {

my $oExcel = new Spreadsheet:: ParseExcel;

my $oFmtR = Spreadsheet:: ParseExcel:: FmtUnicode->new (Unicode_Map => "CP1251");

my $oBook = $oExcel->Parse ($oldixls, $oFmtR);

my ($iR, $iC, $oWkS, $oWkC);

$oWkS = $oBook->Worksheet (0);

open (FILE,'>',$olditxt);

my @parent;

$parent [0] = 0;

my $iParent;

my $isGood;

my $price;

#my $iR = $oWkS->{MinRow}

NEXTL: for (my $iR = 2; defined $oWkS->{MaxRow} && $iR <= $oWkS->{MaxRow}; $iR++) {

my $colId = $oWkS->{Cells} [$iR] [1];

my $colName = $oWkS->{Cells} [$iR] [2];

my $colPrice = $oWkS->{Cells} [$iR] [10];

my $colStore = $oWkS->{Cells} [$iR] [6];

my $id = $colId->Value;

my $name = $colName->Value;

my $bgcolor = $oExcel->ColorIdxToRGB ($colName->{Format}->{Fill} [1]);

my $font = $colName->{Format}->{Font};

my $store;

if ($bgcolor eq '000000') {

$iParent = 0;

$isGood = 0;

$parent [1] = $id;

} elsif ($font->{Bold} &&! $font->{Italic}) {

$iParent = 1;

$isGood = 0;

$parent [2] = $id;

} elsif ($font->{Bold} && $font->{Italic}) {

$iParent = 2;

$isGood = 0;

$parent [3] = $id;

} elsif (! $isGood) {

$isGood = 1;

$iParent = $iParent + 1;

}

if ($colStore) {

$store = $colStore->Value;

} else {

$store = 0;

}

if ($isGood &&! $store) {

next NEXTL;

}

if ($colPrice) {

$price = $colPrice->{Val};

} else {

$price = 0;

}

print FILE "$isGood|$id|$parent [$iParent] |$name|$price\n";

}

close (FILE);

}

exit (0);

common. pm

#! /usr/bin/perl

package common;

require Exporter;

our @ISA = qw (Exporter);

our @EXPORT_OK = qw ();

use strict;

use localset;

use settings;

use CGI;

use CGI:: Cookie;

use DBI;

sub new {

my $class = shift;

my ($user,$pass,$database,$host) = ($mysql:: user,$mysql:: pass,$mysql:: base,$mysql:: host);

my %attr;

my $self = {};

my %mycookie = fetch CGI:: Cookie;

$self->{dbh} = DBI->connect ("DBI: mysql: $database: $host", $user, $pass, \%attr);

$self->{cgi} = new CGI;

if ($mycookie{$cookies:: name}) {

$self->{pid} = $mycookie{$cookies:: name}->value;

}

$self->{queries} = 0;

bless $self, $class;

$self->getUIDbySID ();

return $self;

}

sub getUIDbySID {

my $self = shift;

my $sid = $self->{pid};

my $sth;

if ($sid) {

$sth = $self->prepare ("select t1. uid,t2. admin,t2. name from $tables:: sessions as t1,$tables:: users as t2

where t1. id=? and t2. id=t1. uid");

$self->execute ($sth,$sid);

($self->{uid},$self->{admin},$self->{uname}) = $sth->fetchrow_array;

if (! $self->{uid}) {

$self->{uid} = 0;

$self->{uname} = 'Гость';

}

} else {

$self->{uid} = 0;

$self->{uname} = 'Гость';

}

}

sub generatePID {

my $self = shift;

my $SIDLen = 8;

my @lst = ('A'. 'Z','0'. '9');

my $sid;

$sid = time;

srand;

$sid. = $lst [rand ($#lst)] for (1. $SIDLen);

return $sid;

}

sub clearCookie {

my $self = shift;

$self->setCookie (0);

}

sub setCookie {

my $self = shift;

$self->{pid} = $self->generatePID ();

my $cookie = new CGI:: Cookie (-name=>$cookies:: name,

value=>$self->{pid},

expires => '+1h'

);

print "Set-Cookie: $cookie\n";

$self->{cookie} = $cookie;

}

sub deleteAdminCookie {

my $self = shift;

my $cookie = new CGI:: Cookie (-name=>$cookies:: admin,

value=>'',

expires=>'-1d',

);

print "Set-Cookie: $cookie\n";

}

sub setAdminCookie {

my $self = shift;

my $cookie = new CGI:: Cookie (-name=>$cookies:: admin,

value=>$self->generatePID (),

);

print "Set-Cookie: $cookie\n";

}

sub GetMySQLErrorStr {

return $DBI:: errstr;

}

sub prepare {

my $self = shift;

my $sql = shift || return;

return $self->{dbh}->prepare ($sql);

}

sub execute {

my $self = shift;

my $sth = shift;

my @params = @_;

$self->{queries}++;

$sth->execute (@params);

}

sub do {

my $self = shift;

my $sql = shift || return;

$self->{dbh}->do ($sql);

$self->{queries}++;

}

1;

template. pm

package template;

use strict;

sub new {

my $class = shift;

my $template = shift;

my $cmd = shift || 'ONLYBODY';

my $this ={'pagecontent' => ''};

bless $this, $class;

if (defined ($template)) {

$this->parse ($template,$cmd);

}

return $this;

}

sub parse {

my $this = shift;

my $filename = shift;

my $cmd = shift || 'ONLYBODY';

if (-e $filename) {

open (FILE, $filename);

local $/;

undef $/;

my $contents = <FILE>;

if ($cmd eq 'ONLYBODY') {

$contents =~ /<body. +? > (. +) <\/body>/is;

$contents = $1;

}

$this->{'pagecontent'} = $contents;

close (FILE);

}

else {

print "content-type: text/html\n\n";

print "<h3><font color=red>Error! </font>\n</h3>";

print "<p>Can not find <b>$filename</b> template! ><br>\n";

}

}

sub print

{

my $this = shift;

my $printContentType = shift;

my $pagelen = length ($this->{'pagecontent'});

if ($printContentType ne 'NO') {

print "Content-type: text/html\n";

print 'Content-length: '. $pagelen. "\n" if ($printContentType ne 'NOLEN');

print "\n";

}

binmode (STDOUT);

print ($this->{'pagecontent'});

$this->{'pagecontent'}='';

}

sub replaceContent

{

my $this = shift;

my $key = shift || '';

my $value = shift;

my $startdelimiter = shift || '<!! ';

my $enddelimiter = shift || '!! >';

if (ref ($value)) {

$this->{'pagecontent'} =~ s/$startdelimiter$key$enddelimiter/$$value/gis;

} else {

$this->{'pagecontent'} =~ s/$startdelimiter$key$enddelimiter/$value/gis;

}

}

sub replaceContentHash

{

my $this = shift;

my $hash = shift;

my $startdelimiter = shift || '<!! ';

my $enddelimiter = shift || '!! >';

foreach my $key (keys (%$hash)) {

if ($key =~ s/^_ // o) {

$this->{'pagecontent'} =~ s/$startdelimiter$key$enddelimiter/HTMLescape ($hash->{"_$key"}) /ges;

} else {

$this->{'pagecontent'} =~ s/$startdelimiter$key$enddelimiter/$hash->{$key}/gs;

}

}

}

sub clearAllTags

{

my $this = shift;

my $hash = shift;

my $startdelimiter = shift || '<!! ';

my $enddelimiter = shift || '!! >';

$this->{'pagecontent'} =~ s/$startdelimiter (. +?) $enddelimiter // gs;

$this->{'pagecontent'} =~ s/$startdelimiter\/ (. +?) $enddelimiter // gs;

#$startdelimiter = '<<';

#$enddelimiter = '>>';

#$this->{'pagecontent'} =~ s/$startdelimiter (. +?) $enddelimiter // gs;

}

sub clearLoopTags

{

my $this = shift;

my $name = shift ||". +";

$name = " ($name)";

my $startdelimiter = shift || '<!! ';

my $enddelimiter = shift || '!! >';

$this->{'pagecontent'} =~ s/$startdelimiter$name$enddelimiter (. *?) $startdelimiter\/\1$enddelimiter // gs;

}

sub createLoopContent

{

my $this = shift;

my $dbh = shift || return;

my $sql = shift || return;

my @list;

my $sth = $dbh->prepare ($sql);

$sth->execute;

while (my $hash_ref = $sth->fetchrow_hashref)

{

push @list, $hash_ref;

}

return \@list;

}

sub replaceLoopContent

{

my $this = shift;

my @modeltext;

my $listtype = shift || '';

my $listdata = shift || goto EMPTY;

my $colums = shift || '';

my $rows_split = shift || '</tr><tr valign=top>';

my $i = $colums;

if (@$listdata) {

$this->{'pagecontent'} =~ m/<!! $listtype!! > (. *?) <!! \/$listtype!! >/gis;

my $model = $1;

foreach my $item (@$listdata) {

my $line = $model;

foreach my $key (keys %$item) {

if ($key =~ s/^_ // o) {

$line =~ s/<!! $key!! >/HTMLescape ($item->{'_'. $key}) /ges;

} else {

$line =~ s/<!! $key!! >/$item->{$key}/gs;

}

}

push @modeltext,$line;

if ($colums &&! (--$i)) {

push @modeltext,$rows_split;

$i = $colums;

}

}

}

EMPTY:

$this->{'pagecontent'} =~ s/<!! $listtype!! > (. *?) <!! \/$listtype!! >/join ('',@modeltext) /gies;

}

sub getContent

{

my $this = shift;

return $this->{'pagecontent'};

}

sub getContentRef

{

my $this = shift;

return \$this->{'pagecontent'};

}

sub setContents

{

my $this = shift;

my $contents = shift || '';

$this->{'pagecontent'} = $contents;

}

sub getFile {

my $file_name = shift;

if (-e $file_name)

{

open (TM, $file_name);

local $/;

undef $/;

my $file_cont = <TM>;

close (TM);

return $file_cont;

}

else

{

return "<p> [<font color=red>file include error - $file_name</font>] \n";

}

}

sub HTMLescape {

my $str = shift;

$str =~ s/\"/&quot; /go;

$str =~ s/\</&lt; /go;

$str =~ s/\>/&gt; /go;

return $str;

}

sub DESTROY {

my $this = shift;

}

1;

localset. pm

package paths;

$root = "/корневая_директория/html";

$url = "http://адрес_сайта.ru"; (корневая ссылка)

package mysql;

$host = "адрес_хоста_mysql.ru";

$pass = "пароль_mysql";

$user = "пользователь_mysql";

$base = "база_mysql";

settings. pm

use localset;

package max;

$scripttime = 80000000; # время выполнения скрипта

$goodsperpage = 20;

$sessionlength = 60; #minutes

package tables;

$goods = "goods";

$mygoods = "ordergoods";

$users = "users";

$sessions = "sessions";

$settings = "settings";

package files;

$oldi_file = $paths:: root. "/oldi. txt";

$nix_file = $paths:: root. "/nix. txt";

$stoik_file = $paths:: root. "/stoik. txt";

$archive_file = $paths:: root. "/archive. zip";

package cookies;

$name = "STOIK_COOK";

$admin = "STOIK_ADMIN_COOK";

package settings;

$pricedate = "PRICEDATE";

$printcount = "PRINTCOUNT";

1;

stoic_goods. htm

<html>

<head>

<title>Стоик - Компьютеры, комплектующие, расходные материалы. </title>

<meta http-equiv="Content-Type" content="text/html; charset=windows-1251">

<link href="stoikcss. css" rel="stylesheet" type="text/css">

<link href="nlstree3. css" rel="stylesheet" type="text/css">

<!! meta!! >

</head>

<body bgcolor="#FFFFFF" text="#000000" link="#0066CC" vlink="#006699">

<script language="JavaScript" src="nlstree. js"></script>

<script language="JavaScript" type="text/JavaScript">

var t = new NlsTree ("Pub");

function IconSet1 (path) {

this. pnb = path+"plus. gif";

this. pb = path+"plus. gif";

this. mnb = path+"minus. gif";

this. mb = path+"minus. gif";

this. opf = path+"folderopen. gif";

this. clf = path+"folder. gif";

this. chd = path+"leaf. gif";

this. rot = path+"root. gif";

this. lnb = path+"blank. gif";

this. lb = path+"blank. gif";

this. lin = path+"blank. gif";

this. bln = path+"blank. gif";

this. toString = function () { return "Simple Icons"; }

return this;

}

function treeExpand (id) {

var expNode = t. getNodeById (id);

var frm;

if (document. frames) { // check if supportted. IE/OPERA

frm = document. frames ["comFrame"]. document. all.comForm;

} else { // NETSCAPE/MOZILLA/FF

var ifrm = NlsGetElementById ("comFrame");

var frm = (ifrm. contentDocument? ifrm. contentDocument. forms.comForm: ifrm. contentWindow. document. forms.comForm);

}

frm. pid. value=id;

frm. seller. value=expNode. xtra;

frm. submit ();

}

function showGoods (id,seller) {

var frm;

if (document. frames) { // check if supportted. IE/OPERA

frm = document. frames ["goodsFrame"]. document. all.comForm;

} else { // NETSCAPE/MOZILLA/FF

var ifrm = NlsGetElementById ("goodsFrame");

var frm = (ifrm. contentDocument? ifrm. contentDocument. forms.comForm: ifrm. contentWindow. document. forms.comForm);

}

frm. pid. value=id;

frm. seller. value=seller;

frm. submit ();

}

function addGoods (id,pid,seller,number) {

var frm;

if (document. frames) { // check if supportted. IE/OPERA

frm = document. frames ["myaccountgoodsFrame"]. document. all.comForm;

} else { // NETSCAPE/MOZILLA/FF

var ifrm = NlsGetElementById ("myaccountgoodsFrame");

var frm = (ifrm. contentDocument? ifrm. contentDocument. forms.comForm: ifrm. contentWindow. document. forms.comForm);

}

frm. id. value=id;

frm. pid. value=pid;

frm. seller. value=seller;

frm. number. value=number;

frm. submit ();

}

function addGoods2 (id,pid,seller) {

s = prompt ('Введите количество товара','2');

if (! isNaN (s)) {

addGoods (id,pid,seller,s);

} else {

alert (s+" - Это не число!");

}

}

function reloadInfo () {

var frm;

if (document. frames) { // check if supportted. IE/OPERA

frm = document. frames ["myaccountinfoFrame"]. document. all.comForm;

} else { // NETSCAPE/MOZILLA/FF

var ifrm = NlsGetElementById ("myaccountinfoFrame");

var frm = (ifrm. contentDocument? ifrm. contentDocument. forms.comForm: ifrm. contentWindow. document. forms.comForm);

}

frm. submit ();

}

function reloadGoods () {

var frm;

if (document. frames) { // check if supportted. IE/OPERA

frm = document. frames ["myaccountgoodsFrame"]. document. all.comForm;

} else { // NETSCAPE/MOZILLA/FF

var ifrm = NlsGetElementById ("myaccountgoodsFrame");

var frm = (ifrm. contentDocument? ifrm. contentDocument. forms.comForm: ifrm. contentWindow. document. forms.comForm);

}

frm. submit ();

}

function reloadGoods2 () {

var frm;

if (document. frames) { // check if supportted. IE/OPERA

frm = document. frames ["goodsFrame"]. document. all.comForm;

} else { // NETSCAPE/MOZILLA/FF

var ifrm = NlsGetElementById ("goodsFrame");

var frm = (ifrm. contentDocument? ifrm. contentDocument. forms.comForm: ifrm. contentWindow. document. forms.comForm);

}

frm. submit ();

}

function CreateTree (tree) {

t. ico = new IconSet1 ("tree_img/");

t. opt. stlprf = "tree3";

t. opt. selRow = true;

<!! tree!! >

t. opt. editable=false;

t. treeOnExpand = treeExpand;

t. render ("mytree1");

}

function GoSearch (a) {

var artikul = a;

var frm;

var str;

str = document. getElementById ('searchtext'). value;

if (document. frames) { // check if supportted. IE/OPERA

frm = document. frames ["goodsFrame"]. document. all. searchForm;

} else { // NETSCAPE/MOZILLA/FF

var ifrm = NlsGetElementById ("goodsFrame");

var frm = (ifrm. contentDocument? ifrm. contentDocument. forms. searchForm: ifrm. contentWindow. document. forms. searchForm);

}

frm. artikul. value=artikul;

frm. str. value=str;

frm. submit ();

}

function GoSearch2 (field,e) {

var keycode;

if (window. event) keycode = window. event. keyCode;

else if (e) keycode = e. which;

else return true;

if (keycode == 13)

{

GoSearch (0);

}

}

function GoSearchReload () {

var frm;

var str;

str = document. getElementById ('searchtext'). value;

if (document. frames) { // check if supportted. IE/OPERA

frm = document. frames ["goodsFrame"]. document. all. searchForm;

} else { // NETSCAPE/MOZILLA/FF

var ifrm = NlsGetElementById ("goodsFrame");

var frm = (ifrm. contentDocument? ifrm. contentDocument. forms. searchForm: ifrm. contentWindow. document. forms. searchForm);

}

frm. str. value=str;

frm. submit ();

}

function resizeFrame (frameid,maxHeight) {

var getFFVersion=navigator. userAgent. substring (navigator. userAgent. indexOf ("Firefox")). split ("/") [1]

var FFextraHeight=parseFloat (getFFVersion) >=0.1? 16: 0 // extra height in px to add to iframe in FireFox 1.0+ browsers

var h;

var currentfr;

currentfr = document. getElementById (frameid);

if (document. frames) {

h = document. frames (frameid). document. body. scrollHeight;

if (maxHeight > 0 && h > maxHeight) {

h = maxHeight;

}

currentfr. style. height = h;

} else {

h = currentfr. contentDocument. body. offsetHeight + FFextraHeight;

if (maxHeight > 0 && h > maxHeight) {

h = maxHeight;

}

currentfr. height = h;

}

}

function showLayer (n) {

var x=document. getElementById (n);

x. style. visibility = "visible";

}

function closeLayer (n) {

var x=document. getElementById (n);

x. style. visibility = "hidden";

}

function getFormByFrameName (frame,form) {

var frm;

if (document. frames) { // check if supportted. IE/OPERA

frm = document. frames (frame). document. all (form);

} else { // NETSCAPE/MOZILLA/FF

var ifrm = document. getElementById (frame);

frm = (ifrm. contentDocument? ifrm. contentDocument. getElementById (form): ifrm. contentWindow. document. getElementById (form));

}

return frm;

}

function Login () {

var frm = getFormByFrameName ('myaccountgoodsFrame','comForm');

frm. cmd. value='login';

frm. submit ();

}

function Logout () {

var frm = getFormByFrameName ('myaccountgoodsFrame','comForm');

frm. cmd. value='logout';

frm. submit ();

}

function Register () {

var frm = getFormByFrameName ('myaccountgoodsFrame','comForm');

frm. cmd. value='register';

frm. submit ();

}

function ChangePass () {

var frm = getFormByFrameName ('myaccountgoodsFrame','comForm');

frm. cmd. value='changepass';

frm. submit ();

}

function Welcome () {

var frm = getFormByFrameName ('goodsFrame','comForm');

frm. cmd. value='welcome';

frm. submit ();

}

function Aboutus () {

var frm = getFormByFrameName ('goodsFrame','comForm');

frm. cmd. value='aboutus';

frm. submit ();

}

function Order () {

var frm = getFormByFrameName ('goodsFrame','comForm');

frm. cmd. value='order';

frm. submit ();

}

function Buy () {

var frm = getFormByFrameName ('goodsFrame','comForm');

frm. cmd. value='buy';

frm. submit ();

}

function Deliver () {

var frm = getFormByFrameName ('goodsFrame','comForm');

frm. cmd. value='deliver';

frm. submit ();

}

function Uslugi () {

var frm = getFormByFrameName ('goodsFrame','comForm');

frm. cmd. value='uslugi';

frm. submit ();

}

function Basket () {

var frm = getFormByFrameName ('myaccountgoodsFrame','comForm');

frm. cmd. value='myaccountgoods';

frm. submit ();

}

function Sendmail () {

var frm = getFormByFrameName ('goodsFrame','comForm');

frm. cmd. value='sendmail';

frm. submit ();

}

function Admin () {

window. location. href="? cmd=admin";

}

</script>

<table>

<table width="100%" border="0" cellpadding="0" cellspacing="0">

<tr>

<td width="201" valign="top" class="rightline"><table width="100%" border="0" cellpadding="0" cellspacing="0">

<tr>

<td class="tblheader"><b>П</b>РАЙС<b>-</b>ЛИСТ</td>

</tr>

<tr>

<td><span class="verysmall-black">Ассортимент и цены обновлены: <br><strong><!! pricedate!! ></strong></span></td>

</tr>

<tr>

<td height="1"><img src="img/pixel. gif"></td>

</tr>

<tr>

<td><form action="" method="get" onSubmit="javascript: return false; ">

<input name="searchtext" id="searchtext" type="text" size="25" onKeyPress="javascript: GoSearch2 (this,event); ">

<a href="#"><img src="img/find. gif" width="16" height="16" border="0" align="middle" title="Поиск по наименованию" onClick="javascript: GoSearch (0); "></a><a href="#"><img src="img/find_a. gif" width="16" height="16" border="0" align="middle" title="Поиск по артикулу" onClick="javascript: GoSearch (1); "></a>

</form>

<a href="#"></a></td>

</tr>

<tr valign="top">

<td id="mytree1">&nbsp; </td>

</tr>

<script language="JavaScript" type="text/javascript">

CreateTree ();

</script>

<tr valign="top">

<td class="tblheader">Информация</td>

</tr>

<tr valign="top">

<td><img src="img/pixel. gif"></td>

</tr>

<tr valign="top">

<td valign="middle"><div align="center">

<script>

document. write ('<a href="http://www.informer.ru/cgi-bin/redirect. cgi? id=172_1_1_33_39_1-0&url=http://www.rbc.ru&src_url=usd/usd_dm_cb_000066_88x61. gif" target="_blank"><img src="http://pics. rbc.ru/img/grinf/usd/usd_dm_cb_000066_88x61. gif? '+ Math. floor (100000*Math. random ()) + '" WIDTH=88 HEIGHT="61" border=0></a>');

</script>

<a href="http://www.gismeteo.ru/towns/27703. htm"><img alt="GISMETEO.ru: погода в г. Калуга" src="http://informer. gismeteo.ru/g30/27703-30. GIF" border=0 width=110 height=60></a></div><br></td>

</tr>

<tr>

<td class="tblheader">Новости Hardware</td>

</tr>

<tr>

<td>

<script language="javascript" type="text/javascript">

var encoding="0";

var news_link = "http://rsslenta.ru/? event=viewrss&type=js&source_id=10196&align_text=0&font_size=6&font_text=2&feed_width=201&frame_color=000000&table_spacing=0&item_spacing=10&title_color=000000&title_bg=FFFFFF&headline_color=006699&item_color=006699&box_bg=&open_blank=1&hidefeed_title=1&feed_compact=1&max_item=10&limit_chars=150";

</script>

<script language="javascript" src="http://rsslenta.ru/js/view_rss. js">

</script>

<noscript>

<a href="http://rsslenta.ru/visitor/syndication/id/7552">Subscribe to RSS headline updates. </a>

</noscript>

</td>

</tr>

<tr>

<td><hr>

</td>

</tr>

<tr>

<td></td>

</tr>

<tr>

<td><table width="100%" border="0">

<tr>

<td height="0"></td>

<td height="0"></td>

</tr>

<tr>

<td><p align="left"><! - begin of Top100 logo - ->

<a href="http://top100. rambler.ru/home? id=1614566"><img src="http://top100-images. rambler.ru/top100/banner-88x31-rambler-blue. gif" alt="Rambler's Top100" width="88" height="31" border="0" /></a>

<! - end of Top100 logo - ->

</p></td>

<td><p align="right"><! - -Rating@Mail.ru COUNTER--><script language="JavaScript" type="text/javascript"><! - -

d=document; var a=''; a+='; r='+escape (top. document. referrer)

js=10 // --></script><script language="JavaScript1.1" type="text/javascript"><! - -

a+='; j='+navigator. javaEnabled ()

js=11 // --></script><script language="JavaScript1.2" type="text/javascript"><! - -

s=screen; a+='; s='+s. width+'*'+s. height

a+='; d='+ (s. colorDepth? s. colorDepth: s. pixelDepth)

js=12 // --></script><script language="JavaScript1.3" type="text/javascript"><! - -

js=13 // --></script><script language="JavaScript" type="text/javascript"><! - -

d. write ('<a href="http://top. mail.ru/jump? from=1590409"'+

' target="_top"><img src="http://d4. c4. b8. a1. top. mail.ru/counter'+

'? id=1590409; t=211; js='+js+a+'; rand='+Math. random () +

'" alt="Рейтинг@Mail.ru"'+' border="0" height="31" width="88"/><\/a>')

if (11<js) d. write ('<'+'! - ') // --></script><noscript><a

target="_top" href="http://top. mail.ru/jump? from=1590409"><img

src="http://d4. c4. b8. a1. top. mail.ru/counter? js=na; id=1590409; t=211"

border="0" height="31" width="88"

alt="Рейтинг@Mail.ru"/></a></noscript><script language="JavaScript" type="text/javascript"><! - -

if (11<js) d. write ('--'+'>') // --></script><! - -/COUNTER-->

</p></td>

</tr>

<tr>

<td height="0"></td>

<td height="0"></td>

</tr>

<tr>

<td><p align="left"><img src="img/counterkaluga. gif"></p></td>

<td><p align="right"><img src="img/count5kalugacity. gif"></p></td>

</tr>

</table></td>

</tr>

</table> </td>

<td valign="top">

<iframe scrolling="no" marginwidth="0" marginheight="0" frameborder="0" id="myaccountinfoFrame" width="100%" src="<!! rooturl!! >? cmd=myaccountinfo"></iframe>

<iframe scrolling="auto" marginwidth="0" marginheight="0" frameborder="0" id="menuhowFrame" height="25" width="100%" src="<!! rooturl!! >? cmd=menuhow"></iframe>

<iframe scrolling="auto" marginwidth="0" marginheight="0" frameborder="0" id="myaccountgoodsFrame" width="100%" src="<!! rooturl!! >? cmd=myaccountgoods"></iframe>

<iframe scrolling="auto" marginwidth="0" marginheight="0" frameborder="0" id="goodsFrame" width="100%" src="<!! rooturl!! >? cmd=welcome"></iframe>

</td>

</tr>

</table>

<iframe src="<!! rooturl!! >? cmd=showtree" height="1" width="1" frameborder="0" id="comFrame"></iframe>

<form action="" method="post" name="comForm" id="comForm">

<input name="cmd" type="hidden" id="cmd" value="reloadgoodsframe">

</form>

<! - begin of Top100 code - ->

<script id="top100Counter" type="text/javascript" src="http://counter. rambler.ru/top100. jcn? 1614566"></script><noscript><img src="http://counter. rambler.ru/top100. cnt? 1614566" alt="" width="1" height="1" border="0"></noscript>

<! - end of Top100 code - ->

</body>

</html>

Размещено на Allbest.ru