<%
Response.write Err.description
tmpList = "| Latest additions to media |
"
tmpList = tmpList & "| Title | Related Person | Medium | Lang |
| |
" & mediaList
On Error Resume Next
Set RSUPD = Server.CreateObject("ADODB.Recordset")
RSUPD.Open "Select * From TB_MEDIA WHERE mediaRef = 'TED' ORDER BY mediaPubYear DESC,mediaPubMonth DESC", objConn, 1, 3
If Not RSUPD.EOF Then
Do While Not RSUPD.EOF
tedList = tedList & "| " & RSUPD("mediaTitle") & " | " & vbCrLf
tedList = tedList & "" & getPersonName(RSUPD("peopleID")) & " | " & vbCrLf
tedList = tedList & "" & RSUPD("mediaPubMonth") & "/" & RSUPD("mediaPubYear") & " |
" & vbCrLf
RSUPD.MoveNext
Loop
Else
tedList = "No entries were found..."
End If
Set RSUPD = Nothing
tedList = "![]() |
| Title | By | Date |
| |
" & tedList
objConn.Close : set objConn = Nothing
Response.write Err.description
%>
ALEXANDRINA
<%
Response.Write(QuoteOfDay())
%>
<% objConn.Close : Set objConn = Nothing %>