<%@ Language=VBScript %>
<%
Option Explicit
%>
<%'database specific%>
<%'page specific%>
Romeo Pipe
<%'page specific%>
<%
'************** her : Administrator-menuen der kun vis når man er logget ind
if isAdministrator or isSuperAdministrator then
%>
new
<%if ucase(PRIMARY_SORT_IX) = "MANUAL" then
dim nyLinkUrl
nyLinkUrl = "DB_sorter.asp?" & r
if USE_CATEGORIES then nyLinkUrl = nyLinkUrl & "&kat=" & katID%>
edit sort order
<%end if%>
<%end if
'*************** slut på Administrator-menuen
%><%
'her vises kategorioverskriften - titlen på den aktuelle kategori hentes med funktionen aktuelKategori(katID)
'hvis der ikke anvendes kategorier (dvs USE_CATEGORIES = false) må funktionen aktuelKategori ikke kaldes
%>
<%
dim numof, left
left = true
numof = RS.recordCount
Do Until RS.EOF
' her repeates for hver record i databasen
' der kan referes til de enkelte felter i databasen ved at bruge
' [venstrepil][procent]=indhold(FELTINDEX) [højrepil][procent]
' hvor FELTINDEX er nummeret på det enkelte felt som det er defineret i DB_inc.asp
'
' For felter af typen CHECKBOX kan istedet for indhold() bruges funktionen
' checkboxIndhold(FELTINDEX, SvarHvisChecked, SvarHvisUnChecked)
' Hvor SvarHvisChecked er en streng der vises hvis checkboxen var krydset af, og
' SvarHvisUnChecked er en streng der vises hvis den ikke var checked af
'
' der kan refereres til det enkelte felts titel med
' [venstrepil][procent]=FLDSgetvisName(FELTINDEX) [højrepil][procent]
'
' der kan refereres til datoen for hvornår recorden sidst er rettet med
' [venstrepil][procent]=skafDatoStr(RS("SidstrettetDato"))[højrepil][procent]
'
' Links til pop-up vinduet laves som :
' (en titel eller billede))
'
' Billeder i list vinduet vises altid i Thumb størrelse
%>
<%if left then%>
<%else%>
<%end if%>
<%=indhold(0)%>
<%=indhold(2)%>
<%'********** Administrators funktioner for hver record. Vises kun når man er logget ind
if isAdministrator then %>