%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Dim Recordset1__MMColParam Recordset1__MMColParam = "1" If (Request.QueryString("ContentId") <> "") Then Recordset1__MMColParam = Request.QueryString("ContentId") End If %> <% Dim Recordset1 Dim Recordset1_cmd Dim Recordset1_numRows Set Recordset1_cmd = Server.CreateObject ("ADODB.Command") Recordset1_cmd.ActiveConnection = MM_ACCG_STRING Recordset1_cmd.CommandText = "SELECT * FROM Content WHERE ContentID = ?" Recordset1_cmd.Prepared = true Recordset1_cmd.Parameters.Append Recordset1_cmd.CreateParameter("param1", 5, 1, -1, Recordset1__MMColParam) ' adDouble Set Recordset1 = Recordset1_cmd.Execute Recordset1_numRows = 0 %>