<% STAP2 = Request.Querystring("STAP2") %> <% 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") = "" %>

<< TERUG NAAR STAP1 - MONTAGE

ONLINE OFFERTE - STAP2

 KIES EEN DAKRAAM
<% If Request.Querystring("STAP2") = mntg Then %> U heeft een dakraam die gemonteerd moet worden. Dakraammonteur.nl kan uw dakraam monteren. Kies het raam wat u gemonteerd wenst te hebben zodat de prijs kan worden berekend. Wanneer uw raam niet in deze lijst voorkomt kunt u een raam selecteren met dezelfde maat. 

<% End If %> <% If Request.Querystring("STAP2") = dkrm Then %> Kies hieronder uw dakraam 

<% End If %>

Kies hier uw dakraam:
MERK TYPE MAAT PRIJS
<% ACTION = Request.Querystring("ACTION") %> <% CATEGORIE = Request.Querystring("CATEGORIE") %> <% PAGE = CInt(Request.Querystring("PAGE")) %> <% RCOUNT = CInt(Request.Querystring("RCOUNT")) %> <% If RCOUNT = "" Then %> <% RCOUNT = "0" %> <% End If %> <% '** Get initial recordset Set CmdShowEntries = Server.CreateObject("ADODB.Recordset") MySQL = "SELECT DAKRAMEN.* FROM DAKRAMEN WHERE (TYPENR = '2') ORDER BY MERK DESC, BREEDTE ASC" CmdShowEntries.Open MySQL,Session("ConnGuestBook_ConnectionString"), 1 HOWMANY = 100 %>

Kunststof tuimelramen

<% y = 0 %> <% while NOT CmdShowEntries.EOF %> <% if CmdShowEntries("LINK") <> "" then %> <% else %> <% end if %> <% CmdShowEntries.MoveNext %> <% y = y + 1 %> <% if y = HOWMANY then %> <% while NOT CmdShowEntries.EOF %> <% CmdShowEntries.MoveNext %> <% wend %> <% end if %> <% wend%>
&STAP3=<%= STAP2%>"> <%= CmdShowEntries("MERK") %> <%= CmdShowEntries("MERKTYPE") %> <%= CmdShowEntries("BREEDTE") %>x<%= CmdShowEntries("HOOGTE") %> <%= CmdShowEntries("PRIJS") %>">
<% ACTION = Request.Querystring("ACTION") %> <% CATEGORIE = Request.Querystring("CATEGORIE") %> <% PAGE = CInt(Request.Querystring("PAGE")) %> <% RCOUNT = CInt(Request.Querystring("RCOUNT")) %> <% If RCOUNT = "" Then %> <% RCOUNT = "0" %> <% End If %> <% '** Get initial recordset Set CmdShowEntries = Server.CreateObject("ADODB.Recordset") MySQL = "SELECT DAKRAMEN.* FROM DAKRAMEN WHERE (TYPENR = '3') ORDER BY MERK DESC, BREEDTE ASC" CmdShowEntries.Open MySQL,Session("ConnGuestBook_ConnectionString"), 1 HOWMANY = 100 %>

Kunststof uitzettuimels

<% y = 0 %> <% while NOT CmdShowEntries.EOF %> <% if CmdShowEntries("LINK") <> "" then %> <% else %> <% end if %> <% CmdShowEntries.MoveNext %> <% y = y + 1 %> <% if y = HOWMANY then %> <% while NOT CmdShowEntries.EOF %> <% CmdShowEntries.MoveNext %> <% wend %> <% end if %> <% wend%>
&STAP3=<%= STAP2%>"> <%= CmdShowEntries("MERK") %> <%= CmdShowEntries("MERKTYPE") %> <%= CmdShowEntries("BREEDTE") %>x<%= CmdShowEntries("HOOGTE") %> <%= CmdShowEntries("PRIJS") %>">
<% ACTION = Request.Querystring("ACTION") %> <% CATEGORIE = Request.Querystring("CATEGORIE") %> <% PAGE = CInt(Request.Querystring("PAGE")) %> <% RCOUNT = CInt(Request.Querystring("RCOUNT")) %> <% If RCOUNT = "" Then %> <% RCOUNT = "0" %> <% End If %> <% '** Get initial recordset Set CmdShowEntries = Server.CreateObject("ADODB.Recordset") MySQL = "SELECT DAKRAMEN.* FROM DAKRAMEN WHERE (TYPENR = '4') ORDER BY MERK DESC, BREEDTE ASC" CmdShowEntries.Open MySQL,Session("ConnGuestBook_ConnectionString"), 1 HOWMANY = 100 %>

