1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
|
" codeBody "
<%
Schemerige Recordset1
Schemerige Recordset1_numRows
Vastgesteld Recordset1 = Server.CreateObject („ADODB.Recordset“)
Recordset1.ActiveConnection = „Driver= {de Bestuurder van Microsoft Access (*.mdb)}; DBQ= c:\inetpub\wwwroot\statusreports\db\status.mdb“
schemerig Bureau
Office= " werknemer = „„&Request.Form („werknemer“) &““ en „
als (Request.Form („werknemer“) = " allen“) toen
Office= ""
beëindig als
Recordset1.Source = „SELECTEER * UIT JAX WAAR „&Office&“ gendate = # " &Request.Form („gendate“) & " # ORDERBY chef- DESC, werknemer ASC“
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open ()
Recordset1_numRows = 0
%>
|