Easy Question i think (Script Inside)

[nieche]

How can I get this script to save the file with the days date and time as the name. and help would be appreciated.
Thanks

Script:
==================================================
<%
Dim filesys, txtfile
Set filesys = CreateObject("Scripting.FileSystemObject")
Set txtfile = filesys.CreateTextFile("C:\test.txt", true)

dim item
for each item in Request.Form
txtFile.WriteLine (Request.Form (item))
next
txtfile.close 'close the file
set txtFile = nothing


%>
===========================================================

Try this: (hopefully the Format function works in scripting)
These won't be 8/3 filenames (obviously.)
==================================================
<%
Dim filesys, txtfile
Set filesys = CreateObject("Scripting.FileSystemObject")
Dim strFileName as string
strFileName = Format(Now, "MMDDYYHHMM")
strFileName = filesys.buildpath("C:\", strFileName & ".txt")
Set txtfile = filesys.CreateTextFile(strFileName, true)

dim item
for each item in Request.Form
txtFile.WriteLine (Request.Form (item))
next
txtfile.close 'close the file
set txtFile = nothing


%>
===========================================================