<% kategorie = TRIM( Request( "kategorie" )) %> Weber Orchideen Online-Bestellservice <% Set Con=Server.CreateObject("ADODB.Connection") Con.Open "weberorchideenDSN" Set RS=Server.CreateObject("ADODB.Recordset") RS.CursorType= adOpenStatic RS.ActiveConnection=Con RS.Open "SELECT * FROM artikel WHERE kategorie=" & "'" & kategorie & "'" Set aktionRS=Server.CreateObject("ADODB.Recordset") aktionRS.CursorType= adOpenStatic aktionRS.ActiveConnection=Con aktionRS.Open "SELECT * FROM artikel WHERE aktion='ja'" Set euroRS=Server.CreateObject("ADODB.Recordset") euroRS.CursorType= adOpenStatic euroRS.ActiveConnection=Con euroRS.Open "SELECT * FROM eurokurs" eurokurs = euroRS("eurokurs") euroRS.Close Set catRS=Server.CreateObject("ADODB.Recordset") catRS.ActiveConnection=Con catRS.Open "SELECT DISTINCT kategorie FROM artikel WHERE kategorie<>''" %>
Shop-Guide Warenkorb Bestellung AGB's

<% if kategorie<>"" then %> <%while not RS.EOF%> <%RS.MoveNext wend %>
Bild Beschreibung Preis Abbildung Von - Bis
<%IF RS("bild")<>"" THEN Response.Write ("") END IF%>  <%Response.Write ("" & RS("titel") & "") %>

<%=RS("beschreibung")%>
CHF. <%=formatNumber(RS("preis"),2)%>
(EUR. <%=formatNumber((RS("preis"))*eurokurs,2)%>)
<%IF RS("von")<>"" THEN%>CHF. <%=formatNumber(RS("von"),2)%>- CHF. <%=formatNumber(RS("bis"),2)%>
(EUR. <%=formatNumber((RS("von"))*eurokurs,2)%>- EUR. <%=formatNumber((RS("bis"))*eurokurs,2)%>)<%END IF%> 
<% else %>

Willkommen beim WeberOrchideen Online-Shop

Auf dieser Seite finden Sie die Artikel, welche wir Ihnen heute empfehlen.

Wählen Sie Ihre Artikel aus, und vergessen Sie nicht eine passende Karte aus der Rubrik "Karte",
mit Ihrem ganz persönlichen Text dazu zu bestellen.
Artikel mit einem * können nur für in unserem Liefergebiet bestellt werden.
Siehe auch Transportkosten.

<%while not aktionRS.EOF%>
<%aktionRS.MoveNext wend %>
<%IF aktionRS("bild")<>"" THEN Response.Write ("") END IF%>  <%Response.Write ("" & aktionRS("titel") & "") %>
<%=aktionRS("beschreibung")%>



CHF. <%=formatNumber(aktionRS("preis"),2)%>
(EUR. <%=formatNumber((aktionRS("preis"))*eurokurs,2)%>)

<% end if Con.Close %>