Moxy Früvous Playground Past Graffitti
|
|
|
|
Past Graffitti (Most Recent on Top)
|
| Graffitti |
|
|
<%
LastID = Request.QueryString("LastID")
If LastID = "" or IsNull(LastID) Then
LastID = 9999999
End If
Set GrafTable = CreateObject("ADODB.Recordset")
GrafTable.Open "SELECT TOP 25 * FROM graffitti WHERE Display=true and ID < " & LastID & " ORDER BY Date DESC", "DSN=fruplay;"
i = 1
Do Until GrafTable.EOF
GrafID = GrafTable.Fields("ID")
Message = GrafTable.Fields("Message")
Reviewed = GrafTable.Fields("Reviewed")
Name = GrafTable.Fields("Name")
GrafEmail = GrafTable.Fields("Email")
DatePosted = GrafTable.Fields("Date")
GrafMember = GrafTable.Fields("Member")
GrafDisplay = GrafTable.Fields("Display")
if i mod 5 = 1 then
color="#CC0000"
End If
if i mod 5 = 2 then
color="#000099"
End If
if i mod 5 = 3 then
color="#FF6600"
End If
if i mod 5 = 4 then
color="#993366"
End If
if i mod 5 = 0 then
color="#009900"
End If
LastID = GrafID
%>
| | <%=Message%> |
<%
If Not(IsNull(GrafEmail)) and GrafEmail <> "" and GrafEmail <> " "Then
%>
| <%=Name%> <%=DatePosted%> |
<%
Else
%>
| <%=Name%> <%=DatePosted%> |
<%
End If
If GrafMember = Member or Privilege >= 99 Then
%>
| [Remove] |
<%
End If
If Reviewed = false and Privilege >= 1 and ProtestPoints > 0 Then
%>
| [Protest] |
<%
End If
%>
| |
<%
GrafTable.MoveNext
i = i + 1
Loop
GrafTable.Close
%>
|
<=Previous Page
|
More History=>
|
|
|
Email the WebMaster
This site is fairly new, and there may be some bugs. If you find one, please let me know.
Disclaimer - This site is just for fun
|