Landbouw Speelgoed

<%@Language=VBScript%> <% Dim cnFTO, rsFTO Dim total, vtotal, sp If Len(trim(Session("bestelnr")))=0 Then %> <% End If Set cnFTO = Server.CreateObject("ADODB.Connection") Set rsFTO = Server.CreateObject("ADODB.Recordset") cnFTO.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../database/Farming.mdb") & ";User Id=admin;Password=;" rsFTO.Open "SELECT items.*, [artikelen].* FROM items INNER JOIN artikelen ON [items].[artnr]=artikelen.artikelnummer WHERE [items].bestelnr='" & Session("bestelnr") & "' ORDER BY [items].[artnr]", cnFTO %> Landbouw Speelgoed

Mijn winkelkarretje

<% total = 0 vtotal = 0 Do While not rsFTO.EOF %> <% total = total + (actiePrijs(rsFTO) * rsFTO.Fields("aantal").Value) If vtotal=0 Then vtotal = actieVZ(rsFTO) End If rsFTO.MoveNext Loop Response.Write FreeItem(total) If CancelVerzend(total) Then vtotal = 0 End If %> <% sp = GetSpaarpunten(total) If sp > 0 Then total = total - (sp * 0.45) %> <% End if %>

Artikelnr	Omschrijving	Aantal	Prijs	Subtotaal
<%=rsFTO.Fields("Artikelnummer").Value%>	<%=rsFTO.Fields("Omschr" & Session("lang")).Value%>	" type="text" class="invulvelden2" value="<%=rsFTO.Fields("aantal").Value%>" size="4" maxlength="4">	€ <%=actiePrijs(rsFTO)%>	€ <%=actiePrijs(rsFTO) * rsFTO.Fields("aantal").Value%>	Prijs berekenen &a=rem&r=winkelkar.asp">Art. Verwijderen
			Verzendkosten:	€ <%=vtotal%>
			Spaarpunten:	€ <%=sp * 0.45%>
			Totaal:	€ <%=total + vtotal%>
Terug naar Catalogus \| Leeg mijn winkelkar

<% If Len(Request.QueryString("n"))>0 Then %> <% Dim rsCS Set rsCS = Server.CreateObject("ADODB.Recordset") rsCS.Open "SELECT artikelen.* FROM artikelen INNER JOIN crosselling ON artikelen.artikelnummer=crosselling.artikelnr2 WHERE crosselling.artikelnr1='" & Request.QueryString("n") & "' AND artype='P'", cnFTO If Not rsCS.EOF Then %> <% End If %>

Bijpassende miniaturen

Op zoek naar een leuke, bijpassende miniatuur? Kijk dan ook eens in het onderstaande kader, waar we artikelen voor je hebben geselecteerd die goed bij jouw bestelling zouden passen.

<% Do While Not rsCS.EOF %> <% rsCS.MoveNext Loop %>

.jpg');" style="display:block; height:113px; width:113px; overflow:hidden;">

.gif" width="113" border="0">

<%=rsCS.Fields("Fabricant")%>

"><%=rsCS.Fields("Omschr" & Session("Lang")).Value%>

€ <%=rsCS.Fields(Session("Valuta")).Value%>

<% End If %>

Mijn Farming Toys

Nieuwe Klant?
Klik hier

Bent u reeds klant?
Dan kan u hier uw spaarpunten raadplegen!

<% rsFTO.Close cnFTO.Close Set rsFTO = Nothing Set cnFTO = Nothing ' --- FUNCTIES --- Function GetSpaarpunten(prijs) Dim rsKlant Dim tmpInt If Len(Session("User"))>0 And Session("sp") Then Set rsKlant = Server.CreateObject("ADODB.Recordset") rsKlant.Open "SELECT Spaarpunten FROM Klanten WHERE Email='" & Session("user") & "'", cnFTO If Int(prijs / 0.45) > rsKlant.Fields("Spaarpunten") Then tmpInt = rsKlant.Fields("Spaarpunten") Else tmpInt = Int(prijs / 0.45) End if rsKlant.Close Set rsKlant = Nothing Else tmpInt = 0 End if GetSpaarpunten = tmpInt End Function Function actiePrijs(rsT) Dim tmpI If Isnull(rsT.Fields("bodemprijzen")) Then tmpI = Round(rsT.Fields(Session("valuta")).Value * (100 - rsT.Fields("actie1").Value) * 0.01, 2) Else If rsT.Fields("bodemprijzen")<=0 Then tmpI = Round(rsT.Fields(Session("valuta")).Value * (100 - Iif(Isnull(rsT.Fields("actie1").Value),0,rsT.Fields("actie1").Value)) * 0.01, 2) Else tmpI = rsT.Fields("bodemprijzen") End If End if actiePrijs = tmpI End Function Function actieVZ(rsT) If rsT.Fields("actie2")>0 Then actieVZ = 0 Else actieVZ = rsT.Fields("v" & Session("valuta")).Value End if End Function Function actieSp(rsT) actieSp = rsT.Fields("actie3").Value + rsT.Fields("Spaarpunten").Value End Function Function Iif(a,b,c) If a Then Iif=b Else Iif=c End Function Function CancelVerzend(Byval prijs) CancelVerzend = (CDbl(prijs) >= cnFTO.Execute("SELECT verzendtopnl FROM prijstop").Fields("verzendtopnl").Value) End Function Function FreeItem(Byval prijs) Dim gratisitem Dim rsGratis Dim prijstop Set rsGratis = Server.CreateObject("ADODB.Recordset") prijstop = CDbl(cnFTO.Execute("SELECT verzendtopnl AS X FROM prijstop").Fields("X").Value) rsGratis.Open "SELECT Artikelen.Artikelnummer, Artikelen.Omschr" & Session("lang") & " AS OMSCHR, Fabricant FROM Artikelen INNER JOIN prijstop ON Artikelen.Artikelnummer=prijstop.spartikelnummer", cnFTO If (Not rsGratis.EOF) And (Total >= prijstop) Then gratisitem = " + " & rsGratis.Fields("Fabricant").Value & ": " & rsGratis.Fields("OMSCHR").Value & " (#" & rsGratis.Fields("Artikelnummer").Value & ")€ 0€ 0 " End If rsGratis.Close Set rsGratis = Nothing FreeItem = gratisitem End Function '--- EINDE FUNCTIES --- %>