"
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 "- "&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 "