thecoder adlı üyeden alıntı: mesajı görüntüle

deneme.html diye boş bir sayfa açıldı ama sunucuya html dosyası oluşmadı sunucuda bir dosya oluşmasını istiyorum kullanıcı sonradan gelip o dosyaya baksın diye

<%
isim=Request.Form("isim")
If isim="" Then
Response.Write "Lütfen isim yazın."
Else
Dim objFso
Set objFso = Server.CreateObject("Scripting.FileSystemObject")
If Not objFso.FileExists(Server.MapPath("/"&isim&".html")) Then
Dim objHtml
Set objHtml = objFso.CreateTextFile(Server.MapPath("/"&isim&".html"), True)
objHtml.Writeline "içerik"
objHtml.Close
Response.Redirect "/"&isim&".html"
Else
Response.Write "Bu sayfa zaten var"
End If
Set objFso=Nothing
End If
%>