<%
MSG = "0"
On Error Resume Next
Set RSUPD = Server.CreateObject("ADODB.Recordset")
RSUPD.Open "Select TOP 20 ID,peopleID,mediaID,mediaTitle,mediaURL,mediaRef,mediaType,mediaLanguage,mediaLink From TB_MEDIA ORDER BY ID DESC", objConn, 1, 3
If Not RSUPD.EOF Then
Do While Not RSUPD.EOF
If LEN(RSUPD("mediaTitle")) > 1 Then
mTitle = RSUPD("mediaTitle")
Else
mTitle = "No title..."
End If
If RSUPD("ID") <> RSUPD("mediaID") AND RSUPD("mediaID") > 0 Then
relatedTo = getMediaTitle(RSUPD("mediaID"))
Else
relatedTo = getPersonName(RSUPD("peopleID"))
If relatedTo = "UNRELATED" Then
relatedTo = RSUPD("mediaRef")
End If
End If
If RSUPD("mediaLink") = True Then
mediaList = mediaList & "| " & mTitle & " | "
Else
mediaList = mediaList & "
| " & mTitle & " | "
End If
mediaList = mediaList & "" & relatedTo & " | "
mediaList = mediaList & "" & getMediaType(RSUPD("mediaType")) & " | "
mediaList = mediaList & "" & RSUPD("mediaLanguage") & " | "
mediaList = mediaList & "
" & vbCrLf
RSUPD.MoveNext
deLink = ""
mTitle = ""
relatedTo = ""
Loop
Else
mediaList = "No entries were found..."
End If
Set RSUPD = Nothing
Response.write Err.description
tmpList = tmpList & "| Media |
"
tmpList = tmpList & "| Title | Related To | Medium | Lang |
| |
" & mediaList
On Error Resume Next
Set RSUPD = Server.CreateObject("ADODB.Recordset")
RSUPD.Open "Select TOP 20 ID,NM_FULL,baseCatProfession,YEAR_BORN,NM_NAT From TB_PEOPLE ORDER BY ID DESC", objConn, 1, 3
If Not RSUPD.EOF Then
Do While Not RSUPD.EOF
If LEN(getDefaultPersonURL(RSUPD("ID"))) > 10 Then
peopleLINK = Replace(getDefaultPersonURL(RSUPD("ID")), "'", "\'")
peopleList = peopleList & "| " & RSUPD("NM_FULL") & " | " & vbCrLf
Else
peopleList = peopleList & "
| " & RSUPD("NM_FULL") & " | " & vbCrLf
End If
peopleList = peopleList & "" & RSUPD("YEAR_BORN") & " | " & vbCrLf
peopleList = peopleList & "" & RSUPD("baseCatProfession") & " | " & vbCrLf
peopleList = peopleList & "" & RSUPD("NM_NAT") & " |
" & vbCrLf
RSUPD.MoveNext
Loop
Else
peopleList = "No entries were found..."
End If
Set RSUPD = Nothing
peopleList = "| People |
| Name | Born | Profession | Nat |
| |
" & peopleList
objConn.Close : set objConn = Nothing
Response.write Err.description
%>
ALEXANDRINA
<%
Response.Write(QuoteOfDay())
%>