|
|
<%
FirstLine = Request.Form("FirstLine")
BodyText = Request.Form("BodyText")
Author = Request.Form("Author")
Email = Request.Form("Email")
StoryID = Request.Form("StoryID")
Dim Prob
Prob = 0
If IsNull(FirstLine) OR FirstLine = "" Then
FirstLine = " "
Prob = 1
End If
If IsNull(BodyText) OR BodyText = "" Then
BodyText = " "
Prob = 1
End If
If IsNull(Author) OR Author = "" Then
Author = "Anonymous"
End If
If IsNull(Email) OR Email = "" Then
Email = " "
End If
If Member = "" or IsNull(Member) Then
Member = 0
End If
If Prob = 0 Then
Set StoryTable = CreateObject("ADODB.Recordset")
StoryTable.Open "Stories", "DSN=frustories;", 1, 3, 2
StoryTable.AddNew
StoryTable.Fields("FirstLine") = FirstLine & " "
StoryTable.Fields("BodyText") = BodyText
StoryTable.Fields("Author") = Author
StoryTable.Fields("Email") = Email
StoryTable.Fields("Date") = Now()
StoryTable.Fields("Member") = Member
StoryTable.Fields("Reviewed") = false
StoryTable.Fields("Display") = true
StoryTable.Fields("Protest") = false
StoryTable.Update
If StoryID = "" or IsNull(StoryID) Then
StoryTable.Fields("StoryID") = StoryTable.Fields("ID")
Else
StoryTable.Fields("StoryID") = StoryID
End If
StoryTable.Update
redirectID = StoryTable.Fields("StoryID")
StoryTable.Close
Response.Redirect("moxystories.asp?StoryID=" & redirectID)
Else
%>
You didn't complete your story. Go back and enter in all the fields.
<%
End If
%>
Return To Frü Chain Stories
|