%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Dim actu__MMColParam actu__MMColParam = "97" If (Request("MM_EmptyValue") <> "") Then actu__MMColParam = Request("MM_EmptyValue") End If %> <% Dim actu Dim actu_cmd Dim actu_numRows Set actu_cmd = Server.CreateObject ("ADODB.Command") actu_cmd.ActiveConnection = MM_bd_portfollio_STRING actu_cmd.CommandText = "SELECT * FROM zone_actu WHERE numero = ?" actu_cmd.Prepared = true actu_cmd.Parameters.Append actu_cmd.CreateParameter("param1", 200, 1, 10, actu__MMColParam) ' adVarChar Set actu = actu_cmd.Execute actu_numRows = 0 %>
|
<% actu.Close() Set actu = Nothing %>