|
|
 |
ตั้งคำถามใหม่
<%
thmonth=array("มกราคม","กุมภาพันธ์","มีนาคม","เมษายน","พฤษภาคม","มิถุนายน","กรกฎาคม","สิงหาคม","กันยายน","ตุลาคม","พฤศจิกายน.","ธันวาคม")
' ---- ส่วนติดต่อกับฐานข้อมูลเพื่อแสดงรายการคำถาม
'On error resume next
'response.write "Hello"
'response.write (server.mappath("../../../private/webboard.mdb"))
'response.end
set conn = server.CreateObject("ADODB.Connection")
conn.Open "Provider = Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("../../private/webboard.mdb")
Sql="Select * from question order by QNumber desc"
Set RS =Server.CreateObject("ADODB.Recordset")
RS.open Sql,Conn,1,3
RS.MoveFirst
Do While Not RS.EOF%>
<%if replace(left(rs("qdate"),10)," ","") = replace(formatdatetime(date,2)," ","") and rs("nanswer") = 0 then%>
<%elseif rs("nanswer") <> 0 then%>
<%else%>
<%end if%>
<%=right("N000" & RS("QNumber"),5)%>
"><%=RS("QTopic")%>
จากคุณ <%=RS("QName")%> เมื่อวันที่ <%=day(rs("qdate")) & " " & thmonth(month(rs("qdate"))-1) & " " & right(year(rs("qdate"))+543,2)%>
มีผู้ตอบ <%=RS("NAnswer")%> คน |
<%RS.MoveNext
Loop
rs.close
conn.close
%>
|
|
|
 |
|
