<%@LANGUAGE="VBSCRIPT"%> <% STAP4 = Request.Querystring("STAP4") ID1 = Request.Querystring("ID1") ID2 = Request.Querystring("ID2") IDP = Request.Form("IDP") ACTION = Request.Form("ACTION") Session("ConnGuestBook_ConnectionString") = "DBQ=d:\www\dakraammonteur.nl\database\dakraam.mdb;DefaultDir= & d:\www\dakraammonteur.nl\database & ;Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;ImplicitCommitSync=Yes;MaxBufferSize=512;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;Threads=3;UID=admin;UserCommitSync=Yes;" Session("ConnGuestBook_ConnectionTimeout") = 120 Session("ConnGuestBook_CommandTimeout") = 180 Session("ConnGuestBook_RuntimeUserName") = "admin" Session("ConnGuestBook_RuntimePassword") = "" %> <% If ACTION = "Save" Then %>

<< TERUG NAAR STAP4 - AANTAL / PLAATS

ONLINE OFFERTE - STAP5

 KIES MONTAGE-OPTIES
<% if ID2 <> "" then %>
DAKRAAM 1:
<% end if %> <% RCOUNT = CInt(Request.Querystring("RCOUNT")) %> <% If RCOUNT = "" Then %> <% RCOUNT = "0" %> <% End If Set CmdShowEntries = Server.CreateObject("ADODB.Recordset") MySQL = "SELECT PLAATS.* FROM PLAATS WHERE (IDP = " & IDP & ")" CmdShowEntries.Open MySQL,Session("ConnGuestBook_ConnectionString"), 3 PLAATS = CmdShowEntries("PLAATS") EKSTRA = CmdShowEntries("EKSTRA") AFTIMMERING = CmdShowEntries("AFTIMMERING") VOORRIJ = CmdShowEntries("VOORRIJ") IDP = CmdShowEntries("IDP") %>

AANTAL MERK TYPE MAAT PRIJS PER DAKRAAM
<% '** Get initial recordset Set CmdShowEntries = Server.CreateObject("ADODB.Recordset") MySQL = "SELECT DAKRAMEN.* FROM DAKRAMEN WHERE (ID = " & ID1 & ")" CmdShowEntries.Open MySQL,Session("ConnGuestBook_ConnectionString"), 3 MERK1 = CmdShowEntries("MERK") MERKTYPE1 = CmdShowEntries("MERKTYPE") BREEDTE1 = CmdShowEntries("BREEDTE") HOOGTE1 = CmdShowEntries("HOOGTE") PRIJS1 = CmdShowEntries("PRIJS") GORDIJN1 = CmdShowEntries("GORDIJN") GORDIJNPRIJS1 = CmdShowEntries("GORDIJNPRIJS") ROLGORDIJN1 = CmdShowEntries("ROLGORDIJN") ROLGORDIJNPRIJS1 = CmdShowEntries("ROLGORDIJNPRIJS") MANCHET1 = CmdShowEntries("MANCHET") SIZE = CDbl(BREEDTE1) + HOOGTE1 SIZE1 = SIZE / 2 %> "> <% if CmdShowEntries("LINK") <> "" then %> <% else %> <% end if %>
<%= Request.Form("AANTAL1") %> <%= CmdShowEntries("MERK") %> <%= CmdShowEntries("MERKTYPE") %> <%= CmdShowEntries("BREEDTE") %>x<%= CmdShowEntries("HOOGTE") %> <%= CmdShowEntries("PRIJS") %>">

OPTIES
<% if CmdShowEntries("GORDIJN") <> "" then %>
Verduisteringsgordijn - <%= CmdShowEntries("GORDIJN") %>: <%= CmdShowEntries("GORDIJNPRIJS") %> Euro
<% end if %> <% if CmdShowEntries("ROLGORDIJN") <> "" then %>
Rolgordijn - <%= CmdShowEntries("ROLGORDIJN") %>: <%= CmdShowEntries("ROLGORDIJNPRIJS") %> Euro
<% end if %> <% if CmdShowEntries("MANCHET") <> "" then %>
Waterkerend manchet: <%= CmdShowEntries("MANCHET") %> Euro
<% end if %> <% if ID2 <> "" then %>

DAKRAAM 2:

AANTAL MERK TYPE MAAT PRIJS PER DAKRAAM
<% Set CmdShowEntries = Server.CreateObject("ADODB.Recordset") MySQL = "SELECT DAKRAMEN.* FROM DAKRAMEN WHERE (ID = " & ID2 & ")" CmdShowEntries.Open MySQL,Session("ConnGuestBook_ConnectionString"), 3 MERK2 = CmdShowEntries("MERK") MERKTYPE2 = CmdShowEntries("MERKTYPE") BREEDTE2 = CmdShowEntries("BREEDTE") HOOGTE2 = CmdShowEntries("HOOGTE") PRIJS2 = CmdShowEntries("PRIJS") GORDIJN2 = CmdShowEntries("GORDIJN") GORDIJNPRIJS2 = CmdShowEntries("GORDIJNPRIJS") ROLGORDIJN2 = CmdShowEntries("ROLGORDIJN") ROLGORDIJNPRIJS2 = CmdShowEntries("ROLGORDIJNPRIJS") MANCHET2 = CmdShowEntries("MANCHET") SIZED = CDbl(BREEDTE2) + HOOGTE2 SIZE2 = SIZED / 2 TAANTAL = Request.Form("AANTAL1") + Request.Form("AANTAL2") %> "> <% if CmdShowEntries("LINK") <> "" then %> <% else %> <% end if %>
<%= Request.Form("AANTAL2") %> <%= CmdShowEntries("MERK") %> <%= CmdShowEntries("MERKTYPE") %> <%= CmdShowEntries("BREEDTE") %>x<%= CmdShowEntries("HOOGTE") %> <%= CmdShowEntries("PRIJS") %>">

