Function Replace_Language(ByVal OrgineleTekst As String, ByVal cid As String, ByVal constring As String) As String
Dim LArray(500) As String
Dim RArray(500) As String
Dim Lindex As Integer = 0
Dim i as integer 

    Dim WorkString As String = OrgineleTekst
    Dim RetString As String = ""
    Dim texterror As Boolean = False
    While WorkString.Length > 0 And microsoft.visualbasic.UCase(WorkString).IndexOf("[[") >= 0 And Not texterror
        Dim Vertaalstuk As String = ""
        Dim Deel2 As String = ""
        Dim PosStartVertaal As Integer = microsoft.visualbasic.UCase(WorkString).IndexOf("[[")
        Dim PosEndVertaal As Integer = microsoft.visualbasic.UCase(WorkString).IndexOf("]]")
        If PosEndVertaal > PosStartVertaal Then
            Vertaalstuk = WorkString.Substring(PosStartVertaal +2, PosEndVertaal - PosStartVertaal -2)
            Deel2 = WorkString.Substring(PosEndVertaal+2)
            If Vertaalstuk.Length > 0 Then
                LArray(Lindex) = "[[" & Vertaalstuk & "]]"
                RArray(Lindex) = ""
                Lindex = Lindex + 1
            End If
            WorkString = Deel2
        Else
            texterror = True
        End If
    End While

    If texterror Then
        Return "error" & Lindex.tostring
    Else
       retstring = ""
       For i=0 to lindex-1
          retstring = retstring & LArray(i) & "<br>"
       next
        RetString = OrgineleTekst
        If Lindex > 0 Then
            Get_Vertaling_Block(Lindex,RArray,Larray,constring)

            For i = 0 To Lindex - 1
                If RArray(i).Length > 0 Then
                    RetString = RetString.Replace(LArray(i),RArray(i))
                End If
            Next
        End If
        Return RetString
    End If
End Function

sub Get_Vertaling_Block(Byval Lindex as integer, ByRef RArray() as string, ByRef LArray() as string, ByVal constring as string)
  Dim Tid as integer = getTid()
  Dim Cid as string = pbw.get_Cid_Currentdomain()
  Dim prefix as string = Cid & "U_"
  Dim language as string = "english"
  Using Con As New SqlConnection(pbw.get_constring)
    Try
      Dim Query As String = ""
	  Query &= " Select "
	  Query &= " translationfield "
	  Query &= " from " & prefix  & "TranslateLanguages "
	  Query &= " where Tid=@Tid "
      Dim Com As New SqlCommand(Query, Con)
      Com.Parameters.AddWithValue("@Tid", Tid)
      Con.open()
      Dim Reader As SqlDataReader = Com.ExecuteReader()
      while Reader.Read()
	    language=Reader("translationfield")
      end while
    Catch ex As Exception

    Finally
      Con.close()
    End Try
  End Using
  
  Dim i As Integer = 0
  Dim Qr As String = " Select keyword, "
  Qr &= language
 
  Qr = Qr & " from " & prefix & "Translations where "
  
  For i = 0 To Lindex - 1
    If i > 0 Then
      Qr = Qr & " or "
    End If
    Qr = Qr & " keyword='" & LArray(i) & "' "
    RArray(i) = ""
  Next

    Dim Con2 As New SqlConnection(constring)
    Dim Com2 As New SqlCommand(Qr, Con2)
    Con2.Open()
    Dim Readerx As SqlDataReader = Com2.ExecuteReader()
    while Readerx.Read()
      Dim tveld as string = readerx.getstring(0)
      Dim dveld as string = readerx.getstring(1)
      for i=0 to lindex-1
        if LArray(i).trim=tveld.trim then
          RArray(i)=dveld
        end if
      next
    end while
    Con2.Close()
end sub

function getTid() as integer
    Dim Constring As String = pbw.get_constring()
    Dim CID As String = pbw.get_Cid_Currentdomain()
    Dim Taalid As Integer
    Dim Menuid As Integer
    Dim Selectedid As Integer
    Dim Lositem As Boolean 
    Dim Lositemismenu As Boolean 
    Dim Lositemid As Integer 
    Dim Lositemtype As String 
    Dim Printversie As Boolean 
    Dim Wordversie As Boolean = False
    Dim Voettekst As Boolean 
    Dim Stijlnaam As String 
    Dim Stijlindex As String
    Dim Cidalternatief As String =""
    Dim Cidindex As String
    Dim GekozenHMI As Integer 
    Dim GekozenSMI As Integer
    Dim ActieSelectedId As Integer

   pbw.Get_Url_Parameters(httpcontext.current.Session, httpcontext.current.Request, GekozenHMI, GekozenSMI, CID, Cidalternatief, Cidindex, Printversie, Wordversie, Voettekst, Taalid, Menuid, Selectedid, Lositemid, Lositemismenu, Lositemtype, Lositem, "", Stijlnaam, Stijlindex, ActieSelectedId, false, Constring) 
   return Taalid
end function

HeaderTextLayout = Replace_Language(HeaderTextLayout,cid,constring)
SubheaderTextLayout = Replace_Language(SubheaderTextLayout,cid,constring)
Bodytextlayout = Replace_Language(Bodytextlayout,cid,constring)
Bodyeventextlayout = Replace_Language(Bodyeventextlayout,cid,constring)
subfootertextlayout = Replace_Language(subfootertextlayout,cid,constring)
footertextlayout = Replace_Language(footertextlayout,cid,constring)

Finallayout = Replace_Language(Finallayout , Cid, constring)

TextLayout = Replace_Language(TextLayout,cid,constring)
TextButton = Replace_Language(TextButton,cid,constring)

Dim RowStartPos as integer = startpos 
Dim Fieldcount as integer = 20
Dim i as integer = 0
 For i=RowStartPos to RowStartPos + Fieldcount
  Try
  Dim StartPosError as integer = definition(i).indexof("[[")
  Dim EndPosError as integer = definition(i).indexof("]]")
   if StartPosError<EndPosError then
     Dim ErrorString as string = definition(i).substring(StartPosError+2,EndPosError-StartPosError-2)
     Dim NewError as string = Replace_Language("[[" & ErrorString & "]]",cid,constring)
'     Dim NewError as string = "testerror" 'Replace here the translation of ErrorString into NewError by function
     definition(i) = definition(i).replace("[[" & ErrorString & "]]",NewError)
   end if
Catch
End Try
Next

MailText = Replace_Language(MailText,cid,constring)

dim aantal as integer = Dropdown.items.count
dim i as integer = 0
for i = 0 to (aantal-1)
   Dropdown.items(i).text = Replace_Language(Dropdown.items(i).text,cid,constring)
next