<% ' This function is to place a line break in the memo field. function addBr( myString ) addBr = Replace(myString, vbCrLf, "
") End function %> <% If Request("Username")="" Or Request("Subject")="" Or Request("Body")="" Then %>

Post New Eassy 新作品

Name 名:
Email:  (optional)
Title 题目:
Writing 文章:
<% Else %> <% Dim Connect, Posting On Error Resume Next Set Connect = Server.CreateObject("ADODB.Connection") Connect.Open "labourforum" Set Posting = Server.CreateObject("ADODB.Recordset") Posting.Open "SELECT * FROM tblParentDoc", Connect, adOpenDynamic, adLockOptimistic Posting.AddNew Posting("Subject") = Request("Subject") Posting("Body") = addBr(Request("Body")) Posting("Username") = Request("Username") Posting("Email") = Request("Email") Posting.Update If Err.Number = 0 Then %>

Thank you, your write-up has been posted.
谢谢,作品已经交上。

<% Else %>

Sorry, your message could not be posted because of error #<%=Err.Number%>: <%=Err.Description%>.
???,????,?????

<% End If %> <% End If %> <% Set Connect = Nothing %>