%@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
%>
Замечание: Ссылки собраны Роботом и
их работоспособность гарантируется
только на день выхода Рассылки. Принимаем
любые предложения по оформлению
рассылки и по возможным сайтам-источникам.
Замечание: Ссылки собраны Роботом и
их работоспособность гарантируется
только на день выхода Рассылки. Принимаем
любые предложения по оформлению
рассылки и по возможным сайтам-источникам.