<% 'Session.CodePage=865 arrTitles = Array("Forside","Lindøværftet L208","Kontakt","Presse","Picto") validRefs =",0,1,2,3,4," if InStr(validRefs,","& request.querystring("ref_") &",") then refIndex = request.querystring("ref_") else refIndex = 0 end if %> Forlaget Picto - Forside
<% for i=0 to ubound(arrTitles) response.write "" else response.write " menuitem"">"& arrTitles(i) &"" end if if i < ubound(arrTitles) then response.write "" next %>
"& arrTitles(i) &"
<%=arrTitles(refIndex)%>
<% server.execute "inc/"& refIndex &".html" %>
<% for i=0 to ubound(arrTitles) response.write "" else response.write ""& arrTitles(i) &"" end if if i < ubound(arrTitles) then response.write "" next %>
" if cint(refIndex)=i then response.write ""& arrTitles(i) &"
PICTO Rosenvængets Allé 14 2100 Kbh. Ø