Asp > Files

Make HTML File

Make HTML File

<% Const ForReading = 1, ForWriting = 2, ForAppending = 8
Dim strFileName, objFSO, objMenuPage

Set objFSO = CreateObject("Scripting.FileSystemObject")

strFileName = "c:	empMyFile2.htm"
Set objMenuPage = objFSO.createtextFile(strFileName, forWriting, True) 'overwrite

'write the HTML page
objMenuPage.WriteLine "<HTML><head><title>Test Creating file</title></title></head>"
objMenuPage.WriteLine "<BODY><P><B>List of files available</B></P>"
objMenuPage.WriteLine Now() //Write out the time Use all VBScript functions!
objMenuPage.WriteLine "</body></html>"


objMenuPage.Close %>