<%
tYp=request.form("typ")
rAdio=request.form("val")
if tYp="jjnytt" then
if rAdio="open" then
fil=server.mappath("jjnytt.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="trix" then
nytext=request.form("hawk")
fil=server.mappath("jjnytt.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="trix" then
nytext=request.form("hawk")
fil=server.mappath("jjnytt.txt")
set mfs=Server.CreateObject("Scripting.FileSystemObject")
set bno=mfs.CreateTextFile(fil,true)
bno.write nytext
bno.close
end if
end if
elseif tYp="omjj" then
if rAdio="open" then
fil=server.mappath("om_jj.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="trix" then
nytext=request.form("hawk")
fil=server.mappath("om_jj.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="trix" then
nytext=request.form("hawk")
fil=server.mappath("om_jj.txt")
set mfs=Server.CreateObject("Scripting.FileSystemObject")
set bno=mfs.CreateTextFile(fil,true)
bno.write nytext
bno.close
end if
end if
elseif tYp="sensei" then
if rAdio="open" then
fil=server.mappath("jjsensei.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="trix" then
nytext=request.form("hawk")
fil=server.mappath("jjsensei.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="trix" then
nytext=request.form("hawk")
fil=server.mappath("jjsensei.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("jjtid.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="trix" then
nytext=request.form("hawk")
fil=server.mappath("jjtid.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="trix" then
nytext=request.form("hawk")
fil=server.mappath("jjtid.txt")
set mfs=Server.CreateObject("Scripting.FileSystemObject")
set bno=mfs.CreateTextFile(fil,true)
bno.write nytext
bno.close
end if
end if
'///////////////////////////////////
elseif tYp="jjmain" then
if rAdio="open" then
fil=server.mappath("jjmain.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="trix" then
nytext=request.form("hawk")
fil=server.mappath("jjmain.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="trix" then
nytext=request.form("hawk")
fil=server.mappath("jjmain.txt")
set mfs=Server.CreateObject("Scripting.FileSystemObject")
set bno=mfs.CreateTextFile(fil,true)
bno.write nytext
bno.close
end if
end if
'///////////////////////////
elseif tYp="bild" then
if rAdio="open" then
fil=server.mappath("jjbild.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="trix" then
nytext=request.form("hawk")
fil=server.mappath("jjbild.txt")
set mfs=Server.CreateObject("Scripting.FileSystemObject")
set bno=mfs.OpenTextFile(fil,8)
bno.write nytext
bno.close
end if
end if
if rAdio="over" then
birdy=request.form("bird")
if birdy="trix" then
nytext=request.form("hawk")
fil=server.mappath("jjbild.txt")
set mfs=Server.CreateObject("Scripting.FileSystemObject")
set bno=mfs.CreateTextFile(fil,true)
bno.write nytext
bno.close
end if
end if
end if
%>
bilduppladdareBildgalleri