<% if (isNull(request.cookies("cookieUserID"))) or (request.cookies("cookieUserID")="") then response.redirect "index.asp" end if %>

<% 'Events.. if len(request.querystring("chkSel")) > 0 then 'its lengthy, bu i don car s = "SELECT refStaffID FROM tblClientPublication WHERE refStaffID IN (" & request.querystring("chkSel") & ");" set rst = cn.execute(s) if rst.eof = true then s = "DELETE FROM tblStaff WHERE StaffID IN (" & request.querystring("chkSel") & ");" 'response.write s 'response.end cn.execute(s) else %> <% end if end if 'Pageload.. Dim LB Dim strWhere Dim i Dim s LB = request.querystring("LB") response.write "" x = swapIt(x) response.write "" x = swapIt(x) i = 1 s = "SELECT * FROM tblStaff ORDER BY strStaff;" set rst = cn.execute(s) while not rst.eof 's = "SELECT refStaffID FROM tblClientPublication WHERE refStaffID = " & rst("StaffID") & ";" 'set rst2 = cn.execute(s) if len(rst("blnActive")) > 0 then if rst("blnActive") = "1" then strActive = "Active" else strActive = "" end if else strActive = "" end if response.write "" x = swapIt(x) i = i + 1 rst.movenext wend rst.close cn.close response.write "" %>

" response.write "
	Staff List				Delete
" & i & "	" & rst("strStaff") &"	" & strActive & "