<%@Language=VBScript%> <% Dim cnFTO, rsFTO Dim fldname Dim sqlw Dim aantal, skip Dim i, color Dim qstr Dim ell Dim title Dim artype If Len(Request.QueryString("at"))=0 Then artype = "P" Else artype = Request.QueryString("at") End If title = "" sqlw = "" For Each fldname In Request.QueryString If len(trim(Request.QueryString(fldname)))>0 Then Select Case Ucase(fldname) Case "LEEFTIJDSGROEP" sqlw = sqlw & "[" & fldname & "]=" & Request.QueryString(fldname) & " AND " title = title & Request.QueryString(fldname) & " - " Case "PRIJS" sqlw = sqlw & "[" & Session("Valuta") & "]=" & Request.QueryString(fldname) & " AND " title = title & Request.QueryString(fldname) & " - " Case "SCHAAL", "MERK", "CATNL", "FABRICANT", "ARTIKELNUMMER" sqlw = sqlw & "[" & fldname & "]='" & trim(Request.QueryString(fldname)) & "' AND " title = title & Request.QueryString(fldname) & " - " Case "KEYWORD" sqlw = sqlw & "([Cat" & Session("lang") & "] LIKE '%" & trim(Request.QueryString(fldname)) & "%' OR [Omschr" & Session("lang") & "] LIKE '%" & trim(Request.QueryString(fldname)) & "%' OR [Fabricant] LIKE '%" & trim(Request.QueryString(fldname)) & "%' OR [Merk] LIKE '%" & trim(Request.QueryString(fldname)) & "%' OR [Artikelnummer] LIKE '%" & trim(Request.QueryString(fldname)) & "%') AND " title = title & Request.QueryString(fldname) & " - " Case "GP" sqlw = sqlw & "Artikelnummer IN (SELECT artikelnr2 FROM crosselling WHERE artikelnr1='" & Request.QueryString(fldname) & "') AND " title = title & Request.QueryString(fldname) & " - " End Select End if Next If Len(title)>0 Then title = left(title,len(title)-2) End If If len(sqlw)>0 Then sqlw = "WHERE " & sqlw & " Artikelnummer<>'bedrag'" Else sqlw = "WHERE " & sqlw & " [Verwacht]='N' AND [artype]='" & artype & "' AND Artikelnummer<>'bedrag'" 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 artikelen.*, (SELECT COUNT(*) FROM crosselling WHERE crosselling.artikelnr1=artikelen.artikelnummer AND crosselling.crosstype='G') AS gadgets FROM artikelen " & sqlw & " ORDER BY IIF(CatNL='Tractor','ZZTOP',Cat" & Session("lang") & ") DESC, Fabricant, Omschr" & Session("lang") & ", artikelnummer", cnFTO If Len(Trim(Request.QueryString("s")))>0 Then skip = Request.QueryString("s") Else skip = 0 End if qstr = Replace(Request.ServerVariables("QUERY_STRING"),"s=" & skip & "&","") If Not rsFTO.EOF Then rsFTO.Move skip aantal = cnFTO.Execute("SELECT COUNT(*) AS Y FROM artikelen " & sqlw).Fields("Y").Value %> Landbouw Speelgoed<% Response.Write " - " & title %>
 
 

<%=aantal%> resultaten
<% If skip>0 Then %> Vorige <% End If ell = true If (aantal/8) = Int(aantal/8) Then vAantPag = (aantal/8) - 1 Else vAantPag = (aantal/8) End If For i=0 To vAantPag If ((abs((skip/8)-i))<=1) Or (i<=4) Or (i>=(int(aantal/8)-4)) Then ell = true If Cint(i*8) = Cint(skip) Then Response.Write (i+1) & " " Else Response.Write "" & (i+1) & " " End if Else If ell Then Response.Write "... " ell = false End if End if Next If aantal>(skip+8) Then %> Volgende <% End if %>
 
Orderwaarde: > <%=cnFTO.Execute("SELECT verzendtopnl AS X FROM prijstop").Fields("X").Value%> euro: geen transportkosten <% Dim gratisitem Set rsGratis = Server.CreateObject("ADODB.Recordset") 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 Then gratisitem = " + " & rsGratis.Fields("Fabricant").Value & ": " & rsGratis.Fields("OMSCHR").Value & " (#" & rsGratis.Fields("Artikelnummer").Value & ")" Response.Write gratisitem End If rsGratis.Close Set rsGratis = Nothing %>
Orderwaarde: > <%=cnFTO.Execute("SELECT sptopnl AS X FROM prijstop").Fields("X").Value%> euro: geen transportkosten<%=gratisitem %> + <%=cnFTO.Execute("SELECT spaantal AS X FROM prijstop").Fields("X").Value%> extra spaarpunten
 
