I Tyskland ved Nierstein Rheinhessen fandt vi i sommeren 2004 Weingut Leonhard som er en lille producent med bare 10 ha. Vinmarker.
Han producerer nogle fantastisk dejlige hvidvine samt en let og blød rødvin. Både Riesling Kabinett og Grauer burgunder , der er de to hvidvine vi har udvalgt, har fået Silberne Kammerpreismünze. Den røde spätburgunder er langt kraftigere end de fleste tyske rødvine og holder 13% vol.

<% Dim MitRecordset, SQL_Kald, mitRecProd,vareVisnr, beskriv,MitRecImg,navn SQL_Kald = "SELECT * FROM vin where vinprod = 53 and vinAktiv ='J' order by prioritet, navn" 'Erklær og opret MitRecordset Set MitRecordset=Server.CreateObject("ADODB.Recordset") 'Jeg åbner min db med cursor Static, så jeg kan få et tal på, hvor mange record, der læses til mit recordsset. MitRecordset.open SQL_Kald,MinForbindelse %> <% Do While Not MitRecordset.EOF vareVisnr = vareVisnr + 1 navn = mitrecordset("navn") if navn<>"." AND not isNull(navn) then navn=Replace(navn,VbCrLf,"
") navn=Replace(navn,"*F/","") navn=Replace(navn,"/F*","") navn=Replace(navn,"*ROED/","") navn=Replace(navn,"/ROED*","") navn=Replace(navn,"*ST/","") navn=Replace(navn,"/ST*","") navn=Replace(navn,"*K/","") navn=Replace(navn,"/K*","") navn=Replace(navn,"*U/","") navn=Replace(navn,"/U*","") navn=Replace(navn,"*PB/","

") navn=Replace(navn,"/PB*","

") navn=Replace(navn,"*PT/","

") navn=Replace(navn,"/PT*","

") navn=Replace(navn,"*P*","

") else navn="" end if beskriv = mitrecordset("beskriv") if beskriv<>"." AND not isNull(beskriv) then beskriv=Replace(beskriv,VbCrLf,"
") beskriv=Replace(beskriv,"*F/","") beskriv=Replace(beskriv,"/F*","") beskriv=Replace(beskriv,"*ROED/","") beskriv=Replace(beskriv,"/ROED*","") beskriv=Replace(beskriv,"*ST/","") beskriv=Replace(beskriv,"/ST*","") beskriv=Replace(beskriv,"*K/","") beskriv=Replace(beskriv,"/K*","") beskriv=Replace(beskriv,"*U/","") beskriv=Replace(beskriv,"/U*","") beskriv=Replace(beskriv,"*PB/","

") beskriv=Replace(beskriv,"/PB*","

") beskriv=Replace(beskriv,"*PT/","

") beskriv=Replace(beskriv,"/PT*","

") beskriv=Replace(beskriv,"*P*","

") else beskriv="" end if %>

<% MitRecordset.MoveNext Loop %>

<%=navn%> <%=beskriv%> <% if MitRecordSet("vinblad") <> "" then %>" target="_blank" class="indhold">Yderligere beskrivelse <% end if %>

<% SQL_Kald = "SELECT * FROM vinImage where vin =" &MitRecordSet("varenr") 'Erklær og opret MitRecordset Set MitRecImg=Server.CreateObject("ADODB.Recordset") 'Jeg åbner min db med cursor Static, så jeg kan få et tal på, hvor mange record, der læses til mit recordsset. MitRecImg.open SQL_Kald,MinForbindelse If Not MitRecImg.EOF Then %>')"> <% ' Luk recordsettet MitRecImg.Close ' Afslut med frigørelse af objektet MitRecordSet set MitRecImg = Nothing end if %>

<%=FormatCurrency(mitrecordset("pris"),2)%>

<% ' Luk recordsettet MitRecordset.Close ' Afslut med frigørelse af objektet MitRecordSet set MitRecordset = Nothing %>