%@LANGUAGE="VBSCRIPT"%> <% Dim events__MMColParam events__MMColParam = "1" if (Request.QueryString("ID_Event") <> "") then events__MMColParam = Request.QueryString("ID_Event") %> <% set events = Server.CreateObject("ADODB.Recordset") events.ActiveConnection = MM_yuk_STRING events.Source = "SELECT * FROM events WHERE ID_Event = " + Replace(events__MMColParam, "'", "''") + "" events.CursorType = 0 events.CursorLocation = 2 events.LockType = 3 events.Open() events_numRows = 0 %>
|
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
|
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||