<%
' Variablar för "File System Object" och Filen.
Dim oFSO, oTextFil

Set oFSO = CreateObject("Scripting.FileSystemObject")

' Öppnar filen
Set oTextFil = oFSO.CreateTextFile(Server.MapPath("textfil.txt"))

' Skriver till filen.
oTextFil.WriteLine "Text du vill skriva."

' Rad två i text filen
oTextFil.WriteLine "Rad två skrevs:" & Date() & "."

' Stänger filen & objecten.
oTextFile.Close
Set oTextFile = Nothing
Set oFSO = Nothing
%>