<% Set Con=Server.CreateObject("ADODB.Connection") Con.Open "weberorchideenDSN" Set euroRS=Server.CreateObject("ADODB.Recordset") euroRS.CursorType= adOpenStatic euroRS.ActiveConnection=Con euroRS.Open "SELECT * FROM eurokurs" eurokurs = euroRS("eurokurs") euroRS.Close Set RS=Server.CreateObject("ADODB.Recordset") RS.CursorType= adOpenStatic RS.ActiveConnection=Con RS.Open "SELECT * FROM plz WHERE preis IS NOT Null" %> Transportkosten
Transportkosten

Für die aufgeführten Ortschaften gelten die Preise in der Tabelle. Lieferungen in andere Ortschaften und ins Ausland werden via Fleurop geliefert und es gelten die Preise von Fleurop.

      
<% WHILE NOT RS.EOF%> <% RS.moveNext WEND %>
PLZ Ort Transportkosten

<%=RS("postleitzahl")%> <%=RS("ort")%> <%=formatCurrency(RS("preis"))%>  (EUR <%=formatNumber((RS("preis"))*eurokurs,2)%>)