<%Response.expires=0 %> Ruppersthal <% 'Felddefinition Z_HAUPT_ID = 0 Z_SUB_ID = 0 Z_KZ_LINK = "" Z_LINK_TEXT = "" Z_LFDNR = 0 Z_BILD_URL = "" Z_BILD_BREITE = 0 Z_TEXT = "" Z_TEXTINHALT = "" Z_TITEL = "" Z_HAUPT_ID = Request.QueryString("id") Z_SUB_ID = Request.QueryString("subid") Z_KZ_LINK = Request.QueryString("kzlink") Z_PRODUKT_GRUPPE = Request.QueryString("produkt_gruppe") 'Deutsches Datumsformat festlegen Session.LCID=1031 akt_Datum = left(CDate(now()), 10) akt_Jahr = right(akt_Datum, 4) akt_Monat = Mid(akt_Datum, 4, 2) akt_Tag = left(akt_Datum, 2) akt_vgl_Dat = akt_Jahr & "-" & akt_Monat & "-" & akt_Tag 'Connect zur Datenbank herstellen set db = Server.CreateObject("ADODB.Connection") connect="Driver={Microsoft Access Driver (*.mdb)}; DBQ="& server.mappath("mdb/ruppersthal.mdb") db.Open connect %>

Aktuelle Infos

<% 'Auslesen aller Schlagzeilen der letzten 2 Monate db_Jahr = akt_Jahr db_Tag = akt_Tag db_Monat = akt_Monat - 2 if db_Monat < 1 then db_Monat = db_Monat + 12 db_Jahr = db_Jahr - 1 end if 'abgeschnittene f⥮de Nullen wird hinzuf宬 die beim rechnen weg sind (Bsp: 5 wird zu 05) if db_Monat < 10 then db_Monat = "0" & db_Monat end if Z_db_Datum = db_Jahr & "-" & db_Monat & "-" & db_Tag sql = "SELECT A.HAUPT_ID, A.SUB_ID, A.KZ_LINK, A.TITEL, B.BILD_URL, B.TEXTINHALT, B.LINK_URL, B.LINK_TITEL, B.DATUM, B.LFD_NR, B.DESIGN FROM NAVI A, NEWS_DETAIL B WHERE A.KZ_LINK = 'N' AND A.HAUPT_ID = B.HAUPT_ID AND A.SUB_ID = B.SUB_ID AND A.KZ_LINK = B.KZ_LINK AND B.DATUM > '" & Z_db_Datum & "' AND B.LFD_NR = 0 ORDER BY B.DATUM DESC, A.HAUPT_ID, A.SUB_ID, B.LFD_NR;" set rs = db.Execute(sql) do until rs.eof %>

<%=rs("TITEL")%> &subid=<%=rs("SUB_ID")%>&kzlink=<%=rs("KZ_LINK")%>">
--> mehr dazu...

<% rs.MoveNext loop %>
<% if IsEmpty(Z_HAUPT_ID) OR Z_HAUPT_ID = 1 then 'Beitrag 1 in der Tabelle NAVI ist immer der Link zu "HOME" 'Zuerst Standard-Begr宧 f࢒uppersthal.at" andrucken %>

Herzlich Willkommen

im idyllischen, langgezogenen Straߥndorf Ruppersthal im westlichen Weinviertel zwischen Wagram und Schmidatal am Fuߥ des 341 m hohen Kogels. Der inmitten von Weing䲴en und Feldern gelegene Ort umfaߴ eine Fl䣨e von 10 km༢r />
Besonders beliebt sind bei allen umliegenden Topwinzern die "sonnigen S褮ge" am Kogel, welche jedes Jahr f३ne Spitzenqualit䴠bei der Weintraubenernte sorgen.

<% else SELECT CASE Z_KZ_LINK CASE "L" 'Aufrufen der Funktion zum Anzeigen der Navi-Links (Navigation linke Seite) Call Navilinks CASE "T" 'Aufrufen der Funktion zum Anzeigen der Top-Links (Kopfzeile) Call Toplinks CASE "V" 'Aufrufen der Funktion zum Anzeigen der Events Call Events CASE "N" 'Aufrufen der Funktion zum Anzeigen der News Call News End Select end if %>
© sh.webdesign, 2008, Alle Rechte vorbehalten.
<% 'Datenbank - Connect wieder schlieߥn db.Close set db=Nothing set rs=Nothing 'Funktionen und Programmbausteine !! 'Funktion Design sub Design Select Case Int(rs("DESIGN")) Case 0 '(Nur Text wird angezeigt) If (IsNull(rs("LINK_URL"))) OR rs("LINK_URL") = "" then 'Beitrag ohne Link %>
<%=Z_TEXTINHALT%>
<% else %>
<%=Z_TEXTINHALT%>


