%@LANGUAGE="VBSCRIPT"%> <% Dim offres__MMColParam offres__MMColParam = "90" If (Request("MM_EmptyValue") <> "") Then offres__MMColParam = Request("MM_EmptyValue") End If %> <% Dim offres Dim offres_cmd Dim offres_numRows Set offres_cmd = Server.CreateObject ("ADODB.Command") offres_cmd.ActiveConnection = MM_bdsammoffreshotel_STRING offres_cmd.CommandText = "SELECT * FROM offres WHERE numero = ?" offres_cmd.Prepared = true offres_cmd.Parameters.Append offres_cmd.CreateParameter("param1", 5, 1, -1, offres__MMColParam) ' adDouble Set offres = offres_cmd.Execute offres_numRows = 0 %> <% Dim detail_offre__MMColParam detail_offre__MMColParam = "90" If (Request("MM_EmptyValue") <> "") Then detail_offre__MMColParam = Request("MM_EmptyValue") End If %> <% Dim detail_offre Dim detail_offre_cmd Dim detail_offre_numRows Set detail_offre_cmd = Server.CreateObject ("ADODB.Command") detail_offre_cmd.ActiveConnection = MM_bdsammoffreshotel_STRING detail_offre_cmd.CommandText = "SELECT * FROM offre_01 WHERE numero = ?" detail_offre_cmd.Prepared = true detail_offre_cmd.Parameters.Append detail_offre_cmd.CreateParameter("param1", 200, 1, 50, detail_offre__MMColParam) ' adVarChar Set detail_offre = detail_offre_cmd.Execute detail_offre_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 liens_numRows = liens_numRows + Repeat1__numRows %>
|