<%
Dim rs_case__MMColParam
rs_case__MMColParam = "1"
If (Request.QueryString("ID") <> "") Then
rs_case__MMColParam = Request.QueryString("ID")
End If
%>
<%
Dim rs_case
Dim rs_case_cmd
Dim rs_case_numRows
Set rs_case_cmd = Server.CreateObject ("ADODB.Command")
rs_case_cmd.ActiveConnection = MM_con_bassets_STRING
rs_case_cmd.CommandText = "SELECT * FROM casestudies WHERE ID = ?"
rs_case_cmd.Prepared = true
rs_case_cmd.Parameters.Append rs_case_cmd.CreateParameter("param1", 5, 1, -1, rs_case__MMColParam) ' adDouble
Set rs_case = rs_case_cmd.Execute
rs_case_numRows = 0
%>
Bassets Fixed Asset System
/>
