<% Option Explicit Dim text, jmeno, email, textik, retez, fs, a 'do proměnné text vloží obsah formulářového pole text text = request.form("text") 'do proměnné jmeno vloží obsah formulářového pole jmeno jmeno = request.form("jmeno") 'do proměnné email vloží obsah formulářového pole email email = request.form("email") 'nahradíme všechny možné konce řádků textik = replace(text,vbNewLine,"
") 'sestavíme řetězec z námi vybraných proměnných retez = Now & vbtab & jmeno &vbtab & email & vbtab & textik 'vytvoříme objekt filesystemu set fs = Server.CreateObject("Scripting.FileSystemObject") 'otevřeme soubor pro přidávání Set a = fs.OpenTextFile(Server.MapPath("test.txt"), 8, True) 'zapíšeme řádku do souboru a.WriteLine retez 'zavřeme soubor a.close 'zrušíme objekt filesystemu set fs = nothing response.redirect "form.asp" %>