<% 'no security checking %> <% Response.expires = 0 Response.expiresabsolute = Now() - 1 Response.addHeader "pragma", "no-cache" Response.addHeader "cache-control", "private" Response.CacheControl = "no-cache" displayRecs = 20 recRange = 10 %> <% ' Get table name tablename = "[Job info]" %> <% ' Get search criteria pSearch = Request.Form("psearch") If pSearch <> "" Then dbwhere = "" pSearch = replace(pSearch,"'","''") pSearch = replace(pSearch,"[","[[]") dbwhere = dbwhere & "[First_Name] like '%" & pSearch & "%' or " dbwhere = dbwhere & "[Last_Name] like '%" & pSearch & "%' or " dbwhere = dbwhere & "[Job_Site] like '%" & pSearch & "%' or " dbwhere = dbwhere & "[Job_Name] like '%" & pSearch & "%' or " dbwhere = dbwhere & "[Job_Number] like '%" & pSearch & "%' or " dbwhere = dbwhere & "[Job_Contact] like '%" & pSearch & "%' or " dbwhere = mid(dbwhere,1,len(dbwhere)-3) Session("tablename") = tablename Session("dbwhere") = dbwhere 'reset start record counter startRec = 1 Session("startRec") = startRec Else If tablename = Session("tablename") Then dbwhere = Session("dbwhere") Else 'reset search criteria dbwhere = "" Session("dbwhere") = dbwhere End If End If 'Get clear search cmd If Request.QueryString("cmd").Count > 0 then cmd=Request.QueryString("cmd") If ucase(cmd) = "RESET" Then 'reset search criteria dbwhere = "" Session("dbwhere") = dbwhere End If End If %> <% 'Get key & command If Request.QueryString("id").Count > 0 Then id=Request.QueryString("id") Session("id") = id Else id = Session("id") End If ' Load Default Order DefaultOrder = "" DefaultOrderType = "" ' Check for an Order parameter OrderBy = "" If Request.QueryString("order").Count > 0 Then OrderBy = Request.QueryString("order") ' Check if an ASC/DESC toggle is required If Session("OrderBy") = OrderBy Then If Session("OrderType") = "ASC" Then Session("OrderType") = "DESC" Else Session("OrderType") = "ASC" End if Else Session("OrderType") = "ASC" End If Session("tablename") = tablename Session("OrderBy") = OrderBy Session("startRec") = 1 Else If tablename = Session("tablename") Then OrderBy = Session("OrderBy") Else OrderBy = DefaultOrder Session("OrderBy") = OrderBy Session("OrderType") = DefaultOrderType End If End If ' Check for a START parameter If Request.QueryString("start").Count > 0 Then startRec = Request.QueryString("start") Session("tablename") = tablename Session("startRec") = startRec Else If tablename = Session("tablename") Then startRec = Session("startRec") Else 'reset start record counter startRec = 1 Session("startRec") = startRec End If End If 'Set the last record to display stopRec = startRec + displayRecs - 1 ' Open Connection to the database set conn = Server.CreateObject("ADODB.Connection") conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("db\avd.mdb") & ";" ' Build Query strsql = "select * from [Job info]" If dbwhere <> "" Then strsql = strsql & " WHERE " & dbwhere End If if OrderBy <> "" then strsql = strsql & " ORDER BY [" & OrderBy & "] " & Session("OrderType") end if 'response.write strsql set rs = Server.CreateObject("ADODB.Recordset") rs.Open strsql, conn, 1, 2 ' Display message when error found If Err.Number <> 0 Then Response.write("SQL: " & strsql & "
") Response.write("Error Code: " & Err.Number & "
") Response.write("Error Description: " & Err.Description & "
") Response.write("Error Source: " & Err.Source & "
") Response.write("Error Line: " & Err.Line & "
") response.end End If totalRecs = rs.RecordCount %>

WEEKLY TIME CARD FOR CONTRACTS

National Staffing & Recruiting, Inc.

3240 W. Britton Rd. Bldg #2, Ste #202

Oklahoma City, OK 73120

(405) 775-9680 (877 775-9680

Toll Free Fax: (877) 266-9688

Fax:(405) 775-9688

     CONTRACTOR TOTAL HRS WORKED

SOCIAL SECURITY #                  CLIENT REP:

                       CLIENT CLIENT SIGNATURE X_____________________

CLIENT CITY/STATE:            WEEK ENDING:

Search (*)       Clear Search

ID First Name Last Name

<%= "ID" %> <%= "First_Name" %> <%= "Last_Name" %>

Add

<% recCount = 0 recActual = 0 Do While (NOT rs.EOF) AND (recCount < stopRec) recCount = recCount + 1 If Clng(recCount) >= Clng(startRec) Then recActual = recActual + 1 %> <% ' Display alternate color for rows If recCount mod 2 = 0 Then bgcolor="#FFFFFF" Else bgcolor="#F5F5F5" End If x_ID = rs("ID") x_First_Name = rs("First_Name") x_Last_Name = rs("Last_Name") x_Job_Site = rs("Job_Site") x_Job_Name = rs("Job_Name") x_Start_Date = rs("Start_Date") x_Finish_Date = rs("Finish_Date") x_Job_Start_Time = rs("Job_Start_Time") x_Job_Finish_Time = rs("Job_Finish_Time") x_Job_Number = rs("Job_Number") x_Job_Contact = rs("Job_Contact") x_Contact__Number = rs("Contact_ Number") %> <% end if rs.MoveNext Loop %>

">Job Site (*) ">Job Name (*) ">Start Date ">Finish Date ">Job Start Time ">Job Finish Time ">Job Number (*) ">Job Contact (*) ">Contact Number
<% response.write x_ID %> <% response.write x_First_Name %> <% response.write x_Last_Name %> <% response.write x_Job_Site %> <% response.write x_Job_Name %> <% response.write x_Start_Date %> <% response.write x_Finish_Date %> <% response.write x_Job_Start_Time %> <% response.write x_Job_Finish_Time %> <% response.write x_Job_Number %> <% response.write x_Job_Contact %> <% response.write x_Contact__Number %> ">View ">Edit ">Delete
<% if totalRecs > 0 then ' Find out if there should be Backward or Forward Buttons on the table. If startRec = 1 Then isPrev = False Else isPrev = True PrevStart = startRec - displayRecs If PrevStart < 1 Then PrevStart = 1 %>
[<< Prev] <% End If ' Display Page numbers If (isPrev OR (NOT rs.EOF)) Then If (NOT isPrev) Then Response.Write "
" x = 1 y = 1 dx1 = ((startRec-1)\(displayRecs*recRange))*displayRecs*recRange+1 dy1 = ((startRec-1)\(displayRecs*recRange))*recRange+1 If (dx1+displayRecs*recRange-1) > intTotalRecs then dx2 = (totalRecs\displayRecs)*displayRecs+1 dy2 = (totalRecs\displayRecs)+1 Else dx2 = dx1+displayRecs*recRange-1 dy2 = dy2+recRange-1 End If While x < totalrecs If x >= dx1 and x <= dx2 Then If Clng(startRec) = Clng(x) Then %> <%=y%> <% Else %> <%=y%> <% End If x = x + displayRecs y = y + 1 elseif x >= (dx1-displayRecs*recRange) and x <= (dx2+displayRecs*recRange) then if x+recRange*displayRecs < totalRecs then %> <%=y%>-<%=y+recRange-1%> <% else ny=(totalRecs-1)\displayRecs+1 if ny = y then %> <%=y%> <% else %> <%=y%>-<%=ny%> <% end if end if x=x+recRange*displayRecs y=y+recRange else x=x+recRange*displayRecs y=y+recRange End If Wend End If ' Next link If NOT rs.EOF Then NextStart = startRec + displayRecs isMore = True %> [Next >>] <% Else isMore = False End If %>
<% If stopRec > recCount Then stopRec = recCount %> Records <%= startRec %> to <%= stopRec %> of <%= totalRecs %> <% Else %>

No records found!

<% End If %> <% ' Close recordset and connection rs.Close Set rs = Nothing conn.Close Set conn = Nothing %>