Houten tuimelramen

<% y = 0 %> <% while NOT CmdShowEntries.EOF %> <% if CmdShowEntries("LINK") <> "" then %> <% else %> <% end if %> <% CmdShowEntries.MoveNext %> <% y = y + 1 %> <% if y = HOWMANY then %> <% while NOT CmdShowEntries.EOF %> <% CmdShowEntries.MoveNext %> <% wend %> <% end if %> <% wend%>
&STAP3=<%= STAP2%>"> <%= CmdShowEntries("MERK") %> <%= CmdShowEntries("MERKTYPE") %> <%= CmdShowEntries("BREEDTE") %>x<%= CmdShowEntries("HOOGTE") %> <%= CmdShowEntries("PRIJS") %>">
<% ACTION = Request.Querystring("ACTION") %> <% CATEGORIE = Request.Querystring("CATEGORIE") %> <% PAGE = CInt(Request.Querystring("PAGE")) %> <% RCOUNT = CInt(Request.Querystring("RCOUNT")) %> <% If RCOUNT = "" Then %> <% RCOUNT = "0" %> <% End If %> <% '** Get initial recordset Set CmdShowEntries = Server.CreateObject("ADODB.Recordset") MySQL = "SELECT DAKRAMEN.* FROM DAKRAMEN WHERE (TYPENR = '5') ORDER BY MERK DESC, BREEDTE ASC" CmdShowEntries.Open MySQL,Session("ConnGuestBook_ConnectionString"), 1 HOWMANY = 100 %>

Houten uitzettuimels

<% y = 0 %> <% while NOT CmdShowEntries.EOF %> <% if CmdShowEntries("LINK") <> "" then %> <% else %> <% end if %> <% CmdShowEntries.MoveNext %> <% y = y + 1 %> <% if y = HOWMANY then %> <% while NOT CmdShowEntries.EOF %> <% CmdShowEntries.MoveNext %> <% wend %> <% end if %> <% wend%>
&STAP3=<%= STAP2%>"> <%= CmdShowEntries("MERK") %> <%= CmdShowEntries("MERKTYPE") %> <%= CmdShowEntries("BREEDTE") %>x<%= CmdShowEntries("HOOGTE") %> <%= CmdShowEntries("PRIJS") %>">
<% ACTION = Request.Querystring("ACTION") %> <% CATEGORIE = Request.Querystring("CATEGORIE") %> <% PAGE = CInt(Request.Querystring("PAGE")) %> <% RCOUNT = CInt(Request.Querystring("RCOUNT")) %> <% If RCOUNT = "" Then %> <% RCOUNT = "0" %> <% End If %> <% '** Get initial recordset Set CmdShowEntries = Server.CreateObject("ADODB.Recordset") MySQL = "SELECT DAKRAMEN.* FROM DAKRAMEN WHERE (TYPENR = '6') ORDER BY MERK DESC, BREEDTE ASC" CmdShowEntries.Open MySQL,Session("ConnGuestBook_ConnectionString"), 1 HOWMANY = 100 %>

Uitzetramen

<% If CmdShowEntries.RecordCount = 0 Then %> <% Response.End %> <% End If %> <% y = 0 %> <% while NOT CmdShowEntries.EOF %> <% if CmdShowEntries("LINK") <> "" then %> <% else %> <% end if %> <% CmdShowEntries.MoveNext %> <% y = y + 1 %> <% if y = HOWMANY then %> <% while NOT CmdShowEntries.EOF %> <% CmdShowEntries.MoveNext %> <% wend %> <% end if %> <% wend%>
&STAP3=<%= STAP2%>"> <%= CmdShowEntries("MERK") %> <%= CmdShowEntries("MERKTYPE") %> <%= CmdShowEntries("BREEDTE") %>x<%= CmdShowEntries("HOOGTE") %> <%= CmdShowEntries("PRIJS") %>">