<%
DIM peopleID, mediaID, subMedia, showMediaTags, medium, t
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
' ### ALLE MEDIA VAN EEN PERSOON TONEN
Function getPersonMedia(nr)
on error resume next
Set RS = Server.CreateObject("ADODB.Recordset")
RS.Open "Select * From TB_MEDIA WHERE peopleID = " & nr & " And LEN(mediaTitle) > 1 ORDER BY mediaTitle", objConn, 1, 3
If Not RS.EOF Then
Do While Not RS.EOF
deTags = showMediaTagsFunction(RS("ID"))
mList = mList & "
" & vbCrLf
' mList = mList & getMediaLink(RS("ID"))
RS.MoveNext
Loop
End If
Set RS = Nothing
response.write err.description
getPersonMedia = mList
End Function
' ### ALLE SUB MEDIA VAN EEN MEDIA CONTAINER
Function getSubMedia(nr)
on error resume next
Set RS = Server.CreateObject("ADODB.Recordset")
RS.Open "Select * From TB_MEDIA WHERE mediaID = " & nr & " ORDER BY mediaTitle", objConn, 1, 3
If Not RS.EOF Then
Do While Not RS.EOF
' deTags = showMediaTagsFunction(RS("ID"))
mList = mList & "