<% Option Explicit Response.Buffer = true %> BDM Freie Milch AG Startseite <% 'variablen deklaration Dim oConn Dim sHeaderStyle Dim sStyleH Dim sStyleHL Dim sStyle Dim sStyleB Dim iCount Dim iFullCount Dim sStyleEnd Dim LoggedIn 'styles setzen sHeaderStyle = "style=""font-size:8pt; background-color:#D2D2D2;""" sStyleH = "style=""border-bottom-style:solid; border-bottom-width:1; border-bottom-color:#AFAFAF; background-color:#D2D2D2; padding:1;""" ' sStyle = "style=""border-bottom-style:solid; border-bottom-width:1; border-bottom-color:#AFAFAF; background-color:#F2F2F2; padding:4; """ sStyle = "style=""background-color:#F2F2F2; padding:4; font-size:8pt; border-bottom-style:dotted; border-bottom-width:1; border-bottom-color:#A2A2A2;""" sStyleB = "style =""padding:2; background-color:#EFEEEF; padding:4; border-left-style:solid; border-left-width:1; border-left-color:#AFAFAF; font-size:8pt; """ sStyleEnd = "style =""border-style:solid; border-width:1; border-color:#929292; background-color:#D2D2D2;""" 'styles ende 'funktionen '************************************************************************ 'Datenbank initialisieren function InitDB() Set oConn = Server.CreateObject("ADODB.Connection") oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath ("./") & "\..\..\database\content.mdb;" end function '************************************************************************ 'Datenbank schließen function CloseDB() oConn.Close Set oConn = Nothing end function 'überprüfen ob jemand angemeldet ist function CheckForIPFile(sAdress) Dim objFSO, sIPFile CheckForIPFile = False Set objFSO = Server.CreateObject("Scripting.FileSystemObject") sIPFile = Server.MapPath ("../../sessions/" & sAdress) if objFSO.FileExists(sIPFile) = true then CheckForIPFile = true end if Set objFSO = Nothing end function 'HtmlText erstellen function GetHTMLText(Text) Dim sHtmlText sHtmlText = Replace(Text, vbCrlf, "
") sHtmlText = Replace(sHtmlText, "ö", "ö") sHtmlText = Replace(sHtmlText, "ä", "ä") sHtmlText = Replace(sHtmlText, "ü", "ü") sHtmlText = Replace(sHtmlText, "Ö", "ö") sHtmlText = Replace(sHtmlText, "Ä", "ä") sHtmlText = Replace(sHtmlText, "Ü", "ü") sHtmlText = Replace(sHtmlText, """", """) GetHTMLText = sHtmlText end function 'Aktuelle Pressemitteilung auslesen function GetAktPress Dim SQL Dim RS SQL = "SELECT *" SQL = SQL & " FROM tblNews" SQL = SQL & " WHERE tblNews.chkAktPresse=-1" Set RS = oConn.Execute(SQL) 'While (Not RS.EOF) Response.Write "

" & GetHTMLText (RS("sBetreff")) & "

