<% idn = Request.QueryString("id") IF idn = "" AND archive = "" THEN SQLZapros = "SELECT id_news,name_news,date_news,short_text_news,img_news,text_news FROM hrdb_news WHERE pub_news = 1 ORDER BY id_news DESC" Set rs = Baza.Execute (SQLZapros) if not rs.eof then do until rs.eof id_news = rs("id_news") en_ru_url = "http://www.online-translator.com/url/tran_url.asp?lang=en&url=http%3A%2F%2Fwww.prorobotics.ru%2Fprorobotics.asp%3Fid%3D" & id_news & "&direction=er&template=General&cp1=NO&cp2=NO&psubmit2.x=33&psubmit2.y=10" ru_en_url = "http://www.translate.ru/url/tran_url.asp?lang=ru&url=http%3A%2F%2Fwww.hprobotics.com%2Fhomerobotics.asp%3Fid%3D" & id_news & "&direction=er&template=General&cp1=NO&cp2=NO&psubmit2.x=67&psubmit2.y=16"%> <% rs.MoveNext loop end if%> <% ELSE IF archive = "show" THEN%> <% ELSE SQLZapros = "SELECT id_news,name_news,date_news,short_text_news,img_news,text_news FROM hrdb_news WHERE (pub_news = 1 OR pub_news = 2) AND id_news = " & idn Set rs = Baza.Execute (SQLZapros) if not rs.eof then do until rs.eof id_news = rs("id_news") en_ru_url = "http://www.online-translator.com/url/tran_url.asp?lang=en&url=http%3A%2F%2Fwww.prorobotics.ru%2Fprorobotics.asp%3Fid%3D" & id_news & "&direction=er&template=General&cp1=NO&cp2=NO&psubmit2.x=33&psubmit2.y=10" ru_en_url = "http://www.translate.ru/url/tran_url.asp?lang=ru&url=http%3A%2F%2Fwww.hprobotics.com%2Fhomerobotics.asp%3Fid%3D" & id_news & "&direction=er&template=General&cp1=NO&cp2=NO&psubmit2.x=67&psubmit2.y=16"%> <% rs.MoveNext loop end if END IF END IF%> <% Baza.Close() Set Baza = Nothing%>
Home Robotics Pro Robotics


RSS feed automatically translated by Online-Translator.com into russian

Модели роботов
действующие экспериментальные и серийные модели роботов с описанием
Статьи, обзоры
архив ежемесячной рассылки, библиографические данные, события в робототехнике, ссылки на полезные ресурсы
подробнее >>> подробнее >>>
Комплектующие роботов
характеристики и описания отдельных частей и механизмов, технологические разработки, применение которых возможно в робототехнике
Форум
общение с единомышленниками, создателями и пользователями роботов, помощь в работе с роботами
подробнее >>> подробнее >>>
Программное обеспечение роботов
интеллектуальные системы (нейронные сети и экспертные системы), программные боты, алгоритмы (или стандартные алгоритмы)
Контактная информация
участники проекта, информация о проекте, приглашение для инвесторов и авторов статей, вакансии для робототехников, партнерская зона для организаций

подробнее >>> подробнее >>>
ROBOART
ROBOMUSIC, ROBOPAINTING, ROBOFILMS, ROBOSCULPTURE - музыка, картины, фильмы и скульптуры, которые создают роботы, и в которых участвуют роботы
Интернет-журнал
вышел объединенный номер Интернет-журнала №1,2,3 (4,5,6) 2007, готовится к выпуску №4(7), редакция принимает статьи и материалы от авторов до 25 числа каждого месяца

подробнее >>> подробнее >>>
 
 
 
 
 
подписка на новости            
<% archive = Request.QueryString("archive") if archive = "show" then%> Новости из мира робототехники - Архив новостей

<% else%> Новости из мира робототехники

<% end if%>
">" width="50" height="50" border="1" alt=""> <%=rs("date_news")%> | <%=rs("name_news")%>
<%=rs("short_text_news")%>
automatically translated by Online-Translator.com into russian automatically translated by Online-Translator.com into english


[посмотреть архив новостей]

<% for i = 1 to 2 for j = 1 to 12 Select Case i Case 1 yyyy = "2006" Case 2 yyyy = "2007" Case 3 yyyy = "2008" Case 4 yyyy = "2009" Case 5 yyyy = "2010" End Select Select Case j Case 1 month_news = "январь" mm = "01" Case 2 month_news = "февраль" mm = "02" Case 3 month_news = "март" mm = "03" Case 4 month_news = "апрель" mm = "04" Case 5 month_news = "май" mm = "05" Case 6 month_news = "июнь" mm = "06" Case 7 month_news = "июль" mm = "07" Case 8 month_news = "август" mm = "08" Case 9 month_news = "сентябрь" mm = "09" Case 10 month_news = "октябрь" mm = "10" Case 11 month_news = "ноябрь" mm = "11" Case 12 month_news = "декабрь" mm = "12" End Select mm_yyyy = "__." & mm & "." & yyyy i_article = 0 SQLZapros = "SELECT id_news,date_news,pub_news FROM hrdb_news WHERE pub_news = 2 AND date_news LIKE '" & mm_yyyy & "' ORDER by id_news" Set rs = Baza.Execute (SQLZapros) if not rs.eof then do until rs.eof i_article = i_article + 1 rs.MoveNext loop end if if i_article <> 0 then%>
  • <%=yyyy%>  <%=month_news%>


    • <% SQLZapros = "SELECT id_news,name_news,date_news,pub_news FROM hrdb_news WHERE pub_news = 2 AND date_news LIKE '" & mm_yyyy & "' ORDER by id_news" Set rs = Baza.Execute (SQLZapros) if not rs.eof then do until rs.eof name_news = rs("name_news") date_news = rs("date_news")%>
    • <%=date_news%>  "><%=name_news%>
    • <% rs.MoveNext loop end if%>
<% end if next next%>
[назад к ленте новостей]

" width="50" height="50" border="1" alt=""> <%=rs("date_news")%> | <%=rs("name_news")%> | automatically translated by Online-Translator.com into russian automatically translated by Online-Translator.com into english

<%=rs("short_text_news")%>

<%=rs("text_news")%>

[назад к ленте новостей] - [посмотреть архив новостей]


Новости от UAV.ru - Интернет-портал о беспилотной авиации

Новости от Droids.ru - российский ресурс по робототехнике


 
Новости от Robotronic.ru - робототехнический интернет-магазин


 
[наверх]

Copyright (c) 2003-2010 Home&Pro Robotics
Наш адрес: i n f o@h o m e r o b o t i c s.r u, i n f o@p r o r o b o t i c s.r u (без пробелов)
При использовании материалов сайта ссылка на Home&Pro Robotics обязательна

Rambler's Top100