Homepage - Link
"><%=rs("LINK_URL")%>



<% end if Case 1 '(Zuerst Bild mit 550 px breite und darunter ein Text) If (IsNull(rs("LINK_URL"))) OR rs("LINK_URL") = "" then 'Beitrag ohne Link %>
" width="<%=rs("BILD_BREITE")%>" border="0"/>
<%=Z_TEXTINHALT%>
<% else 'Beitrag mit Link %>
"> " width="<%=rs("BILD_BREITE")%>" border=0/>
<%=Z_TEXTINHALT%>

Homepage - Link
"><%=rs("LINK_URL")%>

<% end if Case 2 '(Zuerst Text und darunter Bild mit 550 px breite) If (IsNull(rs("LINK_URL"))) OR rs("LINK_URL") = "" then 'Beitrag ohne Link %>
<%=Z_TEXTINHALT%>
" width="<%=rs("BILD_BREITE")%>" border="0"/>
<% else 'Beitrag mit Link %>
<%=Z_TEXTINHALT%>
"> " width="<%=rs("BILD_BREITE")%>" border="0"/>

Homepage - Link
"><%=rs("LINK_URL")%>

<% end if Case 3 '(Zuerst Text auf linker Seite und daneben Bild mit 250 px ) If (IsNull(rs("LINK_URL"))) OR rs("LINK_URL") = "" then 'Beitrag ohne Link %>
<%=Z_TEXTINHALT%> " width="<%=rs("BILD_BREITE")%>" border=0>
<% else 'Beitrag mit Link %>
<%=Z_TEXTINHALT%> "> " width="<%=rs("BILD_BREITE")%>" border=0>

Homepage - Link
"><%=rs("LINK_URL")%>

<% end if Case 4 '(Zuerst Bild mit 250 px auf linker Seite und daneben der Text ) If (IsNull(rs("LINK_URL"))) OR rs("LINK_URL") = "" then 'Beitrag ohne Link %>
px" valign="top" align="right"> " width="<%=rs("BILD_BREITE")%>" border=0> px" align="justify" valign="middle"><%=Z_TEXTINHALT%>
<% else 'Beitrag mit Link %>
"> " width="<%=rs("BILD_BREITE")%>" border=0> <%=Z_TEXTINHALT%>

Homepage - Link
"><%=rs("LINK_URL")%>

<% end if Case 5 '(Bild mit 250 px rechts oben und Text neben bzw. unter dem Bild) If (IsNull(rs("LINK_URL"))) OR rs("LINK_URL") = "" then 'Beitrag ohne Link %>
" width="<%=rs("BILD_BREITE")%>" align="right" border=0> <%=Z_TEXTINHALT%>
<% else 'Beitrag mit Link %>
"> " width="<%=rs("BILD_BREITE")%>" align="right" border=0> <%=Z_TEXTINHALT%>

Homepage - Link
"><%=rs("LINK_URL")%>

<% end if end Select end sub 'Funktion zum Auslesen und Anzeigen der Events Sub Events 'Auslesen aller noch nicht abgelaufenen Veranstaltungen sql = "SELECT A.HAUPT_ID, A.SUB_ID, A.KZ_LINK, A.TITEL, B.BILD_URL, B.BILD_BREITE, B.TEXTINHALT, B.LINK_URL, B.LINK_TITEL, B.DATUM, B.LFD_NR, B.DESIGN FROM NAVI A, EVENT_DETAIL B WHERE A.KZ_LINK = '" & Z_KZ_LINK & "' AND A.HAUPT_ID = " & Z_HAUPT_ID & " AND A.SUB_ID > 0 AND B.DATUM > '" & akt_vgl_Dat & "' AND A.HAUPT_ID = B.HAUPT_ID AND A.SUB_ID = B.SUB_ID AND A.KZ_LINK = B.KZ_LINK ORDER BY B.DATUM, A.HAUPT_ID, A.SUB_ID, B.LFD_NR;" set rs = db.Execute(sql) 'Detailauflistung der noch g䩧en Veranstaltungen %>

Ruppersthaler Veranstaltungen


