<%@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=;" rsH.Open "SELECT artikelen.*, (SELECT COUNT(*) FROM crosselling WHERE crosselling.artikelnr1=artikelen.artikelnummer AND crosselling.crosstype='G') AS gadgets FROM artikelen WHERE acties='J' ORDER BY Cat" & Session("lang") & " DESC, Fabricant, Omschr" & Session("lang") & ", artikelnummer", cnH,3,3 maand = cnH.Execute("SELECT maand FROM maand").Fields("maand").Value If Len(Trim(Request.QueryString("s")))>0 Then skip = Request.QueryString("s") Else skip = 0 End if rsH.Move skip aantal = cnH.Execute("SELECT COUNT(*) AS Y FROM artikelen WHERE acties='J'").Fields("Y").Value %> Landbouw Speelgoed
 
 
 

<%=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: > <%=cnH.Execute("SELECT verzendtopnl AS X FROM prijstop").Fields("X").Value%> euro: geen transportkosten
Orderwaarde: > <%=cnH.Execute("SELECT sptopnl AS X FROM prijstop").Fields("X").Value%> euro: geen transportkosten + <%=cnH.Execute("SELECT spaantal AS X FROM prijstop").Fields("X").Value%> extra spaarpunten
<% i = 0 Do While Not rsH.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 rsH.MoveNext Loop %>
.jpg');" style="display:block; height:113px; overflow:hidden;">.gif" width="113" border="0">
<%=BTNieuw(rsH)%> <% If Len(BTPrijs(rsH))>0 Then Response.Write BTPrijs(rsH) Else Response.Write BTActie(rsH) End If %> <%=BTCollect(rsH)%> <%=rsH.Fields("fabricant").Value%>
<%=rsH.Fields("omschr" & Session("lang")).Value%>
 Art. nr.: <%=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 %> <%=actieArtikel(rsH)%> <% If rsH.Fields("actie2").Value > 0 Then %> Actie verzending tijdelijk gratis
<% End If %> Spaarpunten: <%=rsH.Fields("spaarpunten").Value%>
<% If rsH.Fields("actie3").Value > 0 Then %> Extra actiespaarpunten: <%=rsH.Fields("actie3").Value%>
<% End If %> <% If rsH.Fields("gadgets").Value > 0 Then %>
&at=G">Gadgets beschikbaar
<% End If %>
&r=winkelkar.asp" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('ImgP<%=(i*4)%>','','../images/bestela.gif',1)">
" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('ImgP<%=(i*4)+2%>','','../images/mailnrvra.gif',1)"> .jpg');" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('ImgP<%=(i*4)+3%>','','../images/vergra.gif',1)">
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 %>
 
 
 
<% cnH.Close Set rsH = Nothing Set cnH = Nothing '--- FUNCTIES --- Function maandnaam(mnr) Dim tmpArr tmpArr = Array("januari","februari","maart","april","mei","juni","juli","augustus","september","oktober","november","december") If mnr>=1 And mnr<=12 Then maandnaam = tmpArr(int(mnr)-1) Else maandnaam = "Alle maanden" End if End Function 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") & "'", cnH, 3, 3 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 '--- EINDE: FUNCTIES --- %>