<% DIM peopleID, mediaID DIM dayBornList DIM monthBornList DIM dayDiedList DIM monthDiedList DIM genderList If request("peopleID") < 1 OR request("peopleID") = "" Then response.redirect "cms_index.asp" End If mediaID = 0 ' ### CONTAINERS VAN DEZE PERSOON ON ERROR RESUME NEXT Set RSUPD = Server.CreateObject("ADODB.Recordset") RSUPD.Open "Select ID,mediaID,peopleID,mediaTitle From TB_MEDIA WHERE mediaTYPE = 29 AND peopleID = " & request("peopleID") & " ORDER BY mediaTitle", objConn, 1, 3 If Not RSUPD.EOF Then Do While Not RSUPD.EOF containerList = containerList & "" & RSUPD("mediaTitle") & "" RSUPD.MoveNext Loop response.write err.description End If Set RSUPD = Nothing ' ### DATA PEOPLE OPHALEN ON ERROR RESUME NEXT Set RSUPD = Server.CreateObject("ADODB.Recordset") RSUPD.Open "Select * From TB_PEOPLE Where ID=" & request("peopleID"), objConn, 1, 3 If Not RSUPD.EOF Then peopleID = RSUPD("ID") firstName = RSUPD("NM_FIRST") lastName = RSUPD("NM_LAST") prefix = RSUPD("NM_PREFIX") commonName = RSUPD("NM_COMMON") fullName = ReplaceSTR(RSUPD("NM_FULL")) peopleImage = getDefaultPersonImage(RSUPD("ID")) homePage = getDefaultPersonURL(RSUPD("ID")) gender = RSUPD("NM_GENDER") nationality = RSUPD("NM_NAT") language = RSUPD("NM_LAN") cityBorn = RSUPD("NM_cityBorn") cityDied = RSUPD("NM_cityDied") bornYear = RSUPD("YEAR_BORN") bornMonth = RSUPD("MONTH_BORN") bornDay = RSUPD("DAY_BORN") diedYear = RSUPD("YEAR_DIED") diedMonth = RSUPD("MONTH_DIED") diedDay = RSUPD("DAY_DIED") mediaInfo = getDefaultPersonText(RSUPD("ID")) baseCatProfession = RSUPD("baseCatProfession") baseCatDiscipline = RSUPD("baseCatDiscipline") personUploadDate = RSUPD("DT_CREATED") personUploadEdit = RSUPD("DT_EDITED") End If Set RSUPD = Nothing RESPONSE.WRITE ERR.DESCRIPTION nationalityList = ccFunction(nationality) languageList = langFunction(language) dl = diverseLists() %> ALEXANDRINA
Home / <%= UCase(fullName) %>
<% If request("action") = "peopleGetDetails" Then %>
Last Name
Prefix
First Name
Common Name
Full Name
Image
URL
Gender
Nationality
Language
Born (City)
Died (City)
Date Born
Date Died
<% Dim oFCKeditor Set oFCKeditor = New FCKeditor oFCKeditor.BasePath = "/fckeditor/" oFCKeditor.Height = 300 oFCKeditor.Width = 520 oFCKeditor.ToolbarSet = "Basic" oFCKeditor.Value = mediaInfo oFCKeditor.Create "mediaInfo" %>
Profession
Discipline
   
 
">
<% ElseIf request("action") = "peopleDetailsSaved" Then %>
<% If Len(peopleImage) > 5 Then %> <% End If If Len(homePage) > 15 Then %> <% End If %> <% IF diedYear > 0 Then %> <% End If %>
Last Name : <%= lastName %>
First Name : <%= firstName %>
Common Name : <%= commonName %>
Full Name : <%= fullName %>
Image : 
URL : <%= Left(homePage,50) %>
Gender : <%= gender %>
Nationality : <%= nationality %>
Language : <%= language %>
Date Born : <%= bornDay %>-<%= bornMonth %>-<%= bornYear %>
Born (City) : <%= cityBorn %>
Date Died : <%= diedDay %>-<%= diedMonth %>-<%= diedYear %>
Died (City) : <%= cityDied %>
Info : <%= mediaInfo %>
Profession : <%= baseCatProfession %>
Discipline : <%= baseCatDiscipline %>
Last update : <%= personUploadEdit %>
Created : <%= personUploadDate %>
<% End If %>
<% If request("action") = "peopleDetailsSaved" Then %> <% Else %> <% End If %>
[EDIT]   [VIEW]  [MEDIA]   ">[TAGS]
<% If peopleID = 18 Then %>
 
TAGS:CONTAINERS
<%= peopleTags(peopleID) %>
 <%= containerList %>
<% Else %>
 
TAGS:

<%= peopleTags(peopleID) %>
"> <% End If %>
<% set objConn = Nothing %>