<%
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("test_project_update.mdb")
'If request.form("customer") <> "" Then
Sql="SELECT * FROM service_report " & Criteria
'response.write Sql
Set RS =Server.CreateObject("ADODB.Recordset")
RS.open Sql,Conn,1,3
if RS.recordcount <> 0 then
RS.MoveFirst
end if
if RS.recordcount <> 0 then
Do While Not RS.EOF
%>
<TR>
<TD height="6"><%= RS("Ref_number")%></TD>
<TD width="18" height="23"><%=showdateonly(RS("date"))%></TD>
<TD height="6"><%= RS("work_to_do")%></TD>
<TD height="6"><%= RS("EMP_ID")%></TD>
<TD height="6"><%= RS("start_time_to_service")%></TD>
<TD height="6"><%= RS("end_time_to_service")%></TD>
<TD height="6"><%= RS("check_complete_or_no")%></TD>
<TD height="6"><%= RS("Id_customer")%></TD>
<TD height="6"><%= RS("satified_in_service")%></TD>
<TD height="6"><%= RS("type_of_service")%></TD>
</TR>
<%
RS.MoveNext
Loop
Else
%><tr><td colspan=11 align=center>ไม่มีข้อมูล</td></tr><%
end if
%>
</TABLE>
<%
rs.close
ลองเช็คแต่ละ step ก่อนครับ
เช่น ในส่วนของ if ถ้าเราลองไม่ใช้ if กำหนดค่าให้ตัวแปรไปเลย แล้วลองดูว่าโชว์ข้อมูลไหม
จากนั้นก็ลอง if ที่ละขั้นครับ น่าจะช่วยได้