%@LANGUAGE="VBSCRIPT"%>
<%
Dim rsProducts__MMColParam
rsProducts__MMColParam = defaultPage
If (Request.QueryString("ID") <> "") Then
rsProducts__MMColParam = Request.QueryString("ID")
End If
%>
<%
Dim rsProducts
Dim rsProducts_numRows
Set rsProducts = Server.CreateObject("ADODB.Recordset")
rsProducts.ActiveConnection = MM_csi_con_STRING
rsProducts.Source = "SELECT * FROM PRODUCTS WHERE PRODUCT_ID = " + Replace(rsProducts__MMColParam, "'", "''") + ""
rsProducts.CursorType = 0
rsProducts.CursorLocation = 2
rsProducts.LockType = 1
rsProducts.Open()
rsProducts_numRows = 0
%>
CSI Jewett - Morgue, Autopsy&Laboratory equipment