Åbne ASP fil med FSO og skrive til den

Hej

hvordan laver man sådan at man kan åbne alle slags tekxt baserede filer med FSO altså ASP, html, php, css og den slags som det er nu vil mit script kun åbne txt filer her kommer os lige koden:

set fso = CreateObject("Scripting.FileSystemObject")
response.write "<br>Findes filen i denne mappe = " & fso.fileExists(server.mappath(fil))

set objFil = fso.GetFile(server.mappath(fil))
set objFilStream= objFil.OpenAsTextStream(1)

if not objFilStream.AtEndOfStream then
response.write "<form method='post' action='" & Curfile & "?action=write&fil=" & fil & "'>"
response.write "<textarea name='file' cols='40' rows='10'>" & objFilStream.ReadAll & "</textarea>"
response.write "<br><input type='submit' value='Gem'>"

Håber i kan hjælpe