<% On Error Resume next %> <% if (Request.ServerVariables("QUERY_STRING") = "") then %> Username is: SYSTEM

read

file opened

write

file not opened <% else %> Username is: <% set sec = server.createobject("security.a") %> <% response.write(c.username) response.write("

read

") if (c.openfileread("d:\scripts\testfile.a")) then response.write("file opened") else response.write("file not opened") end if response.write("

write

") if (c.openfilewrite("d:\scripts\testfile.a")) then response.write("file opened") else response.write("file not opened") end if %> <% end if %>