<% i = 0 If rsFTO.EOF Then %> Er zijn 0 items gevonden. Verbreedt uw zoekcriteria voor het vinden van de gewenste artikelen.

<% Else Do While Not rsFTO.EOF And i < 8 If (Int(i/4)*4=i) and i>0 Then %>
Top
<% End if If Int(i/2)*2=i Then color = "d8e6f5" Else color = "fcdfd1" End If %> <% i = i + 1 'If i=8 Then Exit Do rsFTO.MoveNext Loop End If %>
.jpg');" style="display:block; height:113px; overflow:hidden;">.gif" width="113" border="0">
<%=BTNieuw(rsFTO)%> <% If len(BTPrijs(rsFTO))>0 Then Response.Write BTPrijs(rsFTO) Else Response.Write BTActie(rsFTO) End if %> <%=BTCollect(rsFTO)%> <%=rsFTO.Fields("fabricant").Value%>
<%=rsFTO.Fields("omschr" & Session("lang")).Value%>

Art. nr.: <%=rsFTO.Fields("artikelnummer").Value%>
Schaal: <%=rsFTO.Fields("Schaal").Value%>
<% If rsFTO.Fields("lengte") <> 0 Then %> LxBxH: <%=rsFTO.Fields("lengte").Value%>x<%=rsFTO.Fields("breedte").Value%>x<%=rsFTO.Fields("hoogte").Value%>
<% End If %> Prijs: € <%=rsFTO.Fields(Session("valuta")).Value%>
<%If rsFTO.Fields("actie1").Value > 0 Then%> Actieprijs: € <%=actiePrijs(rsFTO)%>
<%End if%> <%=actieArtikel(rsFTO)%> <%If rsFTO.Fields("actie2").Value > 0 Then%> Actie verzending tijdelijk gratis
<%End if%> Spaarpunten: <%=rsFTO.Fields("spaarpunten").Value%>
<%If rsFTO.Fields("actie3").Value > 0 Then%> Extra actiespaarpunten: <%=rsFTO.Fields("actie3").Value%>
<%End if%> <%If rsFTO.Fields("gadgets").Value > 0 Then%>
&at=G">Gadgets beschikbaar
<%End If%>
<% if rsFTO.Fields("verwacht").Value = "N" then %> <% else Response.Write("") end if %> <% If Session("user") <> "" Then %> <% End If %>
 
&s=<%=Request.Querystring("s")%>">Voeg toe aan mijn verlanglijstje
Top
 
<% If skip>0 Then %> Vorige <% End If ell = true For i=0 To vAantPag If ((abs((skip/8)-i))<=1) Or (i<=4) Or (i>=(int(aantal/8)-4)) Then ell = true If Cint(i*8) = Cint(skip) Then Response.Write (i+1) & " " Else Response.Write "" & (i+1) & " " End if Else If ell Then Response.Write "... " ell = false End if End if Next If aantal>(skip+8) Then %> Volgende <% End if %>
 
 


 
<% rsFTO.Close cnFTO.Close Set rsFTO = Nothing Set cnFTO = Nothing Function BTNieuw(rsT) If rsT.Fields("New") = "J" Then BTNieuw = "" Else BTNieuw = "" End if End Function Function BTPrijs(rsT) If rsT.Fields("Bodemprijzen") > "0" Then BTPrijs = "" Else BTPrijs = "" End if End Function Function BTActie(rsT) If rsT.Fields("Acties") = "J" Then BTActie = "" Else BTActie = "" End if End Function Function BTCollect(rsT) If rsT.Fields("CollectItem") = "J" Then BTCollect = "" Else BTCollect = "" End if 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 - rsT.Fields("actie1").Value) * 0.01, 2) Else tmpI = rsT.Fields("bodemprijzen") End if actiePrijs = tmpI End Function Function actieArtikel(rsT) Dim rsG If len(Trim(rsT.Fields("Actie4")))>0 Then Set rsG = Server.CreateObject("ADODB.Recordset") rsG.Open "SELECT Omschr" & Session("lang") & " AS XPC FROM Artikelen WHERE Artikelnummer='" & rsT.Fields("Actie4") & "'", cnFTO If not rsG.EOF Then actieArtikel = "Gratis bij aankoop: " & rsG.Fields("XPC").Value & "
" End if rsG.Close Set rsG = Nothing Else actieArtikel = "" End if End Function %>