<%@LANGUAGE="VBSCRIPT"%> <% Dim digital__MMColParam digital__MMColParam = "Mechanical Digital" if (Request("MM_EmptyValue") <> "") then digital__MMColParam = Request("MM_EmptyValue") %> <% set digital = Server.CreateObject("ADODB.Recordset") digital.ActiveConnection = MM_havlins_STRING digital.Source = "SELECT * FROM tblAccess WHERE type = '" + Replace(digital__MMColParam, "'", "''") + "' ORDER BY title ASC" digital.CursorType = 0 digital.CursorLocation = 2 digital.LockType = 3 digital.Open() digital_numRows = 0 %> <% Dim standalone__MMColParam standalone__MMColParam = "Standalone Electronic" if (Request("MM_EmptyValue") <> "") then standalone__MMColParam = Request("MM_EmptyValue") %> <% set standalone = Server.CreateObject("ADODB.Recordset") standalone.ActiveConnection = MM_havlins_STRING standalone.Source = "SELECT * FROM tblAccess WHERE type = '" + Replace(standalone__MMColParam, "'", "''") + "' ORDER BY title ASC" standalone.CursorType = 0 standalone.CursorLocation = 2 standalone.LockType = 3 standalone.Open() standalone_numRows = 0 %> <% Dim wired__MMColParam wired__MMColParam = "Wired Electronic" if (Request("MM_EmptyValue") <> "") then wired__MMColParam = Request("MM_EmptyValue") %> <% set wired = Server.CreateObject("ADODB.Recordset") wired.ActiveConnection = MM_havlins_STRING wired.Source = "SELECT * FROM tblAccess WHERE type = '" + Replace(wired__MMColParam, "'", "''") + "' ORDER BY title ASC" wired.CursorType = 0 wired.CursorLocation = 2 wired.LockType = 3 wired.Open() wired_numRows = 0 %> <% Dim electronic__MMColParam electronic__MMColParam = "Electronic Locking" if (Request("MM_EmptyValue") <> "") then electronic__MMColParam = Request("MM_EmptyValue") %> <% set electronic = Server.CreateObject("ADODB.Recordset") electronic.ActiveConnection = MM_havlins_STRING electronic.Source = "SELECT * FROM tblAccess WHERE type = '" + Replace(electronic__MMColParam, "'", "''") + "' ORDER BY title ASC" electronic.CursorType = 0 electronic.CursorLocation = 2 electronic.LockType = 3 electronic.Open() electronic_numRows = 0 %> <% Dim Repeat1__numRows Repeat1__numRows = -1 Dim Repeat1__index Repeat1__index = 0 digital_numRows = digital_numRows + Repeat1__numRows %> <% Dim Repeat2__numRows Repeat2__numRows = -1 Dim Repeat2__index Repeat2__index = 0 standalone_numRows = standalone_numRows + Repeat2__numRows %> <% Dim Repeat3__numRows Repeat3__numRows = -1 Dim Repeat3__index Repeat3__index = 0 wired_numRows = wired_numRows + Repeat3__numRows %> <% Dim Repeat4__numRows Repeat4__numRows = -1 Dim Repeat4__index Repeat4__index = 0 electronic_numRows = electronic_numRows + Repeat4__numRows %>

Access Technology

Mechanical Digital Locks <% While ((Repeat1__numRows <> 0) AND (NOT digital.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 digital.MoveNext() Wend %> ','more','scrollbars=yes,resizable=yes,width=328,height=400')"> <% If Not digital.Fields.Item("image").Value = "" Then %> " width="100" height="81" border="0" alt="<%=(digital.Fields.Item("title").Value)%>"> <% Else %> <% End If %> <%=(digital.Fields.Item("title").Value)%> ','more','scrollbars=yes,resizable=yes,width=328,height=400')"> Standalone Electronic Access Products <% While ((Repeat2__numRows <> 0) AND (NOT standalone.EOF)) %> <% Repeat2__index=Repeat2__index+1 Repeat2__numRows=Repeat2__numRows-1 standalone.MoveNext() Wend %> ','more','scrollbars=yes,resizable=yes,width=328,height=400')"> <% If Not standalone.Fields.Item("image").Value = "" Then %> " width="100" height="81" alt="<%=(standalone.Fields.Item("title").Value)%>" border="0"> <% Else %> <% End If %> <%=(standalone.Fields.Item("title").Value)%> ','more','scrollbars=yes,resizable=yes,width=328,height=400')"> Wired Electronic Access Products <% While ((Repeat3__numRows <> 0) AND (NOT wired.EOF)) %> <% Repeat3__index=Repeat3__index+1 Repeat3__numRows=Repeat3__numRows-1 wired.MoveNext() Wend %> ','more','scrollbars=yes,resizable=yes,width=328,height=400')"> <% If Not wired.Fields.Item("image").Value = "" Then %> " width="100" height="81" alt="<%=(wired.Fields.Item("title").Value)%>" border="0"> <% Else %> <% End If %> <%=(wired.Fields.Item("title").Value)%> ','more','scrollbars=yes,resizable=yes,width=328,height=400')"> Electronic Locking Devices <% While ((Repeat4__numRows <> 0) AND (NOT electronic.EOF)) %> <% Repeat4__index=Repeat4__index+1 Repeat4__numRows=Repeat4__numRows-1 electronic.MoveNext() Wend %> ','more','scrollbars=yes,resizable=yes,width=328,height=400')"> <% If Not electronic.Fields.Item("image").Value = "" Then %> " width="100" height="81" alt="<%=(electronic.Fields.Item("title").Value)%>" border="0"> <% Else %> <% End If %> <%=(electronic.Fields.Item("title").Value)%> ','more','scrollbars=yes,resizable=yes,width=328,height=400')">

<% digital.Close() %> <% standalone.Close() %> <% wired.Close() %> <% electronic.Close() %>