<%
Dim cLink
Set cLink = Server.CreateObject("cd_link.ComponentLink")
%>
<%
'control de si mostrem la versio d_imprimir o no
if (request("print")<>"1") then
%>
Newsletter
<%
end if
'response.write ("strNombreApellido="+Session("strNombreApellido") + " ")
'response.write ("strIDSession="+Session("strIDSession") + " ")
'response.write ("lngIDMiembro="+CStr(Session("lngIDMiembro")) + " ")
'response.write ("TIPOMIEMBRO="+Session("TIPOMIEMBRO") + "individuo/empresa")
'response.write ("boolSocio="+CStr(Session("boolSocio")) + "true/false->si es false es donante")
'response.write ("boolNewsletter="+CStr(Session("boolNewsletter")) + "true/false")
'response.write ("boolComunidades="+CStr(Session("boolComunidades")) + "true/false")
'response.write ("str_Email="+Session("str_Email") + " ")
'response.write ("strLogin="+Session("strLogin") + " ")
'response.write ("strPwd="+Session("strPwd"))
'**********************************************
function estaProtegida(pComptamiembro,pComptaacceso)
if pComptamiembro>-1 and pComptaacceso>-1 then
'mirem si el tridion determina que hi hagi control
estaProtegida=True
else
estaProtegida = False
end if
end function
function compleixTipusmembre(psessTIPOMIEMBRO,parTipomiembro)
dim conta, trobat
trobat=false
conta=0
while ((conta<=Ubound(parTipomiembro))and(trobat=False))
if (psessTIPOMIEMBRO = parTipomiembro(conta)) then
'mirem si el tridion determina que hi hagi control
trobat=true
end if
conta= conta+1
wend
compleixTipusmembre = trobat
end function
function compleixTipusacces(parTipoacceso,psesslngIDMiembro,psessboolSocio,psessboolNewsletter,psessboolComunidades)
dim conta, trobat
trobat=false
conta=0
while ((conta<=Ubound(parTipoacceso))and(trobat=False))
if ((psesslngIDMiembro<>"") and (parTipoacceso(conta)="Donante")) then
'mirem si el tridion determina que hi hagi control
trobat=true
end if
if ((psessboolSocio) and (parTipoacceso(conta)="Socio")) then
'mirem si el tridion determina que hi hagi control
trobat=true
end if
if ((psessboolNewsletter) and (parTipoacceso(conta)="Newsletter")) then
'mirem si el tridion determina que hi hagi control
trobat=true
end if
if ((psessboolComunidades) and (parTipoacceso(conta)="Comunidades")) then
'mirem si el tridion determina que hi hagi control
trobat=true
end if
conta= conta+1
wend
compleixTipusacces = trobat
end function
'**********************************************
'control sessio tipo miembro
Dim arTipomiembro
Dim arTipoacceso
Dim comptamiembro,comptaacceso
Dim aux
Dim protected:protected=False
'captura variables tridion
arTipomiembro=Array()
arTipoacceso=Array()
comptamiembro=Ubound(arTipomiembro)
comptaacceso=Ubound(arTipoacceso)
'captura variables de sessio
Dim sessTIPOMIEMBRO:sessTIPOMIEMBRO=Session("TIPOMIEMBRO")
Dim sesslngIDMiembro:sesslngIDMiembro=Session("lngIDMiembro")
Dim sessboolSocio:sessboolSocio=Session("boolSocio")
Dim sessboolNewsletter:sessboolNewsletter=Session("boolNewsletter")
Dim sessboolComunidades:sessboolComunidades=Session("boolComunidades")
if ((Not(estaProtegida(comptamiembro,comptaacceso)))or((compleixTipusmembre(sessTIPOMIEMBRO,arTipomiembro))and(compleixTipusacces(arTipoacceso,sesslngIDMiembro,sessboolSocio,sessboolNewsletter,sessboolComunidades)))) then
'if (session("logado")="si") then
'pot veure el contingut
%>
<%
else
response.write "
Lo sentimos, para poder acceder a esta página debe estar registrado/a.
"
end if
%>
<%
'control de si mostrem la versio d_imprimir o no
if (request("print")<>"1") then
%>
<%
else
%>
<%
end if
%>
