|
|
<%
Line1 = Request.Form("Line1")
Line2 = Request.Form("Line2")
Line3 = Request.Form("Line3")
Line4 = Request.Form("Line4")
Line5 = Request.Form("Line5")
Author = Request.Form("Author")
Email = Request.Form("Email")
Dim Prob
Prob = 0
If IsNull(Line1) OR Line1 = "" Then
Line1 = " "
Prob = 1
End If
If IsNull(Line2) OR Line2 = "" Then
Line2 = " "
Prob = 1
End If
If IsNull(Line3) OR Line3 = "" Then
Line3 = " "
Prob = 1
End If
If IsNull(Line4) OR Line4 = "" Then
Line4 = " "
Prob = 1
End If
If IsNull(Line5) OR Line5 = "" Then
Line5 = " "
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 PoemTable = CreateObject("ADODB.Recordset")
PoemTable.Open "Limericks", "DSN=frulimerick;", 1, 3, 2
PoemTable.AddNew
PoemTable.Fields("Line1") = Line1
PoemTable.Fields("Line2") = Line2
PoemTable.Fields("Line3") = Line3
PoemTable.Fields("Line4") = Line4
PoemTable.Fields("Line5") = Line5
PoemTable.Fields("Author") = Author
PoemTable.Fields("Email") = Email
PoemTable.Fields("Date") = Now()
PoemTable.Fields("Member") = Member
PoemTable.Fields("Reviewed") = false
PoemTable.Fields("Protest") = false
PoemTable.Fields("Display") = true
PoemTable.Update
PoemTable.Close
Response.Redirect("moxylimerick.asp")
Else
%>
You didn't complete your poem. Go back and enter in all five lines.
<%
End If
%>
Return To Frü Limericks
|