<%
Set objFso = Server.CreateObject("Scripting.FileSystemObject")
Set objFile = objFso.OpenTextFile("c:\b.txt", 2, True)
If Err.Number > 0 Then
Call Response.Write "Open Error"
Else
objFile.WriteBlankLines 10
End If
objFile.Close
Set objFile = Nothing
Set objFso = Nothing
%>
|