 |
Moxy Früvous Chain Stories |
<%
if ReadingStory = false then
%>
| Chain stories are short stories that are written by multiple authors - each adding on to an existing story.
There is only one rule - the first line of every new addition must start with a lyric from a Moxy Früvous song. If you need help finding a lyric, you
can Ask Dave's Head or check out früvous.com |
|
<%
end if
Set StoryTable = CreateObject("ADODB.Recordset")
StoryTable.Open "Select DISTINCTROW TOP 50 * FROM Stories" & WhereText, "DSN=frustories;"
i = 1
%> <%
if ReadingStory = false Then
%>
| Story Beginning | Started By | Last Addition |
|
<%
else
%>
| Story # <%=CurrStoryID%> | Author | |
<%
end if
Do Until StoryTable.EOF
EntryID = StoryTable.Fields("ID")
FirstLine = StoryTable.Fields("FirstLine")
BodyText = StoryTable.Fields("BodyText")
Author = StoryTable.Fields("Author")
StoryEmail = StoryTable.Fields("Email")
StoryDate = StoryTable.Fields("Date")
StoryID = StoryTable.Fields("StoryID")
StoryMember = StoryTable.Fields("Member")
Reviewed = StoryTable.Fields("Reviewed")
Display = StoryTable.Fields("Display")
If StoryEmail = " " or IsNull(StoryEmail) or StoryEmail = "" Then
AuthorHTML = Author
Else
AuthorHTML = "" & Author & ""
End If
AdminString = ""
If StoryMember = Member or Privilege >= 99 Then
AdminString = "[Remove]"
End If
If (Not Reviewed) and Privilege >= 1 and ProtestPoints > 0 Then
AdminString = AdminString & "
[Protest]"
End If
If Display Then
If ReadingStory = true Then
bgcolor = "#FFFFFF"
%>
>| <%=FirstLine%><%=BodyText%> | <%=AuthorHTML%>
<%=StoryDate%> |
<%=AdminString%> |
<%
Else
if i mod 2 = 0 then
bgcolor = "#CCCCCC"
else
bgcolor = "#CCFFCC"
end if
Set StoryTable2 = CreateObject("ADODB.Recordset")
StoryTable2.Open "SELECT DISTINCTROW TOP 1 * FROM Stories WHERE StoryID = " & StoryID & " and Display=true ORDER BY Date DESC", "DSN=frustories;"
LastAdded = StoryTable2.Fields("Date")
LastBy = StoryTable2.Fields("Author")
LastbyEmail = StoryTable2.Fields("Email")
StoryTable2.Close
If LastbyEmail = " " or IsNull(LastbyEmail) or LastbyEmail = "" Then
LastAuthorHTML = LastBy
Else
LastAuthorHTML = "" & LastBy & ""
End If
BodyTextShort = Left(BodyText,100) & "..."
%>
><%=FirstLine%><%=BodyTextShort%>More...
<%=AdminString%> |
<%=AuthorHTML%>
<%=StoryDate%> |
<%=LastAuthorHTML%>
<%=LastAdded%> |
<%
End If
End If
LastID = StoryTable.Fields("ID")
StoryTable.MoveNext
i = i + 1
Loop
%> |
<%
if i >= 50 then
%>| View Next 50 |
<%
end if
StoryTable.Close
%>
| |
|
| |
<%
if ReadingStory = false Then
%>
| Start A New Früvous Chain Story |
| One rule: the first line of every new addition must start with a lyric from a Moxy Früvous song. If you need help finding a lyric, you
can Ask Dave's Head or check out früvous.com |
<%
else
%>
| Add To This Früvous Chain Story |
| One Rule: the first line of every new addition must start with a lyric from a Moxy Früvous song. If you need help finding a lyric, you
can Ask Dave's Head or check out früvous.com |
<%
end if
%>
<%
If LoggedIn or AllowAllPosts Then
%>
|
<%
Else
%>
|
| To Add Your Story, Members Sign In or New Visitors Create Your Login |
<%
End If
%>
| |
This is for all to enjoy. So have fun! Because submitting a post makes it available for everyone to read, any entry that is a violation of anyone's privacy or is a personal attack will have to be removed. Thanks for understanding! |
| |
| Back to Moxy Früvous Chain Stories |