set Conn = Server.CreateObject("ADODB.Connection")
Conn.Provider = "Microsoft.Jet.OLEDB.4.0" & ";Jet OLEDB:DataBase Password=book;"
Conn.Open Server.MapPath("..\BookSystem\database\DBBook.mdb")
Sql="SELECT * FROM year WHERE id_book="&typeNamesB2
'Sql="SELECT book.*, year.* FROM book INNER JOIN [year] ON book.id_book = year.id_book WHERE id_book="&typeNamesB2
set rs = Server.CreateObject("ADODB.Recordset")
rs.Open Sql,Conn,1,3
'rs.addnew
If typeNamesB2="0" Or YearName = "" Then
Response.Write "<br><center> ป้อนข้อมูลไม่ครบถ้วน <br>"
Response.Write "<br><a href=""javascript:history.back(-1);"">Back</a>"
Response.End
End If
If typeNamesB2<>"0" and YearName<>"" Then
sql = "insert into year ([year],[id_book])" & _
"values ('"& YearName &"','"& typeNamesB2 &"')"
Conn.Execute sql
Response.Write "<br><center> เพิ่มปีหนังสือ <b>" & YearName & "</b> ใน "& typeNamesB2 &"เรียบร้อยแล้ว <br>"
Response.Write "<br><a href=AddYear.asp>คลิกที่นี่เพิ่อเพิ่มใหม่ หรือรอประมาณ 5 วินาที</a><br>"
Response.AddHeader "Refresh", "5;URL=AddYear.asp" 'เป็นการ redirect ไปยังน้าก่อนหน้านี้ โดยหน่วงเวลา 5 วินาที
Response.End
End If
%>
เออเรอร์ ตรงนี้(Sql="SELECT * FROM year WHERE id_book="&typeNamesB2
'Sql="SELECT book.*, year.* FROM book INNER JOIN [year] ON book.id_book = year.id_book WHERE id_book="&typeNamesB2
set rs = Server.CreateObject("ADODB.Recordset")
rs.Open Sql,Conn,1,3)