'Declaration of local tags - Deklaration von lokalen Variablen
Dim fso, f, ts, strPathFilename, i

'HARDCODE DB NAME HERE !!
strPathFilename = "c:\DB2.bak"

'Error Routine - Fehlerroutine
On Error Resume Next

'Create object - Objekt erstellen
Set fso = CreateObject("Scripting.FileSystemObject")

If Err.Number <> 0 Then
	strStatusMessage = "Error #" & CStr(Err.Number) & " " & Err.Description
	Err.Clear
	Exit Sub
End If

'if no file exist a text file will be created - Datei erstellen, wenn keine vorhanden
If Not fso.FileExists(strPathFilename) Then   
	fso.CreateTextFile strPathFilename		 	 
End If 

Set f = fso.GetFile(strPathFilename)	

If Err.Number <> 0 Then
	strStatusMessage = "Error #" & CStr(Err.Number) & " " & Err.Description
	Err.Clear
	Exit Sub
End If

Set ts = f.OpenAsTextStream(2, -2)	

If Err.Number <> 0 Then
	strStatusMessage = "Error #" & CStr(Err.Number) & " " & Err.Description
	Err.Clear
	Exit Sub
End If

'HARDCODE DB NUMBER HERE !!
ts.WriteLine("DB2 BACKUP FILE. DO NOT ALTER THE DATA IN THIS FILE !")
'HARDCODE NUMBER OF WORDS HERE !!
For i = 0 To 39 
  'HARDCODE DB NUMBER HERE !!
  ts.WriteLine(CStr(SmartTags("DB2")(i)) & " ; DBW" & CStr(i * 2))
Next

'Close file - Datei schlieen
ts.Close

Set ts  = Nothing
Set f   = Nothing
Set fso = Nothing
Set i =   Nothing

'HARDCODE DB NUMBER HERE !!
strStatusMessage = "DB2 was saved !"