<%@Language=VBScript%> <% Dim cnH Dim rsH, rsU Dim i Set cnH = Server.CreateObject("ADODB.Connection") Set rsH = Server.CreateObject("ADODB.Recordset") cnH.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../database/Farming.mdb") & ";User Id=admin;Password=;" %> Landbouw Speelgoed
<% rsH.Open "SELECT Artikelen.* FROM links INNER JOIN Artikelen ON links.Artikelnummer=Artikelen.Artikelnummer WHERE links.[type]='HC'",cnH i = 0 Do While not rsH.EOF %> <% i = i + 2 rsH.MoveNext Loop rsH.Close %> <% rsH.Open "SELECT Artikelen.* FROM links INNER JOIN Artikelen ON links.Artikelnummer=Artikelen.Artikelnummer WHERE links.[type]='HN'",cnH i = 0 Do While not rsH.EOF %> <% i = i + 2 rsH.MoveNext Loop rsH.Close %> <% rsH.Open "SELECT Artikelen.* FROM links INNER JOIN Artikelen ON links.Artikelnummer=Artikelen.Artikelnummer WHERE links.[type]='HA'",cnH %> <% rsH.Close %>
 
 
Welkom
catalogus

Welkom op de homepage van Farming Toys, de grootste online verkoop site van landbouwminiaturen! Hier vind je een uitgebreide collectie van de nieuwste miniaturen van alle grote merken en fabrikanten (Siku, Bruder, Britains, Universal Hobbies, Rolly Toys etc.).

Wil je graag weten wat er binnenkort beschikbaar komt? Check dan de items bij ‘Verwacht’! Vind verder snel je weg door gebruik te maken van onze zoekmogelijkheden (links) of door simpelweg op fabrikant te zoeken (rechts). Natuurlijk biedt ook onze on-line catalogus een compleet overzicht van alle beschikbare miniaturen.

Laat je meevoeren en ontdek welke miniaturen het beste bij jou passen!
Farming Toys verkooppunten

Op deze site kunt u alle Farming Toys modellen uit ons assortiment vinden! Maar wilt u de modellen liever ook nog met eigen ogen zien? Bezoek dan één van de dichtstbijzijnde Farming Toys dealers door onderstaand uw postcode in te vullen.

Zoek een Farming Toys verdeelcentrum op in uw buurt :

Uw postcode :   Zoeken
Collectors item
 
.jpg" width="174">

<%=rsH.Fields("omschr" & Session("lang")).Value%>

  • Fabrikant: <%=rsH.Fields("fabricant").Value%>
  • Artikelnummer: <%=rsH.Fields("artikelnummer").Value%>
  • Schaal: <%=rsH.Fields("Schaal").Value%>
    • <% If rsH.Fields("lengte") <> 0 Then %>
  • LxBxH: <%=rsH.Fields("lengte").Value%>x<%=rsH.Fields("breedte").Value%>x<%=rsH.Fields("hoogte").Value%>
    • <% End If %>
  • Prijs: € <%=rsH.Fields(Session("valuta")).Value%>
    • <%If rsH.Fields("actie1").Value > 0 Then%>
  • Actieprijs: <%=actiePrijs(rsH)%>
    • <%End If%> <%If rsH.Fields("actie2").Value > 0 Then%>
  • Actie: verzending is tijdelijk gratis
    • <%End If%>
  • Te sparen toypunten: <%=rsH.Fields("spaarpunten").Value%>
    • <%If rsH.Fields("actie3").Value > 0 Then%>
  • Extra actietoypunten: <%=rsH.Fields("actie3").Value%>
    • <%End If%>
 
 
">Meer
Nieuw
 
.jpg" width="174">

<%=rsH.Fields("omschr" & Session("lang")).Value%>

  • Fabrikant: <%=rsH.Fields("fabricant").Value%>
  • Artikelnummer: <%=rsH.Fields("artikelnummer").Value%>
  • Schaal: <%=rsH.Fields("Schaal").Value%>
    • <% If rsH.Fields("lengte") <> 0 Then %>
  • LxBxH: <%=rsH.Fields("lengte").Value%>x<%=rsH.Fields("breedte").Value%>x<%=rsH.Fields("hoogte").Value%>
    • <% End If %>
  • Prijs: € <%=rsH.Fields(Session("valuta")).Value%>
    • <%If rsH.Fields("actie1").Value > 0 Then%>
  • Actieprijs: <%=actiePrijs(rsH)%>
    • <%End if%> <%If rsH.Fields("actie2").Value > 0 Then%>
  • Actie: verzending is tijdelijk gratis
    • <%End if%>
  • Te sparen toypunten: <%=rsH.Fields("spaarpunten").Value%>
    • <%If rsH.Fields("actie3").Value > 0 Then%>
  • Extra actietoypunten: <%=rsH.Fields("actie3").Value%>
    • <%End if%>

 
 
">Meer
Acties
<% If CLng(rsH.Fields("Actie4"))>0 Then Set rsU = Server.CreateObject("ADODB.Recordset") rsU.Open "SELECT * FROM Artikelen WHERE Artikelnummer='" & rsH.Fields("Actie4").Value & "'", cnH %>
 
.gif" width="125" onerror="imgr(this);">

<%=rsH.Fields("Omschr" & Session("lang")).Value%>

 .gif" width="125" onerror="imgr(this);">

<% If not rsU.EOF Then Response.Write rsU.Fields("Omschr" & Session("lang")) End if %>

 
<% rsU.Close Set rsU = Nothing ElseIf Cint(rsH.Fields("Actie1"))>0 Then %>
 
Nu <%=rsH.Fields("Actie1").Value%>% korting op de <%=rsH.Fields("Omschr" & Session("lang")).Value%>
  • Normale prijs: <%=rsH.Fields(Session("valuta")).Value%>
    • <% If rsH.Fields("actie1").Value > 0 Then %>
  • Actieprijs: <%=actiePrijs(rsH)%>
    • <% End If %>
.gif" width="125">
<% End If %>
">Meer
Wedstrijd
 

Speel het Farming Toys memory spel!

De persoon die de puzzel het snelst oplossen kan wint <%=cnH.Execute("SELECT text FROM gtext WHERE lang='" & Session("lang") & "' AND valuta='" & Session("valuta") & "'").Fields("text")%>!

 
Meer
 
 
 
<% cnH.Close Set rsH = Nothing Set cnH = Nothing 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 - rsT.Fields("actie1").Value) * 0.01, 2) Else tmpI = rsT.Fields("bodemprijzen") End if actiePrijs = tmpI End Function %>