<%@LANGUAGE="VBSCRIPT"%> <% Dim vehicle__MMColParam vehicle__MMColParam = "Vehicle Security" if (Request("MM_EmptyValue") <> "") then vehicle__MMColParam = Request("MM_EmptyValue") %> <% set vehicle = Server.CreateObject("ADODB.Recordset") vehicle.ActiveConnection = MM_havlins_STRING vehicle.Source = "SELECT * FROM tblSpecialist WHERE type = '" + Replace(vehicle__MMColParam, "'", "''") + "' ORDER BY title ASC" vehicle.CursorType = 0 vehicle.CursorLocation = 2 vehicle.LockType = 3 vehicle.Open() vehicle_numRows = 0 %> <% Dim emergency__MMColParam emergency__MMColParam = "Emergency Exit" if (Request("MM_EmptyValue") <> "") then emergency__MMColParam = Request("MM_EmptyValue") %> <% set emergency = Server.CreateObject("ADODB.Recordset") emergency.ActiveConnection = MM_havlins_STRING emergency.Source = "SELECT * FROM tblSpecialist WHERE type = '" + Replace(emergency__MMColParam, "'", "''") + "' ORDER BY title ASC" emergency.CursorType = 0 emergency.CursorLocation = 2 emergency.LockType = 3 emergency.Open() emergency_numRows = 0 %> <% Dim door__MMColParam door__MMColParam = "Door Furniture" if (Request("MM_EmptyValue") <> "") then door__MMColParam = Request("MM_EmptyValue") %> <% set door = Server.CreateObject("ADODB.Recordset") door.ActiveConnection = MM_havlins_STRING door.Source = "SELECT * FROM tblSpecialist WHERE type = '" + Replace(door__MMColParam, "'", "''") + "' ORDER BY title ASC" door.CursorType = 0 door.CursorLocation = 2 door.LockType = 3 door.Open() door_numRows = 0 %> <% Dim misc__MMColParam misc__MMColParam = "miscellaneous" if (Request("MM_EmptyValue") <> "") then misc__MMColParam = Request("MM_EmptyValue") %> <% set misc = Server.CreateObject("ADODB.Recordset") misc.ActiveConnection = MM_havlins_STRING misc.Source = "SELECT * FROM tblSpecialist WHERE type = '" + Replace(misc__MMColParam, "'", "''") + "' ORDER BY title ASC" misc.CursorType = 0 misc.CursorLocation = 2 misc.LockType = 3 misc.Open() misc_numRows = 0 %> <% Dim Repeat1__numRows Repeat1__numRows = -1 Dim Repeat1__index Repeat1__index = 0 vehicle_numRows = vehicle_numRows + Repeat1__numRows %> <% Dim Repeat2__numRows Repeat2__numRows = -1 Dim Repeat2__index Repeat2__index = 0 emergency_numRows = emergency_numRows + Repeat2__numRows %> <% Dim Repeat3__numRows Repeat3__numRows = -1 Dim Repeat3__index Repeat3__index = 0 door_numRows = door_numRows + Repeat3__numRows %> <% Dim Repeat4__numRows Repeat4__numRows = -1 Dim Repeat4__index Repeat4__index = 0 misc_numRows = misc_numRows + Repeat4__numRows %>

Specialist Locking Solutions

Vehicle Security <% While ((Repeat1__numRows <> 0) AND (NOT vehicle.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 vehicle.MoveNext() Wend %> ','more','scrollbars=yes,resizable=yes,width=328,height=400')"> <% If Not vehicle.Fields.Item("image").Value = "" Then %> " width="100" height="81" border="0" alt="<%=(vehicle.Fields.Item("title").Value)%>"> <% Else %> <% End If %> <%=(vehicle.Fields.Item("title").Value)%> ','more','scrollbars=yes,resizable=yes,width=328,height=400')"> Emergency Exit Devices <% While ((Repeat2__numRows <> 0) AND (NOT emergency.EOF)) %> <% Repeat2__index=Repeat2__index+1 Repeat2__numRows=Repeat2__numRows-1 emergency.MoveNext() Wend %> ','more','scrollbars=yes,resizable=yes,width=328,height=400')"> <% If Not emergency.Fields.Item("image").Value = "" Then %> " width="100" height="81" alt="<%=(emergency.Fields.Item("title").Value)%>" border="0"> <% Else %> <% End If %> <%=(emergency.Fields.Item("title").Value)%> ','more','scrollbars=yes,resizable=yes,width=328,height=400')"> Door Furniture <% While ((Repeat3__numRows <> 0) AND (NOT door.EOF)) %> <% Repeat3__index=Repeat3__index+1 Repeat3__numRows=Repeat3__numRows-1 door.MoveNext() Wend %> ','more','scrollbars=yes,resizable=yes,width=328,height=400')"> <% If Not door.Fields.Item("image").Value = "" Then %> " width="100" height="81" alt="<%=(door.Fields.Item("title").Value)%>" border="0"> <% Else %> <% End If %> <%=(door.Fields.Item("title").Value)%> ','more','scrollbars=yes,resizable=yes,width=328,height=400')"> Miscellaneous <% While ((Repeat4__numRows <> 0) AND (NOT misc.EOF)) %> <% Repeat4__index=Repeat4__index+1 Repeat4__numRows=Repeat4__numRows-1 misc.MoveNext() Wend %> ','more','scrollbars=yes,resizable=yes,width=328,height=400')"> <% If Not misc.Fields.Item("image").Value = "" Then %> " width="100" height="81" alt="<%=(misc.Fields.Item("title").Value)%>" border="0"> <% Else %> <% End If %> <%=(misc.Fields.Item("title").Value)%> ','more','scrollbars=yes,resizable=yes,width=328,height=400')">

<% vehicle.Close() %> <% emergency.Close() %> <% door.Close() %> <% misc.Close() %>