OPTIES
<% if CmdShowEntries("GORDIJN") <> "" then %>
Verduisteringsgordijn - <%= CmdShowEntries("GORDIJN") %>: <%= CmdShowEntries("GORDIJNPRIJS") %> Euro
<% end if %> <% if CmdShowEntries("ROLGORDIJN") <> "" then %>
Rolgordijn - <%= CmdShowEntries("ROLGORDIJN") %>: <%= CmdShowEntries("ROLGORDIJNPRIJS") %> Euro
<% end if %> <% if CmdShowEntries("MANCHET") <> "" then %>
Waterkerend manchet: <%= CmdShowEntries("MANCHET") %> Euro
<% end if %> <% end if %>

<% end if %> <% If ACTION <> "Save" Then %> <% If ACTION <> "Save2" Then %>

<< TERUG NAAR STAP3 - DAKRAMEN

ONLINE OFFERTE - STAP4

 KIES HET AANTAL / KIES PLAATS
<% if ID2 <> "" then %>
DAKRAAM 1:
<% end if %> <% RCOUNT = CInt(Request.Querystring("RCOUNT")) %> <% If RCOUNT = "" Then %> <% RCOUNT = "0" %> <% End If %>

AANTAL MERK TYPE MAAT PRIJS
<% '** Get initial recordset Set CmdShowEntries = Server.CreateObject("ADODB.Recordset") MySQL = "SELECT DAKRAMEN.* FROM DAKRAMEN WHERE (ID = " & ID1 & ")" CmdShowEntries.Open MySQL,Session("ConnGuestBook_ConnectionString"), 3 MERK1 = CmdShowEntries("MERK") MERKTYPE1 = CmdShowEntries("MERKTYPE") BREEDTE1 = CmdShowEntries("BREEDTE") HOOGTE1 = CmdShowEntries("HOOGTE") PRIJS1 = CmdShowEntries("PRIJS") GORDIJN1 = CmdShowEntries("GORDIJN") GORDIJNPRIJS1 = CmdShowEntries("GORDIJNPRIJS") ROLGORDIJN1 = CmdShowEntries("ROLGORDIJN") ROLGORDIJNPRIJS1 = CmdShowEntries("ROLGORDIJNPRIJS") MANCHET1 = CmdShowEntries("MANCHET") SIZE11 = CDbl(BREEDTE1) + HOOGTE1 SIZE1 = SIZE11 / 2 %> <% if CmdShowEntries("LINK") <> "" then %> <% else %> <% end if %>
<%= CmdShowEntries("MERK") %> <%= CmdShowEntries("MERKTYPE") %> <%= CmdShowEntries("BREEDTE") %>x<%= CmdShowEntries("HOOGTE") %> <%= CmdShowEntries("PRIJS") %>">
<% if ID2 <> "" then %>

DAKRAAM 2:

AANTAL MERK TYPE MAAT PRIJS
<% Set CmdShowEntries = Server.CreateObject("ADODB.Recordset") MySQL = "SELECT DAKRAMEN.* FROM DAKRAMEN WHERE (ID = " & ID2 & ")" CmdShowEntries.Open MySQL,Session("ConnGuestBook_ConnectionString"), 3 MERK2 = CmdShowEntries("MERK") MERKTYPE2 = CmdShowEntries("MERKTYPE") BREEDTE2 = CmdShowEntries("BREEDTE") HOOGTE2 = CmdShowEntries("HOOGTE") PRIJS2 = CmdShowEntries("PRIJS") GORDIJN2 = CmdShowEntries("GORDIJN") GORDIJNPRIJS2 = CmdShowEntries("GORDIJNPRIJS") ROLGORDIJN2 = CmdShowEntries("ROLGORDIJN") ROLGORDIJNPRIJS2 = CmdShowEntries("ROLGORDIJNPRIJS") MANCHET2 = CmdShowEntries("MANCHET") SIZE22 = CDbl(BREEDTE2) + HOOGTE2 SIZE2 = SIZE22 / 2 %> <% if CmdShowEntries("LINK") <> "" then %> <% else %> <% end if %>
<%= CmdShowEntries("MERK") %> <%= CmdShowEntries("MERKTYPE") %> <%= CmdShowEntries("BREEDTE") %>x<%= CmdShowEntries("HOOGTE") %> <%= CmdShowEntries("PRIJS") %>">
<% end if %>

<% RCOUNT = CInt(Request.Querystring("RCOUNT")) %> <% If RCOUNT = "" Then %> <% RCOUNT = "0" %> <% End If %> <% Set CmdShowEntries = Server.CreateObject("ADODB.Recordset") MySQL = "SELECT PLAATS.* FROM PLAATS ORDER BY PLAATS ASC" CmdShowEntries.Open MySQL,Session("ConnGuestBook_ConnectionString"), 3 HOWMANY = 100 If CmdShowEntries.RecordCount = 0 Then %> <% Response.End %> <% End If %>

PLAATS
Om de voorrijkosten te berekenen kunt u hier de plaatsnaam selecteren waar het dakraam gemonteerd moet worden. Kies de plaats die er het dichts in de buurt komt. Wij hebben geen monteurs in de provincies Limburg en Zeeland.

<% end if %> <% end if %>