%@Language=VBScript%>
<%
Dim cnFTO, rsFTO
Dim total, vtotal, sp
If Len(trim(Session("bestelnr")))=0 Then
%>
<%
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 items.*, [artikelen].* FROM items INNER JOIN artikelen ON [items].[artnr]=artikelen.artikelnummer WHERE [items].bestelnr='" & Session("bestelnr") & "' ORDER BY [items].[artnr]", cnFTO
%>
<%
rsFTO.Close
cnFTO.Close
Set rsFTO = Nothing
Set cnFTO = Nothing
' --- FUNCTIES ---
Function GetSpaarpunten(prijs)
Dim rsKlant
Dim tmpInt
If Len(Session("User"))>0 And Session("sp") Then
Set rsKlant = Server.CreateObject("ADODB.Recordset")
rsKlant.Open "SELECT Spaarpunten FROM Klanten WHERE Email='" & Session("user") & "'", cnFTO
If Int(prijs / 0.45) > rsKlant.Fields("Spaarpunten") Then
tmpInt = rsKlant.Fields("Spaarpunten")
Else
tmpInt = Int(prijs / 0.45)
End if
rsKlant.Close
Set rsKlant = Nothing
Else
tmpInt = 0
End if
GetSpaarpunten = tmpInt
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 - Iif(Isnull(rsT.Fields("actie1").Value),0,rsT.Fields("actie1").Value)) * 0.01, 2)
Else
tmpI = rsT.Fields("bodemprijzen")
End If
End if
actiePrijs = tmpI
End Function
Function actieVZ(rsT)
If rsT.Fields("actie2")>0 Then
actieVZ = 0
Else
actieVZ = rsT.Fields("v" & Session("valuta")).Value
End if
End Function
Function actieSp(rsT)
actieSp = rsT.Fields("actie3").Value + rsT.Fields("Spaarpunten").Value
End Function
Function Iif(a,b,c)
If a Then Iif=b Else Iif=c
End Function
Function CancelVerzend(Byval prijs)
CancelVerzend = (CDbl(prijs) >= cnFTO.Execute("SELECT verzendtopnl FROM prijstop").Fields("verzendtopnl").Value)
End Function
Function FreeItem(Byval prijs)
Dim gratisitem
Dim rsGratis
Dim prijstop
Set rsGratis = Server.CreateObject("ADODB.Recordset")
prijstop = CDbl(cnFTO.Execute("SELECT verzendtopnl AS X FROM prijstop").Fields("X").Value)
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) And (Total >= prijstop) Then
gratisitem = "