<% DIM peopleID, mediaID, showMediaTags, medium, t ' ### DEFAULT LANGUAGE IS ENGLISH mediaLanguage = "EN" mediaCountry = "US" if request("peopleID") = "" Then peopleID = 0 else peopleID = request("peopleID") end if if request("mediaID") = "" Then mediaID = 0 else mediaID = request("mediaID") end if if request("subMedia") = "" Then subMedia = 0 else subMedia = request("subMedia") end if ' ### STRINGS VERVANGEN Function ReplaceSTR(str) returnStr = Replace(str, "'","''") ReplaceSTR = returnStr End Function Select Case request("action") Case "new" If mediaID <> "" AND peopleID <> "" Then invoer = "OK" Else response.write "Error..." response.end End If Case Else response.write "Error..." response.end End Select dayList = "" & vbCrLf monthList = "" & vbCrLf For i = 1 To 31 if i = mediaPubDay Then sel = "selected" dayList = dayList & "" & vbCrLf sel = "" next For i = 1 To 12 if i = mediaPubMonth Then sel = "selected" monthList = monthList & "" & vbCrLf sel = "" next endDayList = "" & vbCrLf endMonthList = "" & vbCrLf For i = 1 To 31 if i = mediaEndDay Then sel = "selected" endDayList = endDayList & "" & vbCrLf sel = "" next For i = 1 To 12 if i = mediaEndMonth Then sel = "selected" endMonthList = endMonthList & "" & vbCrLf sel = "" next a = Array("Book","Blog","Article (HTML)","Article (PDF)", "Article (Print)", "Article (Word)", "CONTAINER", "Documentary", "DVD", "Exposition", "Film", "Knowledge Map", "Lecture", "Magazine", "Music", "Painting", "Video", "Website" ) for i = 0 To UBound(a) if a(i) = mediaType Then sel = "selected" typeArray = typeArray & "" & vbCRLF sel = "" next b = Array("EN","DU","FR", "NL", "SP") for i = 0 To UBound(b) if b(i) = mediaLanguage Then sel = "selected" lanArray = lanArray & "" & vbCRLF sel = "" next languageList = langFunction(mediaLanguage) countryList = ccFunction(mediaCountry) x=0 rows = 0 Set RS= Server.CreateObject("ADODB.Recordset") RS.Open "Select * From TB_MEDIATYPE ORDER BY NM_TYPE_EN", objConn, 1, 3 If Not RS.EOF Then typeList = "
" Do While Not RS.EOF typeList = typeList & "

" If rows = 12 Then typeList = typeList & "		" rows = -1 End If RS.MoveNext rows = rows+1 x=x+1 Loop End If Set RS = Nothing typeList = typeList & "
" Set RS= Server.CreateObject("ADODB.Recordset") RS.Open "Select ID,NM_MAINCAT_EN From TB_MEDIAMAINCAT ORDER BY NM_MAINCAT_EN", objConn, 1, 3 If Not RS.EOF Then Do While Not RS.EOF mediaMainCatList = mediaMainCatList & "" & vbCrLf RS.MoveNext Loop End If Set RS = Nothing ' for i = 0 To UBound(a) ' typeList = typeList & "
" ' next %> ALEXANDRINA
<% IF mediaID = 0 Then %> <% Else %> <% End If %>
BACK <% If peopleID > 0 Then %> ë Back to <%= getPersonName(peopleID) %> <% Else %> ë Home <% End If %>
 NEW MEDIA FOR <%= getPersonName(peopleID) %>
 NEW MEDIA FOR <%= getMediaTitle(mediaID) %> BY <%= getPersonName(peopleID) %>
Title " class="itemfield">
Subtitle
Image
URL
Ref.
<% Dim oFCKeditor Set oFCKeditor = New FCKeditor oFCKeditor.BasePath = "/fckeditor/" oFCKeditor.Height = 300 oFCKeditor.Width = 520 oFCKeditor.ToolbarSet = "Basic" oFCKeditor.Value = "" oFCKeditor.Create "mediaInfo" %>
Start Date
End Date
Language
Country
    
MAIN CATEGORY
 
MEDIA TYPE
 
name="possession" value="ON">IMP
<% set objConn = Nothing %>