<% 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")%>
  HOME ELEVATOR ESCALATOR SPARE PART SERVICES JOB REFERENCE ABOUT US CONTACT US
.
.

  << ˹éÒ¨ÍËÅÑ¡ 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 = 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 set rs5 = Server.CreateObject("ADODB.Recordset") rs5.Open "select * from post where id = "&Request.Form("idsubpost"), "DBQ=" & Server.Mappath("webboard.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};", 1, 3 rs5("count") = Request.Form("count") + 1 rs5.Update rs5.close set rs5 = nothing set Conn5 = nothing %> <%response.Redirect("webboard.asp")%> <% end if %>