<% do until rs.eof 'eventuell beim INSERT ver䮤erte Exoten-Sonderzeichen wieder zur뤮dern, damit der Text wieder lesbar ist. Z_TEXTINHALT = rs("TEXTINHALT") Z_TEXTINHALT = Replace(Z_TEXTINHALT, "%apostroph%", "'") Z_TEXTINHALT = Replace(Z_TEXTINHALT, "%klammlinks%", "(") Z_TEXTINHALT = Replace(Z_TEXTINHALT, "%klammrechts%", ")") %> <% If IsNull(rs("LINK_URL")) OR rs("LINK_URL") = "" OR IsEmpty(rs("LINK_URL")) then Else %> <% end if %>

<%=rs("DATUM")%>

<%=rs("TITEL")%>

<%=Z_TEXTINHALT%>


Homepage: "><%=rs("LINK_URL")%>


<% rs.MoveNext loop end sub 'Funktion zum Auslesen und Anzeigen der Toplinks (Kopfzeile) sub Toplinks 'Auslesen ausgew䨬ten Bericht lt. Navigation sql = "SELECT A.HAUPT_ID, A.SUB_ID, A.KZ_LINK, A.TITEL, B.BILD_URL, B.BILD_BREITE, B.TEXTINHALT, B.LINK_URL, B.LINK_TITEL, B.DATUM, B.LFD_NR, B.DESIGN FROM NAVI A, NAVI_DETAIL B WHERE A.KZ_LINK = '" & Z_KZ_LINK & "' AND A.HAUPT_ID = " & Z_HAUPT_ID & " AND A.SUB_ID = " & Z_SUB_ID & " AND A.HAUPT_ID = B.HAUPT_ID AND A.SUB_ID = B.SUB_ID AND A.KZ_LINK = B.KZ_LINK ORDER BY A.HAUPT_ID, A.SUB_ID, B.LFD_NR;" set rs = db.Execute(sql) do until rs.eof 'eventuell beim INSERT ver䮤erte Exoten-Sonderzeichen wieder zur뤮dern, damit der Text wieder lesbar ist. Z_TEXTINHALT = rs("TEXTINHALT") Z_TEXTINHALT = Replace(Z_TEXTINHALT, "%apostroph%", "'") Z_TEXTINHALT = Replace(Z_TEXTINHALT, "%klammlinks%", "(") Z_TEXTINHALT = Replace(Z_TEXTINHALT, "%klammrechts%", ")") if rs("LFD_NR") = 0 then 'Der Beitragtitel darf nur bei Detailberichten nicht mehr angedruckt werden !! %>

<%=rs("TITEL")%>

<% end if 'Funktion Design aufrufen Call Design rs.MoveNext loop end sub 'Funktion zum Auslesen und Anzeigen der Navilinks (Navigation auf linker Seite) sub Navilinks 'Auslesen ausgew䨬ten Bericht lt. Navigation sql = "SELECT A.HAUPT_ID, A.SUB_ID, A.KZ_LINK, A.TITEL, B.BILD_URL, B.BILD_BREITE, B.TEXTINHALT, B.LINK_URL, B.LINK_TITEL, B.DATUM, B.LFD_NR, B.DESIGN FROM NAVI A, NAVI_DETAIL B WHERE A.KZ_LINK = '" & Z_KZ_LINK & "' AND A.HAUPT_ID = " & Z_HAUPT_ID & "AND A.SUB_ID = " & Z_SUB_ID & " AND A.HAUPT_ID = B.HAUPT_ID AND A.SUB_ID = B.SUB_ID AND A.KZ_LINK = B.KZ_LINK ORDER BY A.HAUPT_ID, A.SUB_ID, B.LFD_NR;" set rs = db.Execute(sql) do until rs.eof 'eventuell beim INSERT ver䮤erte Exoten-Sonderzeichen wieder zur뤮dern, damit der Text wieder lesbar ist. Z_TEXTINHALT = rs("TEXTINHALT") Z_TEXTINHALT = Replace(Z_TEXTINHALT, "%apostroph%", "'") Z_TEXTINHALT = Replace(Z_TEXTINHALT, "%klammlinks%", "(") Z_TEXTINHALT = Replace(Z_TEXTINHALT, "%klammrechts%", ")") if rs("LFD_NR") = 0 then 'Der Beitragtitel darf nur bei Detailberichten nicht mehr angedruckt werden !! %>

<%=rs("TITEL")%>

