<%@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 * FROM artikelen WHERE [verwacht]='J' ORDER BY Cat" & Session("lang") & " DESC, Fabricant, Omschr" & Session("lang") & ", artikelnummer", cnH, 3, 3 If (rsH.EOF <> True) Then If Len(Trim(Request.QueryString("s")))>0 Then skip = Request.QueryString("s") Else skip = 0 End if rsH.Move skip End If aantal = cnH.Execute("SELECT COUNT(*) AS Y FROM artikelen WHERE [verwacht]='J'").Fields("Y").Value %> Landbouw Speelgoed
<% End If %>
<% If (rsH.EOF = True) Then rsH.Close Else %> <% i = 0 Do While Not rsH.EOF And i < 20 %> <% i = i + 4 rsH.MoveNext Loop %>
 
 

<%=aantal%> resultaten
<% If skip>0 Then %> Vorige <% End If ell = true For i=0 To Int(aantal/5) If ((abs((skip/5)-i))<=1) Or (i<=4) Or (i>=(int(aantal/5)-4)) Then ell = true If Cint(i*5) = 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+5) Then %> Volgende <% End if %>
.jpg" width="174" style="margin:10px;">
<%=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")%>x<%=rsH.Fields("breedte")%>x<%=rsH.Fields("hoogte")%>
<% End If %> Prijs: € <%=Iif(rsH.Fields(Session("Valuta")).Value>0,rsH.Fields(Session("Valuta")).Value,"-")%>
<% If rsH.Fields("actie1").Value > 0 Then %> Actieprijs: € <%=Iif(actiePrijs(rsH)>0,actiePrijs(rsH),"-")%>
<% End If %> <% 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 %> Verwacht: <%=rsH.Fields("verwachtdatum").Value%>
" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('imgN<%=i+2%>','','../images/mailnrvra.gif',1)"> .jpg');" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('imgN<%=i+3%>','','../images/vergra.gif',1)">
Top
<% If skip>0 Then %> Vorige <% End If ell = true For i=0 To Int(aantal/5) If ((abs((skip/5)-i))<=1) Or (i<=4) Or (i>=(int(aantal/5)-4)) Then ell = true If Cint(i*5) = 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+5) Then %> Volgende <% End if %>
 
 
 
<% cnH.Close Set rsH = Nothing Set cnH = Nothing '--- FUNCTIES --- 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 Iif(vw,va,vb) If vw Then Iif=va Else Iif=vb 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 '--- EINDE : FUNCTIES --- %>