<%
' main=nazev.ext	- jméno hlavního HTML souboru,
' id=nazev.ext	- jméno vkládaného souboru,
' screen=nazev.ext	- jméno databáze ze seznamem obrázku,
' /ins	- vloží na toto místo ID soubor,

' Deklarace proměnných,
Dim FileIns, Fso, FileStatus, NewLine, Count

' Načtení udajů do proměnných,
FileIns = Request("id")		' jméno vkládaného HTML,
FileIns = FileIns+".inc"		' doplnění koncovky,

' Otevření hlavního HTML souboru,
Set Fso = Server.CreateObject("Scripting.FileSystemObject")
Set FileStatus = Fso.OpenTextFile(Server.MapPath("part.asp"))

' Postupné čtení hlavního HTML po řádcích až na jeho konec,
Do While Not FileStatus.AtEndOfStream

' Načtení jednoho řádku z hlavního HTML,
NewLine = FileStatus.ReadLine

' Test na vložení insert HTML,
 If NewLine = "/ins" Then
  Dim FileInsert
  Set FileInsert = Fso.OpenTextFile(Server.MapPath(FileIns))
  NewLine = FileInsert.ReadAll
  Response.Write "" & NewLine + Chr(13) 
  FileInsert.Close
  NewLine = ""
 End If

' Zapsání do HTML souboru,
 Response.Write "" & NewLine + Chr(13)
Loop

' Zrušení proměnných,
Set NewLine = Nothing
FileStatus.Close 
Set Fso = Nothing
Set FileIns = Nothing
Set FileMain = Nothing
%>