<%@LANGUAGE="VBSCRIPT"%> <% on error resume next Dim rsLocations Dim rsLocations_numRows Set rsLocations = Server.CreateObject("ADODB.Recordset") rsLocations.ActiveConnection = MM_csi_con_STRING rsLocations.Source = "SELECT * FROM LOCATIONS ORDER BY STATE_OR_PROVINCE ASC" rsLocations.CursorType = 0 rsLocations.CursorLocation = 2 rsLocations.LockType = 1 rsLocations.Open() rsLocations_numRows = 0 %> <% Dim rsResult__param rsResult__param = "1" If (Request.form("locations") <> "") Then rsResult__param = Request.form("locations") End If %> <% Dim rsResult Dim rsResult_numRows Set rsResult = Server.CreateObject("ADODB.Recordset") rsResult.ActiveConnection = MM_csi_con_STRING rsResult.Source = "SELECT * FROM CONTACTS_INFO info, locations loc WHERE loc.CONTACT_INFO_ID = info.CONTACT_ID and info.CONTACT_ID = " + Replace(rsResult__param, "'", "''") + "" rsResult.CursorType = 0 rsResult.CursorLocation = 2 rsResult.LockType = 1 rsResult.Open() rsResult_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rsResult_numRows = rsResult_numRows + Repeat1__numRows %> CSI Jewett - Morgue, Autopsy&Laboratory equipment
you are here home » our services » sales assisstance
 

Morgue Autopsy Planning (MAP) Services

Professional Sales Assistance

Support Services

 

CSI Group of companies
Bringing excellence to manufacturing.

Professional Sales Assistance

CSI Jewett maintains a national and international network of qualified sales representatives and dealers to provide expert assistance and fast answers to your questions. Your local CSI Jewett representative will work closely with the factory to ensure that your project is quoted, delivered and installed to the proper specifications and in a timely manner. For the name of your local CSI Jewett representative, contact us

 
USA, Canada

 
 
 
<% If Not rsResult.EOF Or Not rsResult.BOF Then %>
<%= Replace(rsResult.Fields.Item("CONTACT_DESCRIPTION").Value,vbcrlf,"
")%>

Areas: <% While ((Repeat1__numRows <> 0) AND (NOT rsResult.EOF)) %> <% areas = areas & (rsResult.Fields.Item("STATE_OR_PROVINCE").Value)%> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rsResult.MoveNext() if not rsResult.eof then areas = areas & ", " end if Wend %> <%= areas %>
<% End If ' end Not rsResult.EOF Or NOT rsResult.BOF %>

 

 

 

 
 
 
<% rsLocations.Close() Set rsLocations = Nothing %> <% rsResult.Close() Set rsResult = Nothing %> <%= err.number & " " & err.description %>