<%
set rs=server.CreateObject("ADODB.recordset")
set rsc=server.CreateObject("ADODB.recordset")
set rs_c=server.CreateObject("ADODB.recordset")
sql="select * from book where book_id='" & Request.QueryString("book_id") & "'"
sql_c="select * from rent_book where book_id='" & Request.QueryString("book_id") & "'"
sqlc="select * from q_rent where book_id='" & Request.QueryString("book_id") & "' and status_n like '%ยืม%'"
rsc.Open sqlc,adoCon,0,3,512
else
rs.Open sql,adoCon,0,3,512
rs_c.Open sql_c,adoCon,0,3,512
rs_c.delete
rs.delete
adoCon.close
set adoCon = nothing
set rs = nothing
set rs_c = nothing
with response
.write "<body background='image\bgx.gif'>"
.write "<center><br><br><b>ลบข้อมูลเรียบร้อยแล้ว<br><br>"
.write "<a href='default.asp?id="& Request.QueryString("id") & "'>กลับ</a>"
.write "</body>"
end with
end if
%>
รบกวนช่วยแนะนำหน่อยนะครับ