<%@LANGUAGE="VBSCRIPT"%> <% Dim door_security__MMColParam door_security__MMColParam = "Door Security" if (Request("MM_EmptyValue") <> "") then door_security__MMColParam = Request("MM_EmptyValue") %> <% set door_security = Server.CreateObject("ADODB.Recordset") door_security.ActiveConnection = MM_havlins_STRING door_security.Source = "SELECT * FROM tblLocks WHERE type = '" + Replace(door_security__MMColParam, "'", "''") + "' ORDER BY title ASC" door_security.CursorType = 0 door_security.CursorLocation = 2 door_security.LockType = 3 door_security.Open() door_security_numRows = 0 %> <% Dim padlocks__MMColParam padlocks__MMColParam = "Padlocks" if (Request("MM_EmptyValue") <> "") then padlocks__MMColParam = Request("MM_EmptyValue") %> <% set padlocks = Server.CreateObject("ADODB.Recordset") padlocks.ActiveConnection = MM_havlins_STRING padlocks.Source = "SELECT * FROM tblLocks WHERE type = '" + Replace(padlocks__MMColParam, "'", "''") + "' ORDER BY title ASC" padlocks.CursorType = 0 padlocks.CursorLocation = 2 padlocks.LockType = 3 padlocks.Open() padlocks_numRows = 0 %> <% Dim locking_devices__MMColParam locking_devices__MMColParam = "Locking Devices" if (Request("MM_EmptyValue") <> "") then locking_devices__MMColParam = Request("MM_EmptyValue") %> <% set locking_devices = Server.CreateObject("ADODB.Recordset") locking_devices.ActiveConnection = MM_havlins_STRING locking_devices.Source = "SELECT * FROM tblLocks WHERE type = '" + Replace(locking_devices__MMColParam, "'", "''") + "' ORDER BY title ASC" locking_devices.CursorType = 0 locking_devices.CursorLocation = 2 locking_devices.LockType = 3 locking_devices.Open() locking_devices_numRows = 0 %> <% Dim Furniture_Locks__MMColParam Furniture_Locks__MMColParam = "Furniture Locks" if (Request("MM_EmptyValue") <> "") then Furniture_Locks__MMColParam = Request("MM_EmptyValue") %> <% set Furniture_Locks = Server.CreateObject("ADODB.Recordset") Furniture_Locks.ActiveConnection = MM_havlins_STRING Furniture_Locks.Source = "SELECT * FROM tblLocks WHERE type = '" + Replace(Furniture_Locks__MMColParam, "'", "''") + "' ORDER BY title ASC" Furniture_Locks.CursorType = 0 Furniture_Locks.CursorLocation = 2 Furniture_Locks.LockType = 3 Furniture_Locks.Open() Furniture_Locks_numRows = 0 %> <% Dim Repeat1__numRows Repeat1__numRows = -1 Dim Repeat1__index Repeat1__index = 0 door_security_numRows = door_security_numRows + Repeat1__numRows %> <% Dim Repeat2__numRows Repeat2__numRows = -1 Dim Repeat2__index Repeat2__index = 0 padlocks_numRows = padlocks_numRows + Repeat2__numRows %> <% Dim Repeat3__numRows Repeat3__numRows = -1 Dim Repeat3__index Repeat3__index = 0 locking_devices_numRows = locking_devices_numRows + Repeat3__numRows %> <% Dim Repeat4__numRows Repeat4__numRows = -1 Dim Repeat4__index Repeat4__index = 0 Furniture_Locks_numRows = Furniture_Locks_numRows + Repeat4__numRows %>

Locks

Door Security <% While ((Repeat1__numRows <> 0) AND (NOT door_security.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 door_security.MoveNext() Wend %> ','more','scrollbars=yes,resizable=yes,width=328,height=400')"> <% If Not door_security.Fields.Item("image").Value = "" Then %> " width="100" height="81" border="0" alt="<%=(door_security.Fields.Item("title").Value)%>"> <% Else %> <% End If %> <%=(door_security.Fields.Item("title").Value)%> ','more','scrollbars=yes,resizable=yes,width=328,height=400')"> Padlocks <% While ((Repeat2__numRows <> 0) AND (NOT padlocks.EOF)) %> <% Repeat2__index=Repeat2__index+1 Repeat2__numRows=Repeat2__numRows-1 padlocks.MoveNext() Wend %> ','more','scrollbars=yes,resizable=yes,width=328,height=400')"> <% If Not padlocks.Fields.Item("image").Value = "" Then %> " width="100" height="81" alt="<%=(padlocks.Fields.Item("title").Value)%>" border="0"> <% Else %> <% End If %> <%=(padlocks.Fields.Item("title").Value)%> ','more','scrollbars=yes,resizable=yes,width=328,height=400')"> Additional Locking Devices <% While ((Repeat3__numRows <> 0) AND (NOT locking_devices.EOF)) %> <% Repeat3__index=Repeat3__index+1 Repeat3__numRows=Repeat3__numRows-1 locking_devices.MoveNext() Wend %> ','more','scrollbars=yes,resizable=yes,width=328,height=400')"> <% If Not locking_devices.Fields.Item("image").Value = "" Then %> " width="100" height="81" alt="<%=(locking_devices.Fields.Item("title").Value)%>" border="0"> <% Else %> <% End If %> <%=(locking_devices.Fields.Item("title").Value)%> ','more','scrollbars=yes,resizable=yes,width=328,height=400')"> Furniture Locks <% While ((Repeat4__numRows <> 0) AND (NOT Furniture_Locks.EOF)) %> <% Repeat4__index=Repeat4__index+1 Repeat4__numRows=Repeat4__numRows-1 Furniture_Locks.MoveNext() Wend %> ','more','scrollbars=yes,resizable=yes,width=328,height=400')"> <% If Not Furniture_Locks.Fields.Item("image").Value = "" Then %> " width="100" height="81" alt="<%=(Furniture_Locks.Fields.Item("title").Value)%>" border="0"> <% Else %> <% End If %> <%=(Furniture_Locks.Fields.Item("title").Value)%> ','more','scrollbars=yes,resizable=yes,width=328,height=400')">

<% door_security.Close() %> <% padlocks.Close() %> <% locking_devices.Close() %> <% Furniture_Locks.Close() %>