Dynamical content display

<SCRIPT Language=VBScript RUNAT=SERVER>
Function getMappedFileAsString(byVal strFilename)
  Const ForReading = 1
  Dim fso
  Set fso = Server.CreateObject("Scripting.FilesystemObject")
  
  Dim ts
  Set ts = fso.OpenTextFile(Server.MapPath(strFilename), ForReading)
  getMappedFileAsString = ts.ReadAll
  ts.close
  
  Set ts = nothing
  Set fso = Nothing
End Function
</SCRIPT>

'map to the existing language files
languagefile_en = Server.MapPath("inc_language_en.asp")
languagefile_ne = Server.MapPath("inc_language_ne.asp")
languagefile_de = Server.MapPath("inc_language_de.asp")
languagefile_fr = Server.MapPath("inc_language_fr.asp")
'include appropriate language file (selection between english, dutch, german, french) 
'when no user is logged in (login.asp) then include the english library by default
'when no language is defined, then get the english include file
Dim strInclude
If str_users_language = "" Then
 strInclude = getMappedFileAsString("inc_language_en.asp")
ElseIf str_users_language = "en" Then
 strInclude = getMappedFileAsString("inc_language_en.asp")
ElseIf str_users_language = "ne" Then
 strInclude = getMappedFileAsString("inc_language_ne.asp")
ElseIf str_users_language = "de" Then
 strInclude = getMappedFileAsString("inc_language_de.asp")
ElseIf str_users_language = "fr" Then
 strInclude = getMappedFileAsString("inc_language_fr.asp")
End If
Execute strInclude

Function getFileName()
  Dim lsPath, arPath
  ' Obtain the virtual file path
  lsPath = Request.ServerVariables("SCRIPT_NAME")
  ' Split the path along the /s. This creates an
  ' one-dimensional array
  arPath = Split(lsPath, "/")
  ' The last item in the array contains the file name
  GetFileName =arPath(UBound(arPath,1))
End Function
'shared files
'------------------------------------------------------------------------------
If GetFileName = "index.asp" Then
  interhrm	  = "InterHRM"
  welcome	  = "Welcome to InterHRM"
  intro	   = "electronic Human Resource Management (eHRM) systems"
  service	  = "We offer you the opportunity to comply with competence- and performancemanagement by means of eHRM (the usage of internettechnology to support HRM purposes)." & "<br>" & "Practise points out that organisations which introduce eHRM solutions, get provable benefit on a diversity of fields, such as:"
  item_1	  = "lower company costs for the execution of HRM-processes, for example by decreasing the administrative HRM-tasks which come along with eHRM, shorter pass through times"
  item_2	  = "larger involvement and higher employee satisfaction: Because eHRM is a way to assign more responsibilities to the employees and managers themselves, with respect to HRM"
End If