Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim pos As Long
Dim target As String
Dim html As String
Dim rs2 As Recordset
 
Set db = CurrentDb
Set rs = db.OpenRecordset("TextReadIn")
 
' Tabelle mit den Unterkategorien öffnen
Set rs2 = db.OpenRecordset("U_kat_Berater")
 
Do Until rs.EOF
  rs2.MoveFirst
  Do Until rs2.EOF
    pos = InStr(rs("TextRead"), rs2("Uk_Name_Berater"))
    If pos > 0 Then  ' Vergleich erfolgreich
        html = ToolBox.readFile(Globals.HtmlVorlagenPfad & "Vorlage.HTM")
        html = htmlTool.fillInData(html, "test", rs2)
        target = Globals.htmlRoot & "deutschtest.htm"
        ToolBox.writeFile target, html
        'MsgBox "Erlädscht"
    Else
        html = ToolBox.readFile(Globals.HtmlVorlagenPfad & "Vorlage2.HTM")
        html = htmlTool.fillInData(html, "test2", rs2)
    End If
    rs2.MoveNext
  Loop
  rs.MoveNext
Loop
 
'ToolBox.showFile target
 
rs2.Close: Set rs2 = Nothing
rs.Close: Set rs = Nothing
Set db = Nothing
 
 
End Function