เชิญตั้งกระทู้ใหม่หรืออ่านและออกข้อคิดเห็นในกระทู้

ขอให้ใช้เว็บบอร์ดเพื่อการสร้างสรรค์เทศบาลตำบลโนนดินแดงอย่างแท้จริง

เทศบาลตำบลโดนดินแดงขอสงวนสิทธิ์ไม่รับผิดชอบข้อความผิดพลาดใดๆ  ที่อาจจะเกิดขึ้น

<% Dim SpamProtect 'Protect Repeated Submit If Session("SpamProtect")=Null Then Session("SpamProtect")=False End If 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" RS.Open sql, Conn, 1, 3 NewHeadLine=Request.Form("HeadLine") Name=request.Form("Name") Email=Request.Form("Email") DateTime=Date() Message=Request.Form("Message") if (NewHeadLine<>"" AND Session("SpamProtect")=False) then RS.AddNew RS("HeadLine")=NewHeadLine RS("Name")=Name RS("Email")=Email RS("DateTime")=DateTime RS("Detail")=Message RS.Update Session("SpamProtect")=True end if If not(RS.EOF) Then RS.MoveFirst End If %>
<% Dim icolor icolor=1 While NOT RS.EOF%> "> <%=RS("HeadLine")%> : <%=RS("Name")%> : <%=ShowDate(RS("DateTime"))%>:  <%=RS("Nread")+1%> / <%=RS("NResponse")+1%>
<%Rs.MoveNext icolor=icolor+1 Wend %>
ตั้งกระทู้ใหม่
หัวข้อเรื่อง :
ชื่อ :
E-Mail :
รายละเอียด :
 
<% RS.Close Conn.Close Set RS=Nothing Set Conn=Nothing Function ShowDate(D) Dim MonthNames MonthNames=array ("มกราคม", "กุมภาพันธ์", "มีนาคม", "เมษายน", "พฤษภาคม", "มิถุนายน", "กรกฎาคม", "สิงหาคม", "กันยายน", "ตุลาคม", "พฤศจิกายน", "ธันวาคม") ShowDate=Day(D)&" "&MonthNames(Month(D)-1)&" "&Year(D) End Function %>