<%@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 %>

Телеком в России, Новости за последние 24 часа

  home | о проекте | контакты | поиск 
<% For c=0 to z %> <%recordset.MoveFirst%> <% Do while (NOT recordset.EOF) %> <%if array2(c)=recordset("Name") then%> <%end if%> <%recordset.MoveNext%> <%Loop%> <%Next%>
<%=array2(c)%>
<%=(recordset.Fields.Item("Title").Value)%>
 
Замечание: Ссылки собраны Роботом и их работоспособность гарантируется только на день выхода Рассылки. Принимаем любые предложения  по оформлению рассылки и по возможным сайтам-источникам.
 
 
Подписка на эту рассылку

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

 
 
   

   (C) 2001-2004 Russian Telecom

<% erase array erase array2 recordset.Close() Set recordset = Nothing else %>

Телеком в России, Новости за последние 24 часа

  home | о проекте | контакты | поиск 
 
Замечание: Ссылки собраны Роботом и их работоспособность гарантируется только на день выхода Рассылки. Принимаем любые предложения  по оформлению рассылки и по возможным сайтам-источникам.
 
 
Подписка на эту рассылку

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

 
 
   

   (C) 2001-2004 Russian Telecom

<%end if%>