#*****************************************************************#
  # DATENBANK:                                                      #
  # Verbindung herstellen ODBC                                      #
  #*****************************************************************#
  
  # Modul WIN32::ODBC einbinden

  use Win32::ODBC;

  use includedatei;

  # Verbindung aufbauen

  $db = includedatei->dbconnect();

  # Verbindung beenden

  $db->Close();

  
  #*****************************************************************#
  # Subroutine                                                      #
  #*****************************************************************#  
  
  sub dbconnect()
  {
    # Verbindungsdaten

    $BASE = "nordwind";
    $USER = "web1";
    $PASS = "XxXxXxXx";

    $db = new Win32::ODBC("DSN=$BASE;UID=$USER;PWD=$PASS;")

    return $db;
  }