" & chr(13)& chr(10) if RS("sPicture") <> "" then Response.Write "
" & chr(13)& chr(10) end if Response.Write "" & GetHTMLText (Left(RS("sText"), 300)) & chr(13)& chr(10) Response.Write "(mehr)" 'WEnd RS.Close Set RS = Nothing end Function 'Top5 Themen auslesen function GetTop5 Dim SQL Dim RS SQL = "SELECT *" SQL = SQL & " FROM tblNews" SQL = SQL & " WHERE tblNews.chkTop5=-1" Set RS = oConn.Execute(SQL) While Not RS.EOF Response.Write "" Response.Write "" & GetHTMLText (Left(RS("sBetreff"), 100)) & "
" if RS("sPicture") <> "" then Response.Write "" & chr(13)& chr(10) Response.Write "" & chr(13)& chr(10) end if if RS("sPicture") <> "" then Response.Write "" else Response.Write "" & GetHTMLText (Left(RS("sText"), 100)) if RS("chkNewWindow") = 0 then Response.Write "...(mehr)" else Response.Write "...(mehr)" end if end if if RS("sPicture") <> "" then Response.Write "
" & chr(13)& chr(10) Response.Write "" & chr(13)& chr(10) Response.Write "" & GetHTMLText (Left(RS("sText"), 100)) if RS("chkNewWindow") = 0 then Response.Write "...(mehr)" else Response.Write "...(mehr)" end if Response.Write "
" & chr(13) end if Response.Write "" RS.MoveNext Wend RS.Close Set RS = Nothing end Function '************************************************************************ 'tabelle auslesen function GetAktuelles Dim SQL Dim iCount Dim bLastNews Dim RS Dim sH Dim sM Dim sPublic Dim RedFont Dim RedFont1 Dim sPopUp if not LoggedIn then sPublic = "and tblNews.chkPublic=-1" else sPublic = "" end if iCount = 1 bLastNews = False SQL = "SELECT *" SQL = SQL & " FROM tblNews" SQL = SQL & " WHERE tblNews.dtJetzt>=Date()-7 and tblNews.dtJetzt<=date()+7 and tblNews.chkAktuelles=-1 " & sPublic SQL = SQL & " ORDER BY tblNews.dtJetzt DESC" Set RS = oConn.Execute(SQL) if RS.EOF or RS.RecordCount = 0 then RS.Close Set RS = Nothing SQL = "SELECT *" SQL = SQL & " FROM tblNews" SQL = SQL & " WHERE tblNews.dtJetzt>=Date()-7 and tblNews.dtJetzt<=date() and tblNews.chkPresse=-1 " & sPublic SQL = SQL & " ORDER BY tblNews.dtVonWann DESC" Set RS = oConn.Execute(SQL) bLastNews = True end if Response.Write "" & chr(13)& chr(10) While (Not (RS.EOF)) and (iCount<7) if Hour(RS("dtJetzt")) < 10 then sH = "0" & Hour(RS("dtJetzt")) else sH = Hour(RS("dtJetzt")) end if if RS("chkPublic") = 0 then RedFont = "" RedFont1 = "" else RedFont = "" RedFont1 = "" end if sPopUp = "... (mehr)" 'DatumZeit '" (" & WeekdayName(WeekDay(RS("dtJetzt"))) & ") Response.Write "" & chr(13)& chr(10) Response.Write "" & chr(13)& chr(10) iCount=iCount+1 RS.MoveNext WEnd Response.Write "
" & chr(13)& chr(10) if bLastNews = false then if len(RS("sBetreff")) > 20 then Response.Write RedFont & "" & Day(RS("dtJetzt")) & "." & Month(RS("dtJetzt")) & "." & Year(RS("dtJetzt")) & "" & RedFont1 & ", " & RS("sBetreff") & "... (mehr)
" & chr(13)& chr(10) else Response.Write RedFont & "" & Day(RS("dtJetzt")) & "." & Month(RS("dtJetzt")) & "." & Year(RS("dtJetzt")) & "" & RedFont1 & ", " & RS("sBetreff") & " - " & Left(RS("sText"),30) & "... (mehr)" & chr(13)& chr(10) end if end if if bLastNews then if len(RS("sText")) < 80 then if LoggedIn then Response.Write RedFont & "" & Day(RS("dtVonWann")) & "." & Month(RS("dtVonWann")) & "." & Year(RS("dtVonWann")) & "" & RedFont1 & ", " & RS("sText") & sPopUp & "
" & chr(13)& chr(10) else Response.Write RedFont & "" & Day(RS("dtVonWann")) & "." & Month(RS("dtVonWann")) & "." & Year(RS("dtVonWann")) & "" & RedFont1 & ", " & RS("sText") & sPopUp & "
" & chr(13)& chr(10) end if else Response.Write RedFont & "" & Day(RS("dtVonWann")) & "." & Month(RS("dtVonWann")) & "." & Year(RS("dtVonWann")) & "" & RedFont1 & ", " & Left(RS("sText"),80) & sPopUp & "
" & chr(13)& chr(10) end if end if if RS("sDateiLink") <> "" then if right(RS("sDateiLink"), 3) <> "pdf" then Response.Write "Download" & chr(13)& chr(10) else Response.Write " Download" & chr(13)& chr(10) end if end if Response.Write "
" & chr(13)& chr(10) RS.Close Set RS = Nothing end function 'funktionen ende '************************************************************************ 'tabelle auslesen function GetDates Dim SQL Dim sH Dim sM Dim iCount Dim RS iCount = 1 SQL = "SELECT *" SQL = SQL & " FROM tblTermine" SQL = SQL & " WHERE (tblTermine.dtWann>=Date() and tblTermine.dtWann=Date() and tblTermine.chkInternet=-1" SQL = SQL & " ORDER BY tblTermine.dtWann DESC" Set RS = oConn.Execute(SQL) end if Response.Write "" & chr(13)& chr(10) While (Not (RS.EOF)) and (iCount<=5) if Hour(RS("dtWann")) < 10 then sH = "0" & Hour(RS("dtWann")) else sH = Hour(RS("dtWann")) end if if Minute(RS("dtWann")) < 10 then sM = "0" & Minute(RS("dtWann")) else sM = Minute(RS("dtWann")) end if 'DatumZeit '" (" & WeekdayName(WeekDay(RS("dtWann"))) & ") Response.Write "" & chr(13)& chr(10) Response.Write "" & chr(13)& chr(10) iCount=iCount+1 RS.MoveNext WEnd Response.Write "
" & chr(13)& chr(10) ' Response.Write Day(RS("dtWann")) & "." & Month(RS("dtWann")) & "." & Year(RS("dtWann")) & ", " & sH & ":" & sM & " Uhr, " & RS("sGrund") & " - " & RS("sOrt") & "
" & chr(13)& chr(10) Response.Write Day(RS("dtWann")) & "." & Month(RS("dtWann")) & "." & Year(RS("dtWann")) & ", " & sH & ":" & sM & " Uhr, " & RS("sOrt") & "
" & chr(13)& chr(10) Response.Write "
" & chr(13)& chr(10) RS.Close Set RS = Nothing end function 'funktionen ende '************************************************************************ 'tabelle auslesen function GetDownloads Dim SQL Dim RS SQL = "SELECT *" SQL = SQL & " FROM tblDownloads" SQL = SQL & " WHERE tblDownloads.bAtStart=-1" Set RS = oConn.Execute(SQL) Response.Write "" & chr(13)& chr(10) While (Not (RS.EOF)) Response.Write "" & chr(13)& chr(10) Response.Write "" & chr(13)& chr(10) RS.MoveNext WEnd Response.Write "
" & chr(13)& chr(10) Response.Write "" & RS("sName") & "
" & chr(13)& chr(10) Response.Write "
" & chr(13)& chr(10) RS.Close Set RS = Nothing end function 'funktionen ende LoggedIn = CheckForIPFile(Request.ServerVariables("REMOTE_ADDR")) InitDB() %>
 
<% CloseDB() %>


Willkommen bei der BDM Freie Milch AG,

die im Juli 2004 als Tochtergesellschaft des BDMNord gegründet wurde. Sie sieht sich als die größte Erzeugergemeinschaft der Bundesrepublik für Milch. Ziel ist es, die Milch der Mitglieder des BDMNord zu bündeln und zu vermarkten. So sollen langfristig existenzsichernde Preise für die Milch erzielt werden. Der für diese Aktivitäten notwendige Molkereistatus wurde der BDM Freie Milch AG im August 2004 erteilt, seither wird gehandelt.
 

Vermarktung ?

Alle interessierten Milchviehhalter sind aufgerufen, mit
dem Verkaufsteam der BDM AG Kontakt aufzunehmen,
um sich über eine Vermarktung ihrer Milch über die
BDM Freie Milch AG zu informieren.
Jeder aktive Milchviehhalter, der auch gleichzeitig im Verband organisiert ist, kann seine Milch über die
BDM Freie Milch AG vermarkten.

Zu jedem Quartalsende laufen zahlreiche langfristige Milchlieferverträge unserer 27.000 Mitgliedunternehmen aus. Wir haben von Vertragslaufzeiten von über 6 Jahren gehört ! Ohne festen Preis.

Der BDM empfiehlt: Vertrauen Sie bitte auf die Vermarktungskraft der BDM Freie Milch AG. Schließen Sie künftig keine Milchlieferverträge mit mehr als 6 Monaten Kündigungsfrist ab - oder vermarkten Sie gleich über die BDM Freie Milch AG !
 

  News

<% GetAktuelles() %>

  Interessante Downloads

<% GetDownloads() %>


  

Um sich einige Dokumente ansehen zu können benötigen Sie den Adobe Acrobat Reader