Source code of a BBS (V)

'================================================ ========================================================== ==============================
Case "Modify"
'================================================ ========================================================== ==============================
'Modify the article
Which = Request ("Which ")
WhichID = GetID (Which)
If Left (Which, 1) = "E" Then Table = "bbs" Else Table = "bbsreply"
WrongMsg = ""
If Request ("Modify") = "Yes" Then
Userid = Request ("Userid ")
Password = Request ("Password ")
Title = Trim (Request ("Title "))
Content = RTrim (Request ("Content "))
If Title = "" Then WrongMsg = WrongMsg + "<DD> <LI> the question cannot be blank. </LI>"
If Content = "" Then WrongMsg = WrongMsg + "<DD> <LI> the Content cannot be blank. </LI>"
If WrongMsg = "" Then
RecBBS. Open "SELECT [author] FROM" & Table & "WHERE [serial number] =" & WhichID, Con, 1
If RecBBS. Fields ("author") = Userid Then
SQL = "SELECT COUNT (*) FROM bbsmember WHERE [account] = '" & SqlStr (Userid) & "' AND [Password] = '" & SqlStr (Password) &"'"
RecMember. Open SQL, Con, 1
If RecMember. Fields (0)> 0 Then
SQL = "UPDATE" & Table & "SET [question] = '" & SqlStr (Title) & "', [Content] = '" & SqlStr (Content) & "'Where [serial number] =" & WhichID
Con. Execute (SQL)
Else
WrongMsg = "<DD> <LI> The password is incorrect. </LI>"
End If
RecMember. Close
Else
WrongMsg = "<DD> <LI> the user name is incorrect. </LI>"
End If
RecBBS. Close
End If
End If
Title = ""
Content = ""
SQL = "SELECT [question], [content] FROM" & Table & "WHERE [serial number] =" & WhichID
RecBBS. Open SQL, Con, 1
If Not RecBBS. EOF Then