<%@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 [new]='J' ORDER BY Cat" & Session("lang") & " DESC, Fabricant, Omschr" & Session("lang") & ", artikelnummer", cnH, 3, 3
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 [new]='J'").Fields("Y").Value
%>
Landbouw Speelgoed
<%
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
%>
<%
i = 0
Do While Not rsH.EOF And i < 20
%>
.jpg" width="174" style="margin:10px;">
<%
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 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 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 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
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
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 ---
%>
Vorige
