%@LANGUAGE="VBSCRIPT"%> <% Dim RSpag__MMColParam RSpag__MMColParam = "Contatti" If (Request("MM_EmptyValue") <> "") Then RSpag__MMColParam = Request("MM_EmptyValue") End If %> <% Dim RSpag Dim RSpag_numRows Set RSpag = Server.CreateObject("ADODB.Recordset") RSpag.ActiveConnection = MM_con_lariso_STRING RSpag.Source = "SELECT tArticoli.*, tMenu.pagina, tMenu.sottomenu FROM tMenu INNER JOIN tArticoli ON tMenu.IDmenu = tArticoli.IDmenu WHERE pagina = '" + Replace(RSpag__MMColParam, "'", "''") + "'" RSpag.CursorType = 0 RSpag.CursorLocation = 2 RSpag.LockType = 1 RSpag.Open() RSpag_numRows = 0 %>
Per informazioni compila il modulo (*) campi obbligatori