<% end if 'Bestimmte hardcodierte Programmlogiken (z.b.: Beitr䧥 mit Formularen d楮 nicht angedruckt werden Select Case Z_TEXTINHALT Case "PROGRAMM_WEINBAU_BETRIEBE" Call Weinbau_Betriebe Case ELSE 'Funktion Design aufrufen Call Design End Select rs.MoveNext loop end sub 'Funktion zum Ausgeben der News auf der Hauptseite sub News sql = "SELECT A.HAUPT_ID, A.SUB_ID, A.KZ_LINK, A.TITEL, B.BILD_URL, B.BILD_BREITE, B.TEXTINHALT, B.LINK_URL, B.LINK_TITEL, B.DATUM, B.LFD_NR, B.DESIGN FROM NAVI A, NEWS_DETAIL B WHERE A.KZ_LINK = '" & Z_KZ_LINK & "' AND A.HAUPT_ID = " & Z_HAUPT_ID & " AND A.HAUPT_ID = B.HAUPT_ID AND A.SUB_ID = B.SUB_ID AND A.KZ_LINK = B.KZ_LINK AND B.DATUM > '" & Z_db_Datum & "' ORDER BY B.DATUM DESC, A.HAUPT_ID, A.SUB_ID, B.LFD_NR;" set rs = db.Execute(sql) do until rs.eof 'eventuell beim INSERT ver䮤erte Exoten-Sonderzeichen wieder zur뤮dern, damit der Text wieder lesbar ist. Z_TEXTINHALT = rs("TEXTINHALT") Z_TEXTINHALT = Replace(Z_TEXTINHALT, "%apostroph%", "'") Z_TEXTINHALT = Replace(Z_TEXTINHALT, "%klammlinks%", "(") Z_TEXTINHALT = Replace(Z_TEXTINHALT, "%klammrechts%", ")") if rs("LFD_NR") = 0 then 'Der Beitragtitel darf nur bei Detailberichten nicht mehr angedruckt werden !! %>

<%=rs("TITEL")%>

<% end if 'Funktion Design aufrufen Call Design rs.MoveNext loop end sub 'In dieser Funktoin werden die Weinbaubetriebe vorgestellt, mit Extra-Seite sub Weinbau_Betriebe %>

Sehr geehrter Interessent!
Sie haben nun verschiedene M笩chkeiten die Ruppersthaler Winzer kennen zu lernen bzw. zu suchen.


Alle Ruppersthaler Winzer
Hier bekommen Sie eine alphabetische Aufstellung aller Ruppersthaler Winzer mit Adresse und Telefonnummer. Bei einigen Winzern gibt es hierbei noch Weiterf⥮de Links um Detailinformationen zum Betrieb und den Weinsorten zus䴺lich zu erfahren.


Ausgew䨬te Ruppersthaler Winzer
Hier bekommen Sie eine alphabetische Aufstellung nur jener Ruppersthaler Winzer bei denen noch weiterf⥮de Links mit Detailinformationen zum Betrieb und den Weinsorten hinterlegt sind.


Selektive Suche eines Winzers
Sie geben in dem Suchfeld den Familiennamen des Winzers ein, den sie beauskunften m㨴en. Dieser Winzer wird dann am Bildschirm angezeigt.


Wir w㣨en Ihnen vile Spaߠund Erfolg beim Kennenlernen und Verkosten der guten Ruppersthaler Weine.

<% end sub %>
Woolrich Outlet Woolrich Parka Woolrich Bologna Spaccio Woolrich
Nike Air Max Pas Cher Nike Air Max 1 Pas Cher Nike Air Max 90 Essential Nike Air Max 95 Pas Cher Nike Air Max 95 Em Pas Cher Nike Air Max 90 Mid Soldes Nike Air Max 97 Hyperfuse Chaussures Nike Air Max Thea Pas Cher Nike Air Max 90 Essential Pas Cher
Nike Free Femme Pas Cher Nike Free Femme Soldes Nike Free Homme Soldes Free Run 3 Homme Pas Cher Nike Free Run 2 Homme Pas Cher Nike Free 5.0 Femme Gris Jaune Nike Free 5.0 V4 Femme Noir
Air Jordan Pas Cher Nike Air Jordan 11 Retro Nike Air Jordan 11 Homme Retro Nike Air Jordan 13 Pas Cher Nike Air Jordan 3 Retro Nike Air Jordan 4 Retro
Nike Blazer Pas Cher Nike Blazer High Suede Nike Blazer Low Vintage Nike Blazer Mid Rose Nike Blazer VT High Chaussures Nike Blazer VT Low Pas Cher Nike Blazer Woven Noir