<% 'PaginaActiva = "E0M01" dim objRSLink Call OpenDB Call selectGroupRecords( PaginaActiva ) %> Vacances ::: Enllaços








 


<% call writeLinkGroup("694")%>


<% call writeLinkGroup("745")%>


<% call writeLinkGroup("695")%>


<% call writeLinkGroup("746") %>


<% call writeLinkGroup("696") %>


<% call writeLinkGroup("747") %>


<% call writeLinkGroup("697") %>

 


       
<% call CloseDB %> <% sub selectGroupRecords( ActivePage ) 'set objRSLink = GetRecordSet("SELECT enl_nom, enl_grup, enl_descripcio, enl_url FROM mll_enllacos WHERE enl_grup IN ( SELECT eng_pk FROM mll_EnllacosGrups WHERE eng_seccio = '"&ActivePage&"') ORDER BY enl_nom ") set objRSLink = GetRecordSet("SELECT eng_pk, pic_EnllacosGrups.eng_Nom, pic_Enllacos.enl_Nom, pic_Enllacos.enl_Descripcio, pic_Enllacos.enl_URL FROM pic_RelEnllacosGrups INNER JOIN pic_EnllacosGrups ON pic_RelEnllacosGrups.reg_Grup = pic_EnllacosGrups.eng_PK INNER JOIN pic_Enllacos ON pic_RelEnllacosGrups.reg_Enllac = pic_Enllacos.enl_PK WHERE (pic_RelEnllacosGrups.reg_Grup = 694) or (pic_RelEnllacosGrups.reg_Grup = 695) or (pic_RelEnllacosGrups.reg_Grup = 696) or (pic_RelEnllacosGrups.reg_Grup = 697) or (pic_RelEnllacosGrups.reg_Grup = 745) or (pic_RelEnllacosGrups.reg_Grup = 746) or (pic_RelEnllacosGrups.reg_Grup = 747) ORDER BY pic_Enllacos.enl_Nom") end sub sub writeLinkGroup( IDGroup ) objRSLink.Filter = " eng_pk = " & IDGroup response.write("") Do While Not objRSLink.EOF response.write("") response.write("") response.write("" ) response.write("
"&objRSLink.Fields("enl_descripcio").value&"" ) end if response.write("") objRSLink.MoveNext Loop response.write("
") response.write(""&objRSLink.Fields("enl_nom").value&"") if ( objRSLink.Fields("enl_descripcio")<>"null" ) then 'response.write("
"&objRSLink.Fields("enl_descripcio").value&"
") end sub Function GetRecordset(sRSSource) Dim objRSGetRecordset Set objRSGetRecordset = Server.CreateObject("ADODB.RecordSet") objRSGetRecordset.Open sRSSource, g_conn , 3,3 Set GetRecordset = objRSGetRecordset 'objRSGetRecordset.Close Set objRSGetRecordset = Nothing End Function %>