Code:

'**************************************************************************
'File: reservationcode1.vbs
'Autor: Radovic Milos 
'Zweck: Reservationcode aus Datenbank in *.txt schreiben
'**************************************************************************

' 
' mdb 
' 
Dim cn 'ADODB.Connection 
Dim rs 'ADODB.Recordset 
Dim sSQL 

' 
' txt 
' 
Dim fso 
Set fso = CreateObject("Scripting.FileSystemObject") 
' 
' start Einlesen mdb 
' 
Set cn = CreateObject("ADOdb.Connection") 

db = ( "reservation/" & "bp.mdb") 
cs = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & db & ";" 

cn.Open cs 

Set rs = CreateObject( "ADOdb.Recordset") 
rs.ActiveConnection = cn 

sSQL = "" 
sSQL = sSQL & "SELECT * FROM [1]" 

rs.Source = sSQL 
rs.Open 

sss = "" 
do while not rs.eof 
sss = sss & _ 
rs.Fields("Name") & "|" & _ 
rs.Fields("Kuerzel") & "|" & _
rs.Fields("Strasse") & "|" & _
rs.Fields("Kontinent") & "|" & _
rs.Fields("Land") & "|" & _
rs.Fields("IDD") & "|" & _
rs.Fields("1") & "|" & _
rs.Fields("2") & "|" & _
rs.Fields("3") & "|" & _
rs.Fields("4") & "|" & _
rs.Fields("5") & "|" & _
rs.Fields("6") & "|" & _
rs.Fields("7") & "|" & _
rs.Fields("8") & "|" & _
rs.Fields("9") & "|" & _
rs.Fields("10") & "|" & _
rs.Fields("11") & "|" & _
rs.Fields("12") & "|" & _
rs.Fields("13") & "|" & _
rs.Fields("14") & "|" & _
rs.Fields("15") & "|" & _
rs.Fields("16") & "|" & _
rs.Fields("17") & "|" & _
rs.Fields("18") & "|" & _
rs.Fields("19") & "|" & _
rs.Fields("20") & "|" & _
rs.Fields("21") & "|" & _
rs.Fields("22") & "|" & _
rs.Fields("23") & "|" & _
rs.Fields("24") & "|" & _
rs.Fields("25") & "|" & _
rs.Fields("26") & "|" & _
rs.Fields("27") & "|" & _
rs.Fields("28") & "|" & _
rs.Fields("29") & "|" & _
rs.Fields("30") & "|" & _
rs.Fields("31") & vbcrlf
rs.MoveNext 
Loop 

rs.Close 
cn.Close 
Set rs = Nothing 
Set cn = Nothing 
' 
' ende mdb 
' 

' 
' txt schreiben 
' 
Set hdr = fso.OpenTextFile (("reservation\1.txt") ,8 , True) 
hdr.Write( sss ) 
' 
' ende txt 
' 
hdr.close 
Set hdr = nothing 
Set fso = nothing

MsgBox "Schreiben der Datei" & vbcrlf & "war erfolgreich!", vbInformation, "Reservationcode1"

WScript.Quit()

'**************************************************************************
'Bemerkung: aus .asp | YO!
'**************************************************************************