<%
Set conn=Server.CreateObject("ADODB.Connection")
conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\inetpub\wwwroot\wboard\board.mdb"
Set rs=Server.CreateObject("ADODB.Recordset")
CurrentDate=now
rs.Open "Topics", conn, 0, 3, 512
rs.AddNew
rs("Topics")=Request.Form("topics")
rs("User")=Request.Form("user")
rs("Email")=Request.Form("email")
rs("Data")=Request.Form("data")
rs("Date")=CurrentDate
If Request.Form("ParentID")<>"" Then
rs("ParentID")=Request.Form("ParentID")
Else
rs("ParentID")=0
rs("Replies")=0
rs("LastUpdate")=CurrentDate
End If
rs.Update
rs.Close
If Request.Form("ParentID")<>"" Then
sql="Select * from Topics where ID=" & Request.Form("ParentID")
rs.Open sql, conn, 0, 3, 512
rs("LastUpdate")=CurrentDate
rs("Replies")=rs("Replies")+1
rs.Update
rs.Close
End If
conn.Close
Set rs=Nothing
Set conn=Nothing
%>
ตอบกระทู้เรียบร้อยแล้ว
ความคิดเห็นของคุณถูกบันทึกเรียบร้อยแล้ว