<% tYp=request.form("typ") rAdio=request.form("val") if tYp="jnytt" then if rAdio="open" then fil=server.mappath("jnytt.txt") set mfs=Server.CreateObject("Scripting.FileSystemObject") set bno=mfs.OpenTextFile(fil,1) rGno=bno.readAll bno.close end if if rAdio="laeg" then birdy=request.form("bird") if birdy="äpple" then nytext=request.form("hawk") fil=server.mappath("jnytt.txt") set mfs=Server.CreateObject("Scripting.FileSystemObject") set bno=mfs.OpenTextFile(fil,8) bno.writeline "

---

" bno.write nytext bno.close end if end if if rAdio="over" then birdy=request.form("bird") if birdy="äpple" then nytext=request.form("hawk") fil=server.mappath("jnytt.txt") set mfs=Server.CreateObject("Scripting.FileSystemObject") set bno=mfs.CreateTextFile(fil,true) bno.write nytext bno.close end if end if elseif tYp="instr" then if rAdio="open" then fil=server.mappath("jinstr.txt") set mfs=Server.CreateObject("Scripting.FileSystemObject") set bno=mfs.OpenTextFile(fil,1) rGno=bno.readAll bno.close end if if rAdio="laeg" then birdy=request.form("bird") if birdy="äpple" then nytext=request.form("hawk") fil=server.mappath("jinstr.txt") set mfs=Server.CreateObject("Scripting.FileSystemObject") set bno=mfs.OpenTextFile(fil,8) bno.writeline "

---

" bno.write nytext bno.close end if end if if rAdio="over" then birdy=request.form("bird") if birdy="äpple" then nytext=request.form("hawk") fil=server.mappath("jinstr.txt") set mfs=Server.CreateObject("Scripting.FileSystemObject") set bno=mfs.CreateTextFile(fil,true) bno.write nytext bno.close end if end if elseif tYp="tid" then if rAdio="open" then fil=server.mappath("tid.txt") set mfs=Server.CreateObject("Scripting.FileSystemObject") set bno=mfs.OpenTextFile(fil,1) rGno=bno.readAll bno.close end if if rAdio="laeg" then birdy=request.form("bird") if birdy="äpple" then nytext=request.form("hawk") fil=server.mappath("tid.txt") set mfs=Server.CreateObject("Scripting.FileSystemObject") set bno=mfs.OpenTextFile(fil,8) bno.writeline "

---

" bno.write nytext bno.close end if end if if rAdio="over" then birdy=request.form("bird") if birdy="äpple" then nytext=request.form("hawk") fil=server.mappath("tid.txt") set mfs=Server.CreateObject("Scripting.FileSystemObject") set bno=mfs.CreateTextFile(fil,true) bno.write nytext bno.close end if end if end if %>

Judo-nytt tränare tider Öppna tidigare text Lägg till Skriv över

<%=rGno%>