<%
Ciemnawy Recordset1
Ciemnawy Recordset1_numRows
Set Recordset1 = Server.CreateObject ("ADODB.Recordset")
Recordset1.ActiveConnection = "Driver= {Microsoft Dojazdowy Kierowca (*.mdb)}; DBQ= c:\inetpub\wwwroot\statusreports\db\status.mdb"
ciemnawy Biuro
Office= " pracownik = ""&Request.Form ("pracownik") &"" i "
jeżeli (Request.Form ("pracownik") = " Wszystko") Wtedy
Office= ""
kończyć jeżeli
Recordset1.Source = "WYBIÓRKA * OD JAX DOKĄD "&Office&" gendate = # " &Request.Form ("gendate") & " # ORDERBY szef DESC, pracownik ASC"
Recordset1.CursorType = (0)
Recordset1.CursorLocation = 2
Recordset1.LockType = (1)
Recordset1.Open ()
Recordset1_numRows = (0)
%>
|