Отправляет email-рассылки с помощью сервиса Sendsay

Телеком в России: новости комуникаций на сегодня

Подписаться Бесплатная «Серебряная» новостная рассылка . Подписчиков 830 RSS
←   Октябрь 2006   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31


За последние 60 дней 31 выпусков (3-4 раза в неделю)


Сайт рассылки: http://www.russian-telecoms.net
Открыта: 06-03-2004
Адрес автора: industry.com.rustelecomnews-owner@subscribe.ru

Автор
Бездушный робот

Статистика

830 подписчиков
+1 за неделю
←   Все выпуски   →

Телеком в России: новости комуникаций на сегодня News


<%@LANGUAGE="VBSCRIPT" CODEPAGE="1251"%> 

 

<% 

 

Dim recordset 

Dim recordset_numRows 

 

Set recordset = Server.CreateObject("ADODB.Recordset") 

recordset.ActiveConnection = MM_telen2_STRING 

recordset.Source = "SELECT TelecomBySource.* FROM TelecomBySource;" 

recordset.CursorType = 1 

recordset.CursorLocation = 2 

recordset.LockType = 1 

recordset.Open() 

 

 

recordset_numRows = 0 

nrows=recordset.recordcount 

if nrows>0 then 

Dim array() 

redim array(nrows) 

'dim array(100) 

recordset.movefirst 

 

x=0 

%> 

<%  

 

Do While  (NOT recordset.EOF)  

array(x)=(recordset.Fields.Item("Name").Value) 

%> 

 

<% 

x=x+1 

recordset.MoveNext  

Loop  

%> 

<% dim array2(30) 

z=0 

array2(z)=array(0) 

%> 

<% for y=1 to x 

a = array(y) 

if a<>array2(z) and a<>"" then 

z=z+1 

array2(z)=a 

end if 

Next  

%> 

 

 

 

 

 

 

 

 

  

     





 
  
 
     

 

 

 

     








  <% For c=0 to z %>  

  <%recordset.MoveFirst%> 




  <% Do while (NOT recordset.EOF) %>  

  <%if array2(c)=recordset("Name") then%>  





  <%end if%>  

  <%recordset.MoveNext%>  

  <%Loop%> 




  <%Next%>  
  
  
  
     

    
 

   http://telecoms.kondrashov.ru"> 

    http://telecoms.kondrashov.ru/images/zagolovok1.jpg">
  
  
  
       
  
 
  
  
    <%=array2(c)%>  
  
    
  
  
    <%=(recordset.Fields.Item("Title").Value)%>  
  
  
   
 
  
       
  
   

  

 


http://subscribe.ru/member/quick METHOD=POST> 

 

 


 

 








 
  
 
     

      Замечание:  Ссылки собраны  

      Роботом и их работоспособность гарантируется только на день выхода  

      Рассылки. alexei@kondrashov.ru">Принимаем любые  

      предложения  по оформлению рассылки и по возможным  

      сайтам-источникам.		 
  
 
  
 
     

    
 

    http://telecoms.kondrashov.ru/images/zagolovok2.jpg">
 
  
 
    
 

 

 

 

<% 

erase array 

erase array2 

 

recordset.Close() 

Set recordset = Nothing 

 

else 

%> 

 

 

 

 

 

     


http://subscribe.ru/member/quick METHOD=POST> 

 

 


 

 

 

 

    		 
  
 

 

 

 

 

<%end if%>
В избранное