<%@LANGUAGE="VBSCRIPT"%> <% Dim domestic__MMColParam domestic__MMColParam = "Domestic Safes" if (Request("MM_EmptyValue") <> "") then domestic__MMColParam = Request("MM_EmptyValue") %> <% set domestic = Server.CreateObject("ADODB.Recordset") domestic.ActiveConnection = MM_havlins_STRING domestic.Source = "SELECT * FROM tblSafes WHERE type = '" + Replace(domestic__MMColParam, "'", "''") + "' ORDER BY title ASC" domestic.CursorType = 0 domestic.CursorLocation = 2 domestic.LockType = 3 domestic.Open() domestic_numRows = 0 %> <% Dim commercial__MMColParam commercial__MMColParam = "Commercial Quality" if (Request("MM_EmptyValue") <> "") then commercial__MMColParam = Request("MM_EmptyValue") %> <% set commercial = Server.CreateObject("ADODB.Recordset") commercial.ActiveConnection = MM_havlins_STRING commercial.Source = "SELECT * FROM tblSafes WHERE type = '" + Replace(commercial__MMColParam, "'", "''") + "' ORDER BY title ASC" commercial.CursorType = 0 commercial.CursorLocation = 2 commercial.LockType = 3 commercial.Open() commercial_numRows = 0 %> <% Dim special__MMColParam special__MMColParam = "Special Application" if (Request("MM_EmptyValue") <> "") then special__MMColParam = Request("MM_EmptyValue") %> <% set special = Server.CreateObject("ADODB.Recordset") special.ActiveConnection = MM_havlins_STRING special.Source = "SELECT * FROM tblSafes WHERE type = '" + Replace(special__MMColParam, "'", "''") + "' ORDER BY title ASC" special.CursorType = 0 special.CursorLocation = 2 special.LockType = 3 special.Open() special_numRows = 0 %> <% Dim keycabinets__MMColParam keycabinets__MMColParam = "Key Cabinets" if (Request("MM_EmptyValue") <> "") then keycabinets__MMColParam = Request("MM_EmptyValue") %> <% set keycabinets = Server.CreateObject("ADODB.Recordset") keycabinets.ActiveConnection = MM_havlins_STRING keycabinets.Source = "SELECT * FROM tblSafes WHERE type = '" + Replace(keycabinets__MMColParam, "'", "''") + "' ORDER BY title ASC" keycabinets.CursorType = 0 keycabinets.CursorLocation = 2 keycabinets.LockType = 3 keycabinets.Open() keycabinets_numRows = 0 %> <% Dim Repeat4__numRows Repeat4__numRows = -1 Dim Repeat4__index Repeat4__index = 0 keycabinets_numRows = keycabinets_numRows + Repeat4__numRows %> <% Dim Repeat2__numRows Repeat2__numRows = -1 Dim Repeat2__index Repeat2__index = 0 commercial_numRows = commercial_numRows + Repeat2__numRows %> <% Dim Repeat1__numRows Repeat1__numRows = -1 Dim Repeat1__index Repeat1__index = 0 domestic_numRows = domestic_numRows + Repeat1__numRows %> <% Dim Repeat3__numRows Repeat3__numRows = -1 Dim Repeat3__index Repeat3__index = 0 special_numRows = special_numRows + Repeat3__numRows %>

Safes

With a wide range of new and second-hand safes from small domestic models to Banker's quality and through our experience in supplying, servicing and opening safes, we at Havlins will help you choose the right one for your needs. Domestic Safes <% While ((Repeat1__numRows <> 0) AND (NOT domestic.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 domestic.MoveNext() Wend %> ','more','scrollbars=yes,resizable=yes,width=328,height=400')"> <% If Not domestic.Fields.Item("image").Value = "" Then %> " width="100" height="81" border="0" alt="<%=(domestic.Fields.Item("title").Value)%>"> <% Else %> <% End If %> <%=(domestic.Fields.Item("title").Value)%> ','more','scrollbars=yes,resizable=yes,width=328,height=400')"> Commercial Quality <% While ((Repeat2__numRows <> 0) AND (NOT commercial.EOF)) %> <% Repeat2__index=Repeat2__index+1 Repeat2__numRows=Repeat2__numRows-1 commercial.MoveNext() Wend %> ','more','scrollbars=yes,resizable=yes,width=328,height=400')"> <% If Not commercial.Fields.Item("image").Value = "" Then %> " width="100" height="81" alt="<%=(commercial.Fields.Item("title").Value)%>" border="0"> <% Else %> <% End If %> <%=(commercial.Fields.Item("title").Value)%> ','more','scrollbars=yes,resizable=yes,width=328,height=400')"> Special Application <% While ((Repeat3__numRows <> 0) AND (NOT special.EOF)) %> <% Repeat3__index=Repeat3__index+1 Repeat3__numRows=Repeat3__numRows-1 special.MoveNext() Wend %> ','more','scrollbars=yes,resizable=yes,width=328,height=400')"> <% If Not special.Fields.Item("image").Value = "" Then %> " width="100" height="81" alt="<%=(special.Fields.Item("title").Value)%>" border="0"> <% Else %> <% End If %> <%=(special.Fields.Item("title").Value)%> ','more','scrollbars=yes,resizable=yes,width=328,height=400')"> Key Cabinets / Cash Boxes <% While ((Repeat4__numRows <> 0) AND (NOT keycabinets.EOF)) %> <% Repeat4__index=Repeat4__index+1 Repeat4__numRows=Repeat4__numRows-1 keycabinets.MoveNext() Wend %> ','more','scrollbars=yes,resizable=yes,width=328,height=400')"> <% If Not keycabinets.Fields.Item("image").Value = "" Then %> " width="100" height="81" alt="<%=(keycabinets.Fields.Item("title").Value)%>" border="0"> <% Else %> <% End If %> <%=(keycabinets.Fields.Item("title").Value)%> ','more','scrollbars=yes,resizable=yes,width=328,height=400')">

<% domestic.Close() %> <% commercial.Close() %> <% special.Close() %> <% keycabinets.Close() %>