<%
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.provider="Microsoft.Jet.OLEDB.4.0"
Conn.Open Server.MapPath("db\PROJECT.mdb")
Sql = "SELECT * FROM Exam_Schedule WHERE PJ_Name_Thai='"&Request.Form("PJ_Name_Thai")&"'"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open Sql,Conn,1,3
if NOT(RS.EOF) then
response.write("โครงงานนี้มีข้อมูลแล้ว")