<%Response.Write "Доклады конференции - CAD/CAM/PDM - 2001" Response.Write "
" Response.Write "

Материалы конференции и выставки ""Системы проектирования, технологической подготовки производства и управления этапами жизненного цикла промышленного продукта. CAD/CAM/PDM-2001"".

Секция I. Организация структур технических и программных средств проектирования и управления. Средства взаимодействия, структуры данных, международные стандарты.

" Dim objFile Dim objStream Set objFile = Server.CreateObject("Scripting.FileSystemObject") Set objStream = objFile.OpenTextFile("e:\text\title.txt") i=1 first=0 Sub output () str="qwe" Response.Write "
    " Do While str<>"1234" str=objStream.ReadLine if str<>"1234" Then Response.Write "
  1. "&str&"
    " str=objStream.ReadLine if first=0 then Response.Write "" Response.Write str&"" Else Response.Write ""&str&"" End if i=i+1 End if Loop str="qwe" Response.Write "
" End Sub CALL output() Response.Write "

Секция II. Системы управления этапами жизненного цикла промышленного продукта. PDM-системы. Использование средств глобальных сетей.

" CALL output() Response.Write "

Секция III. Проектирование в машиностроении и строительстве.

" CALL output() 'first=1 Response.Write "

Секция IV. Интегрированные производственные системы.

" CALL output() objStream.Close Set objStream=Nothing Set objFile=Nothing Response.Write "
"%>