ทำไมเปิด page นี้แล้วเป็น page ว่างเปล่าไปหมดครับ
ขอโทษครับเขียนโค้ดใหม่เป็นแบบนี้ครับ
<%
Set Conn = Server.Createobject("ADODB.Connection")
Conn.Open "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("db/board.mdb"),"" , ""
sql = "Select * From Topics Where ParentID = " & Request.Form("Current_ID") & "Order by Replies Asc"
Set RS = Server.CreateObject("ADODB.Recordset")
Rs.Open sql, conn, 0, 3
Now_Replies = RS("Replies")
rs.AddNew
rs("ParentID")=Request.Form("in_ID")
rs("Topics")=Request.Form("Topics")
rs("Data")=Request.Form("Data")
rs("User")=Request.Form("User")
rs("Email")=Request.Form("Email")
rs("Email")=Request.Form("Mobile")
rs("Replies")=Now_Replies+1
rs("LastupDate")=now
rs.Update
rs.Close
Conn Close
Set rs = Nothing
Set Conn = Nothinเ
%>
บันทึกข้อมูลเรียบร้อยแล้ว
Date :
22 ส.ค. 2548 23:05:39
By :
Takeshi
ลืมบอกไปว่าในฐานข้อมูลก็ไม่มีข้อมูลใหม่เพิ่มครับ
Date :
22 ส.ค. 2548 23:12:45
By :
Takeshi
ฟิลด์ ParentID มีชนิดข้อมูลเป็นแบบไหนละครับ แบบ text หรือเปล่าเอ่ย ถ้าเป็นแบบ text
คำสั่ง sql ต้องเป็นแบบนี้นะ
sql = "Select * From Topics Where ParentID = '" & Request.Form("Current_ID") & "' Order by Replies Asc"
copy คำสั่งข้างบนไปแทนที่เลยนะครับแล้วท่านก็จะพบทางสว่างเอง
Date :
23 ส.ค. 2548 08:19:21
By :
นายกระจอก
ParentID เป็น Number ครับ
Date :
23 ส.ค. 2548 09:01:10
By :
Takeshi
แหม ๆ ถ้าเป็น Number คำสั่ง sql ก็เป็นดังนี้
sql = "Select * From Topics Where ParentID = " & Request.Form("Current_ID") & " Order by Replies Asc"
กรุณาตรวจดูเครื่องหมายเว้นวรรค (Spacebar ให้ดีด้วยนะครับ & "Order by ไม่ถูกนะครับ ที่ถูกต้องเป็น & " Order by
Date :
23 ส.ค. 2548 09:10:01
By :
นายกระจอก
ข้อความที่ 5 พูดถูกเยยย
ถ้าไม่เว้นนะ มันจะเห็นเป็น
sql = "Select * From Topics Where ParentID = 5Order by Replies Asc" <== Sql ผิด
Date :
23 ส.ค. 2548 10:38:54
By :
JezusMitsui
Load balance : Server 00