01.<%
02.<table width="100%" border="0" cellspacing="0" cellpadding="0">
03. <tr>
04. <td bgcolor="#66CCFF">รหัสผู้ไป</td>
05. <td bgcolor="#66CCFF">เลขที่คำสั่ง</td>
06. <td bgcolor="#66CCFF">ประเภท</td>
07. <td bgcolor="#66CCFF">วันที่ไป</td>
08. </tr>
09. <%
10. id=request.QueryString("id")
11. set conn=server.createobject("adodb.connection")
12. conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("db/personal.mdb")
13. set rs=server.createobject("adodb.recordset")
14. sql="SELECT privatepersonal.*,seminar.* FROM privatepersonal,seminar
15.WHERE seminar.se_prcode=
16. rs.open sql,conn,1,3
17. if not rs.eof then
18. while not rs.eof
19.%>
20. <tr>
21. <td><%=rs("se_prcode")%></td>
22. <td><%=rs("seorder")%></td>
23. <td><%=rs("setype")%></td>
24. <td><%=rs("SeStartDate")%></td>
25. </tr>
26.<%
27. rs.movenext
28. wend
29. end if
30. rs.close
31. set rs=nothing
32. conn.close
33. set conn=nothing
34.%>
35.</table>
36.%>
