http://www.desarrolloweb.com/articulos/803.php?manual=11

Dim equipos(), I 
I = 0 
For Each Valor In Request.Form("equipo") 
    Redim Preserve equipos(I) 
    equipos(I) = Valor 
    I = I + 1 
Next 

para que sean publicos

CREATE PROCEDURE pr_ListaPreguntas_Grupo 
@Id_Grupo int
as

Select IdPregunta,
 rtrim(Pregunta)  as Pregunta,
 rtrim(Respuesta) as Respuesta,
Id_CategoriaPregunta
from PreguntasFrecuentes
where Id_Grupo = @Id_Grupo or (@Id_Grupo=2 and Flag_Publico = '1')
GO


/****** Object:  Stored Procedure dbo.sp_NOTICIA_upd    Script Date: 02/07/2001 12:44:51 PM ******/
CREATE PROCEDURE sp_NOTICIA_upd_Publico
    @id_noticia    int,
    @FlagPublico      varchar(50),

AS
 DECLARE @New_Id INT
 UPDATE NOTICIA
 SET
 Flag_Publico = @FlagPublico
 
    WHERE id_noticia = @id_noticia 
    IF @@ROWCOUNT < 1
    BEGIN
        RAISERROR ('No se pudo modificar la Noticia.',16,-1)
    END
    if ltrim(rtrim(@in_grupos))<>''
 begin
     exec sp_NOTICIA_GRUPO_upd @in_id_noticia,@in_grupos
 end
    RETURN @@ERROR

GO


<script>
<!--  
  /*function Valida()
  {
	//Validacion de los controles que no deben de tener valor nulo
	//inicio
	var FormName='frmProyectoDatosGenerales'
	ObjForm = new Array('txtNombresProyecto');
	FieldsName = new Array('Nombre del Proyecto');
  
	 for (var Tmp = 0; Tmp < ObjForm.length ; Tmp++)
	 {
	  if (!Vacio(FormName,ObjForm[Tmp],FieldsName[Tmp]))
	  {
	  return false;
	  }
	 }
	//fin
  
	eval('document.' + FormName + '.submit()');
	}*/
 -->
</script>

Texto = Replace(Texto,"<p>","")
Texto = Replace(Texto,"</p>","<br>")



Cannot add rows to sysdepends for the current stored procedure because it depends on the missing object 'dbo.pr_FolderHeredaPermisos'. The stored procedure will still be created.
Server: Msg 207, Level 16, State 3, Procedure sp_CURSO_Get, Line 6
Invalid column name 'Flag_Publico'.
Server: Msg 207, Level 16, State 1, Procedure sp_CURSO_Get, Line 6
Invalid column name 'Id_CategoriaCapacitacion'.
Server: Msg 207, Level 16, State 3, Procedure sp_CURSO_List, Line 7
Invalid column name 'Id_CategoriaCapacitacion'.
Server: Msg 207, Level 16, State 1, Procedure sp_CURSO_List, Line 7
Invalid column name 'Flag_Publico'.
Server: Msg 207, Level 16, State 1, Procedure sp_CursoCategoria_upd, Line 9
Invalid column name 'Id_CategoriaCapacitacion'.
Server: Msg 207, Level 16, State 3, Procedure sp_LINK_Get, Line 11
Invalid column name 'Id_CategoriaLink'.
Server: Msg 207, Level 16, State 3, Procedure sp_LINK_ListEnlacesGrupo, Line 6
Invalid column name 'id_CategoriaLink'.
Server: Msg 207, Level 16, State 1, Procedure sp_LINK_ins, Line 21
Invalid column name 'Id_CategoriaLink'.
Server: Msg 207, Level 16, State 1, Procedure sp_LINK_upd, Line 15
Invalid column name 'id_CategoriaLink'.




CREATE proc dbo.pr_Reserva_ListDia
@Fecha	varchar(8),
@Id_Usuario	int,
@Id_TipoEvento  int,
@TipoAgenda     char(1),
@Id_Grupo       int

AS
IF @TipoAgenda = 'P' 
 BEGIN
  Select 
	Id_Agenda,
	Titulo,
	fh_inicio,
	fh_fin, 
	Dia = Day(fh_inicio), 
	HoraInicio =     SUBSTRING(convert( varchar(25), fh_inicio, 120 ),12,5),
	HoraFin =     SUBSTRING(convert( varchar(25), fh_fin, 120 ),12,5),
	Flag_All_Day, 
	Tipo_Evento,
	Tipo_Evento
   from Evento
   Where @Fecha = convert(varchar(8),fh_inicio,112)
	      and Id_Usuario = @Id_Usuario 
	      and (Tipo_Evento = @Id_TipoEvento or @Id_TipoEvento = 0)
	      and Tipo_Evento = 'P'
   Order by HoraInicio
 END
Else
 BEGIN
  IF @TipoAgenda = 'G' 
    BEGIN
    Select 
	Id_Agenda,
	Titulo,
	FechaHoraInicio,
	FechaHoraFin, 
	Dia = Day(FechaHoraInicio), 
	HoraInicio =     SUBSTRING(convert( varchar(25), FechaHoraInicio, 120 ),12,5),
	HoraFin =     SUBSTRING(convert( varchar(25), FechaHoraFin, 120 ),12,5),
	FlagAllDay, 
	Id_TipoEvento,
	TipoAgenda
     from Evento
     Where @Fecha = convert(varchar(8),FechaHoraInicio,112)
	      and Id_Grupo = @Id_Grupo 
	      and (Id_TipoEvento = @Id_TipoEvento or @Id_TipoEvento = 0)
	      and TipoAgenda = 'G'
     Order by HoraInicio
   END
   else
    BEGIN
       Select 
	Id_Agenda,
	Titulo  = 
                   Case TipoAgenda
		When  'P' then  Titulo
		Else Desc_Grupo + ' - ' + Titulo
	     End,	
	FechaHoraInicio,
	FechaHoraFin, 
	Dia = Day(FechaHoraInicio), 
	HoraInicio =     SUBSTRING(convert( varchar(25), FechaHoraInicio, 120 ),12,5),
	HoraFin =     SUBSTRING(convert( varchar(25), FechaHoraFin, 120 ),12,5),
	FlagAllDay, 
	Id_TipoEvento,
	TipoAgenda
       from Evento, Grupo
       Where @Fecha = convert(varchar(8),FechaHoraInicio,112) and
	       (Id_TipoEvento = @Id_TipoEvento or @Id_TipoEvento = 0) and  
	       Agenda.Id_Grupo *= Grupo.Id_Grupo and	
                    (
	         (Agenda.Id_Grupo in (Select distinct UGM.Id_Grupo from Usuario_Grupo_Modulo UGM Where Id_Usu = @Id_Usuario) and TipoAgenda = 'G' ) 
                       or 
                        (Id_Usuario = @Id_Usuario  and TipoAgenda = 'P')
		  
	       )
     Order by HoraInicio
   END

END
GO