กระทู้

<%'*********************** Update กระทู้ ********************************* NewUser=Request.QueryString("Name") HeadID=Request.QueryString("HeadID") Email=Request.QueryString("Email") DateTime=Date() Message=Request.QueryString("Message") if NewUser<>"" then set conn=Server.CreateObject("ADODB.Connection") str="Driver={Microsoft Access Driver (*.mdb)};DBQ="&Server.Mappath("WebboardDB.mdb") Conn.Open str,"","" set RS = Server.CreateObject("ADODB.Recordset") sql ="SELECT * FROM Answer where HeadID=" & HeadID RS.Open sql, Conn, 1, 3 RS.AddNew RS("HeadID")=HeadID RS("Name")=NewUser RS("Email")=Email RS("DateTime")=DateTime RS("Message")=Message RS.Update RS.Close Conn.Close end if %> <% HeadID=request.QueryString("HeadID") If HeadID<>"" Then ' ******************************* Make Connection ********************************** set conn=Server.CreateObject("ADODB.Connection") str="Driver={Microsoft Access Driver (*.mdb)};DBQ="&Server.Mappath("WebboardDB.mdb") Conn.Open str,"","" set RS = Server.CreateObject("ADODB.Recordset") sql ="SELECT * FROM Head where HeadID=" & HeadID RS.Open sql, Conn, 1, 3 '****************************** Show HeadLine ********************* if Not RS.EOF then RS("Nread")=RS("Nread")+1 RS.Update %>

กระทู้เรื่อง : <%=RS("HeadLine")%>

โดย <%=RS("Name")%> Email : ><%=RS("Email")%> เมื่อ : <%=Showdate(RS("DateTIme"))%>

<%=RS("Detail")%>

<% End if RS.Close '******************************* Show Responses ************************ sql="Select * From Answer Where HeadID=" & HeadID RS.Open sql, Conn,1,3 N=1 While Not RS.EOF %>

ข้อคิดเห็นที่ <%=N%> โดย : <%=RS("Name")%> อีเมล์ : ><%=RS("Email")%> เมื่อ : <%=ShowDate(RS("DateTime"))%>

<%=RS("Message")%>

<% RS.MoveNext N=N+1 Wend RS.Close sql="Select * From Head Where HeadID=" & HeadID RS.Open sql, Conn,1,3 RS("NResponse")=N-1 RS.Update RS.Close Conn.Close Set RS=Nothing Set Conn=Nothing end if '************************************** Add new response ******************************** %>

ชื่อ :
E-Mail :
รายละเอียด :