<% defpage="default.asp" %> <%if REQUEST("KEY")<>"" and logrights=0 then Set Conn=createobject("adodb.connection") Set Rs=createobject("adodb.recordset") Conn.Open DSN_EXEMPLO strOpen="SELECT * FROM HELP WHERE Key='" & REQUEST("KEY") &"'" Rs.Open StrOpen,Conn,3,3 if Rs.EOF Then Rs.AddNew RS("KEY")=REQUEST("KEY") SESSION("SSCONTENT")="" Rs.Update else if strLang="en" then SESSION("SSCONTENT")=RS("EN") else SESSION("SSCONTENT")=RS("FR") end if end if Rs.Close Conn.Close Set Conn = Nothing Set Rs = Nothing %> <% else SESSION("SSCONTENT")=NULL SESSION("KEY")=NULL %> <% if logrights=0 then%> ')" ALT="K & I"> ')" ALT="LLL - S/F"> ')" ALT="BUSINESS UNIT"> ')" ALT="Transfer"> ')" ALT="KNOWLEDGE MANAGMENT"> ')" ALT="INTRAPRENEURSHIP"> ')" ALT="Elex"> ')" ALT="Global Quality"> ')" ALT="Area"> ')" ALT="Euroval"> ')" ALT="Training Lab"> ')" ALT="EES"> ')" ALT="Budapest"> ')" ALT="Equal Opportunities"> ')" ALT="Sispi"> ')" ALT="Direst Selling"> ')" ALT="Civil Society"> ')" ALT="Navajo"> ')" ALT="Tenders"> ')" ALT="Search for new members"> ')" ALT="Dissemination of EU projects"> ')" ALT="Exchange grant for transnational partnerships"> ')" ALT="ODL (CtD)"> ')" ALT="APL (CtD)"> ')" ALT="TQ (CtD)"> ')" ALT="CC (CtD)"> ')" ALT="Language Comm (Rainbow)"> ')" ALT="Labelling (Rainbow)"> ')" ALT="Community Of Trainers (Rainbow)"> ')" ALT="Virtual Learning (Rainbow)"> ')" ALT="Via Cultur@ (Rainbow)"> ')" ALT="Mobility (Rainbow)"> ')" ALT="Spontaneus Communities Plc"> ')" ALT="Employment" > ')" ALT="Communities"> ')" ALT="Sub-Communities"> ')" ALT="Projects"> <%else%> ')"> ')"> ')"> ')"> ')"> ')"> ')"> ')"> ')"> ')"> ')"> ')"> ')"> ')"> ')"> ')"> ')"> ')"> ')"> ')"> ')"> ')"> ')"> ')"> ')"> ')"> ')"> ')"> ')"> ')"> ')"> ')"> ')"> ')"> ')"> ')"> ')"> <%end if%>

<%end if%> <% Function GetAct(thekey) DIM RetVal if thekey="KEI" then Set Conn=createobject("adodb.connection") Set Rs=createobject("adodb.recordset") Conn.Open DSN_EXEMPLO end if if strLang="en" then strOpen="SELECT Key,En FROM HELP WHERE Key='" & thekey &"'" else strOpen="SELECT Key,Fr FROM HELP WHERE Key='" & thekey &"'" end if Rs.Open StrOpen,Conn,1,1 if not Rs.EOF Then if strLang="en" then RetVal=RS("EN") else RetVal=RS("FR") end if else RetVal=TheKey end if Rs.Close if thekey="III" then Conn.Close Set Conn = Nothing Set Rs = Nothing end if if LEN(TRIM(RetVal)&"")=0 OR LCASE(RetVal)="

" Then RetVal=thekey RetVal=REPLACE(RetVal,"'", "\'") RetVal=REPLACE(RetVal,"href=" & CHR(34), "target=\'_blank\' href=\'") RetVal=REPLACE(RetVal, CHR(34)&">", "\'>") GetAct=RetVal End Function %>