if Request.Form("keyword")<>"" then
sql = " Where (userid like '%"&Request.Form("keyword")&"%')"
if Request.Form("logtime")<>"" then
sql = sql & " AND (cdate(ฟิลด์วันที่ในตาราง) = cdate(" & Request.Form("logtime) & "))"
end if
else
Response.write("<br>กรุณาใส่รหัสพนักงาน 4 หลัก<hr>")
redirect...........................กลับไปหน้ากรอกข้อมูล
end if
Set Conn=Server.Createobject("ADODB.Connection")
Conn.Open "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("backup.mdb"),"" , ""
sql ="Select * From NGAC_LOG" & sql
Set Rs = Conn.Execute(sql)