"
Response.Write "
Материалы конференции и выставки ""Системы проектирования, технологической подготовки производства и управления этапами жизненного цикла промышленного продукта. CAD/CAM/PDM-2002"".
Секция I. Организация структур технических и программных средств проектирования и управления. Средства взаимодействия, структуры данных, международные стандарты.
"
Dim objFile
Dim objStream
Set objFile = Server.CreateObject("Scripting.FileSystemObject")
Set objStream = objFile.OpenTextFile("e:\text2\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 "- "&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
first=1
CALL output()
Response.Write "
Секция II. Системы управления этапами жизненного цикла промышленного продукта. PDM-системы. Использование средств глобальных сетей.
"
CALL output()
Response.Write "
Секция III. Проектирование в радиоэлектронике.
"
CALL output()
Response.Write "
Секция IV. Проектирование в машиностроении и строительстве.
"
CALL output()
Response.Write "
Секция V. Интегрированные производственные системы.
"
CALL output()
objStream.Close
Set objStream=Nothing
Set objFile=Nothing
Response.Write "