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

ONLINE OFFERTE - STAP3

 KIES EEN DAKRAAM
U heeft gekozen voor het volgende 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 (ID = " & ID1 & ") ORDER BY MERK DESC, BREEDTE ASC" CmdShowEntries.Open MySQL,Session("ConnGuestBook_ConnectionString"), 1 HOWMANY = 100 %> <% If CmdShowEntries.RecordCount = 0 Then %> <% Response.End %> <% End If %> <% y = 0 %> <% while NOT CmdShowEntries.EOF %> <% if CmdShowEntries("LINK") <> "" then %> <% else %> <% end if %>
<%= CmdShowEntries("MERK") %> <%= CmdShowEntries("MERKTYPE") %> <%= CmdShowEntries("BREEDTE") %>x<%= CmdShowEntries("HOOGTE") %> <%= CmdShowEntries("PRIJS") %>">
<% CmdShowEntries.MoveNext %> <% y = y + 1 %> <% if y = HOWMANY then %> <% while NOT CmdShowEntries.EOF %> <% CmdShowEntries.MoveNext %> <% wend %> <% end if %> <% wend%>

Of kies hieronder een tweede dakraam

Kies hier eventueel een 2e 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%>
&STAP4=<%= STAP3%>"> <%= 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%>
&STAP4=<%= STAP3%>"> <%= 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%>
&STAP4=<%= STAP3%>"> <%= 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%>
&STAP4=<%= STAP3%>"> <%= 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%>
&STAP4=<%= STAP3%>"> <%= CmdShowEntries("MERK") %> <%= CmdShowEntries("MERKTYPE") %> <%= CmdShowEntries("BREEDTE") %>x<%= CmdShowEntries("HOOGTE") %> <%= CmdShowEntries("PRIJS") %>">