<% if request.form("action") = "" then %> <% Set Conn = Server.CreateObject("ADODB.Connection") Set RS = Server.CreateObject("ADODB.Recordset") 'Conn.open "dsn=siamcar_webboard" Conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("webboard.mdb") sql = "select * from subpost where idsubpost = " & Request("id") RS.Open sql, Conn Set RS1 = Server.CreateObject("ADODB.Recordset") sql1 = "select * from post where id = " & Request("id") RS1.Open sql1, Conn %> IBC Lift - <%=rs1("subject")%>
.
.
   Admin Page
  << ˹éÒ¨ÍËÅÑ¡ Admin Q&A    
<% yyyy = Year(rs1("date")) yyyy1 = cint(yyyy) + 543 acdate = MonthName(Month(rs1("date")),1) acdate1 = Month(rs1("date")) if acdate1 = 1 then ddd = "Á.¤." end if if acdate1 = 2 then ddd = "¡.¾." end if if acdate1 = 3 then ddd = "ÁÕ.¤." end if if acdate1 = 4 then ddd = "àÁ.Â." end if if acdate1 = 5 then ddd = "¾.¤." end if if acdate1 = 6 then ddd = "ÁÔ.Â." end if if acdate1 = 7 then ddd = "¡.¤." end if if acdate1 = 8 then ddd = "Ê.¤." end if if acdate1 = 9 then ddd = "¡.Â." end if if acdate1 = 10 then ddd = "µ.¤." end if if acdate1 = 11 then ddd = "¾.Â." end if if acdate1 = 12 then ddd = "¸.¤." end if %>

  <%=rs1("subject")%>

<%=rs1("carproblem2")%>



 â´Â : <%=rs1("name")%>  <% if rs1("icq") <> "" then %> icq : <%=rs1("icq")%> <% end if %>   [ <%=Day(rs1("date"))%> <%=ddd%> <%=yyyy1%> - <%=rs1("time")%> ]
">


<% Do While not RS.eof %> <% yyy = Year(rs1("date")) yyy1 = cint(yyy) + 543 acdate1 = MonthName(Month(rs1("date")),1) acdate1 = Month(rs1("date")) if acdate1 = 1 then ddd = "Á.¤." end if if acdate1 = 2 then ddd = "¡.¾." end if if acdate1 = 3 then ddd = "ÁÕ.¤." end if if acdate1 = 4 then ddd = "àÁ.Â." end if if acdate1 = 5 then ddd = "¾.¤." end if if acdate1 = 6 then ddd = "ÁÔ.Â." end if if acdate1 = 7 then ddd = "¡.¤." end if if acdate1 = 8 then ddd = "Ê.¤." end if if acdate1 = 9 then ddd = "¡.Â." end if if acdate1 = 10 then ddd = "µ.¤." end if if acdate1 = 11 then ddd = "¾.Â." end if if acdate1 = 12 then ddd = "¸.¤." end if %>
 µÍº

<%=rs("detail")%>

â´Â...Admin [ <%=Day(rs("date"))%> <%=ddd%> <%=yyy1%> - <%=rs("time")%> ]

<% RS.MoveNext Loop RS.close set RS = nothing set Conn = nothing %>
*µÍº¤Ó¶ÒÁ :
"> ">

 
Copyright © 2010 IBC. Technical Lift Co.,Ltd. All rights reserved.
<% else '???????????????????????????????????????????? set rs4 = Server.CreateObject("ADODB.Recordset") rs4.Open "select * from subpost", "DBQ=" & Server.Mappath("webboard.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};", 1, 3 'rs4.Open "select * from subpost", "dsn=siamcar_webboard", 1, 3 rs4.AddNew rs4("idsubpost") = Request.Form("idsubpost") rs4("detail") = Request.Form("detail") rs4("date") = date rs4("time") = time rs4.Update Response.Redirect("webboardadmin.asp") %> <% end if %>