Lav en asp fil online

Jeg vil gerne lave et script som kan lave en asp side online, men jeg kan ikke få den til at lave en asp fil kun .txt, .htm og .php4 er der nogen der kan hjælpe mig?

Koden er her:
<%
if request.form(\"titel\") <> \"\" then
    titel=request.form(\"titel\")
    indhold=request.form(\"indhold\")
    Dim fso, f1, ts
    Const ForWriting = 2
    Set fso = CreateObject(\"Scripting.FileSystemObject\")
    fso.CreateTextFile (server.mappath(titel))
    Set f1 = fso.GetFile(server.mappath(titel))
    Set ts = f1.OpenAsTextStream(ForWriting, True)
    ts.Write(indhold)
    ts.Close
%>
Klik <a href=\"<%= titel%>\">her</a> for at se siden.
<%
end if
%>
<form action=\"lavfil.asp\" method=\"post\">
<input type=\"input\" name=\"titel\" value=\"skriv filnavnet\"><br>
<textarea name=\"indhold\" rows=\"20\" cols=\"40\">skriv koden som siden skal indeholde</textarea><br>
<input type=\"submit\">
</form>