Hur gör man om man i ex ett <textarea></textarea> vill spara texten som man skickar iväg till en textfil (.txt). <code> jag har skivit följande: Du får använda dej av två filer tack för hjälpen, men texten från <textarea></textarea> följer ju inte med in i .txt-filen. Det enda som står där är texten i koden och hur redirectar man till en annan sida???. Jag har inte testat detta, men något sådant här borde fungera:Skriva till en textfil i ASP
/StefanSv: Skriva till en textfil i ASP
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
Set B = ScriptObject.OpenTextFile(Server.MapPath("fil.txt"), 2, True)
B.WriteLine "Min text"
B.Close
Set B=Nothing
Set ScriptObject=Nothing
</code>
/JohanSv: Skriva till en textfil i ASP
<%
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
Set B = ScriptObject.OpenTextFile(Server.MapPath("fil.txt"), 2, True)
B.WriteLine "Min text"
B.Close
Set B=Nothing
Set ScriptObject=Nothing
%>
<form action="mailto:stefan-ekstrom@home.se?test av asp" method=post enctype="text/plain">
<textarea name="testtext" cols=23 rows=4 wrap=physical>
</textarea>
<input type="submit" value="skicka">
</form>
men det funkar inte.........vad är det för fel????
/StefanSv: Skriva till en textfil i ASP
En med själva formuläret och en som heter add.asp eller nått
i formulär filen skriver du:
<code>
<form method="POST" action="add.asp">
<textarea name="testtext" cols=23 rows=4 wrap=physical>
</textarea>
<input type="submit" value="skicka">
</form>
</code>
Sen i add.asp får du skriva:
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
Set B = ScriptObject.OpenTextFile(Server.MapPath("fil.txt"), 2, True)
B.WriteLine Request.Form("testtext")
B.Close
Set B=Nothing
Set ScriptObject=Nothing
MVH
///JoelSv: Skriva till en textfil i ASP
Hur öppnar man dessutom ett nytt textformulär efter varje gång man trycker på submit??Sv: Skriva till en textfil i ASP
<code>
<%
if len(request.form("testext"))>0 then
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
Set B = ScriptObject.OpenTextFile(Server.MapPath("fil.txt"), 2, True)
B.WriteLine reguest.form("testtext")
B.Close
Set B=Nothing
Set ScriptObject=Nothing
end if
%>
<form action="namnetpådennafil.asp" method=post enctype="text/plain">
<textarea name="testtext" cols=23 rows=4 wrap=physical>
</textarea>
<input type="submit" value="skicka">
</form>
</code>
/Johan