<%
MSG = "0"
Set RSUPD = Server.CreateObject("ADODB.Recordset")
RSUPD.Open "Select * From TB_MEDIA Where mediaURLDefault = False AND (mediaType = 17 OR mediaType = 29) ORDER BY mediaTitle", objConn, 1, 3
If Not RSUPD.EOF Then
Do While Not RSUPD.EOF
If Len(RSUPD("mediaURL")) > 5 Then
deLink = "" & RSUPD("mediaURL") & ""
End If
allSitesList = allSitesList & ""
If LEN(RSUPD("mediaTextBody")) > 5 Then
allSitesList = allSitesList & "| + "
allSitesList = allSitesList & RSUPD("mediaTitle") & " | "
Else
allSitesList = allSitesList & "" & RSUPD("mediaTitle") & " | "
End If
allSitesList = allSitesList & "" & getmediaMainCat(RSUPD("mediaMainCat")) & " | "
allSitesList = allSitesList & "" & RSUPD("mediaLanguage") & " |
"
allSitesList = allSitesList & "" & RSUPD("mediaTextBody") & " |
"
' allSitesList = allSitesList & "| " & RSUPD("mediaTextBody") & " |
"
allSitesList = allSitesList & "| " & deLink & " |
" & vbCrLf
RSUPD.MoveNext
deLink = ""
Loop
Else
allSitesList = "No websites were found..."
End If
Set RSUPD = Nothing
peopleTagList = "| Site Name | Category | Lan |
"
peopleTagList = peopleTagList & allSitesList
peopleTagList = peopleTagList & "| |
"
objConn.Close : set objConn = Nothing
%>
ALEXANDRINA
<%
Response.Write(QuoteOfDay())
%>