<%
function code_fso(strers,ft)
  dim strer:strer=trim(strers)
  if isnull(strer) or strer="" then code_fso="":exit function
  strer=replace(strer,"""","\""")
  select case ft
  case 1
    strer=replace(strer,vbcrlf,"<br>")
  end select
  code_fso=strer
end function

function get_file(file_name)
  dim filetemp,fileos,filepath
  set fileos=CreateObject("Scripting.FileSystemObject")
  filepath=server.mappath(file_name)
  set filetemp=fileos.OpenTextFile(filepath,1,true)
  get_file=filetemp.ReadAll
  filetemp.close
  set filetemp=nothing
  set fileos=nothing
end function

sub create_file(file_name,filetype)
  dim filetemp,fileos,filepath
  set fileos=CreateObject("Scripting.FileSystemObject")
  filepath=server.mappath(file_name)
  set filetemp=fileos.createtextfile(filepath,true)
  filetemp.writeline( filetype )
  filetemp.close
  set filetemp=nothing
  set fileos=nothing
end sub
%>