|
|
<%
Line1 = Request.Form("Line1")
Line2 = Request.Form("Line2")
Line3 = Request.Form("Line3")
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(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 HaikuTable = CreateObject("ADODB.Recordset")
HaikuTable.Open "Haikus", "DSN=fruhaiku;", 1, 3, 2
HaikuTable.AddNew
HaikuTable.Fields("Line1") = Line1
HaikuTable.Fields("Line2") = Line2
HaikuTable.Fields("Line3") = Line3
HaikuTable.Fields("Author") = Author
HaikuTable.Fields("Email") = Email
HaikuTable.Fields("Date") = Now()
HaikuTable.Fields("Member") = Member
HaikuTable.Fields("Reviewed") = false
HaikuTable.Fields("Display") = true
HaikuTable.Update
HaikuTable.Close
Response.Redirect("moxyhaiku.asp")
Else
%>
You didn't complete your poem. Go back and enter in all three lines.
<%
End If
%>
Return To Frü Haikü
|