FSO-stillestånd

Hej, håller på att skapa en statisk html-sida med dynamisk information från en DB.

Jag har inte använt FSO så mycket innan, så jag misstänker att jag gjort det onödigt svårt för mig. Men man lär sig av sina misstag

Jag har kommit så här långt:

<%
'## -- Skapar en instans av FSO --
set fso = Server.CreateObject("Scripting.FileSystemObject")
	
'## -- hämta in tempete-filen --
set ourtext = fso.GetFile("template.tmp")

set ts = ourtext.OpenAsTextStream(1,-2)

'## -- Skapar en instans av FSO --
Set objFso = Server.CreateObject("Scripting.FileSystemObject")

'## -- Specifierar sökvägen till filen --
strFilePath = Server.Mappath( "\" ) & "/ny/default2.asp"

'## -- Öppnar filen, för läsning, 1 --
set objFile = objFso.OpenTextFile( strFilePath, 1 )

'## -- Lägger alla rader i ett array. Splittar på vbcrlf --
arrDesignFile = Split( objFile.ReadAll, vbcrlf )

'## -- Loopar igenom alla rader --
for i = 0 to ubound(arrDesignFile)

'## -- Skapa och infoga raderna från arrDesignFile(i) i en nyskapad fil, inkludera infot från loopen med början på rad 50 --
  

[b]Här vill jag skapa en ny text-fil av innehållet i arrDesignFile(i), samt infoga informationen med följande loop med början på rad 50 från filen default2.asp:

	Do while not ts.AtEndOfStream
		myText = ts.readline
		myText = replace(myText, "%img%", rsTemp("picURL"))
		myText = replace(myText, "%name%", rsTemp("FullName"))
		duties = replace(rsTemp("duties"), vbCrLf, "<br/>")
		myText = replace(myText, "%duties%", duties)
		myText = replace(myText, "%empID%", rsTemp("Id"))
		myText = replace(myText, "%date%", rsTemp("PicCaption"))
		Response.Write myText
	Loop
        set ts = nothing
	set ourtext = nothing
	set fso = nothing

sedan vill jag spara den nya filen med ett unikt namn tex dagens_datum.asp

[/b]

next

'## -- Stänger alla objekt --
objFile.Close
Set objFile = Nothing
Set objFso = Nothing

	rstemp.close
	set rstemp = nothing

	objDB.Close
	set objDB = nothing

end if

%>