Articles

How To Protect Yourself From Hiring Discrimination Lawsuits

Some of the main ingredients in a discrimination lawsuit include inconsistent hiring practices and violation of Title VII of the Civil Rights Act of 1964. Regardless of how sophisticated the recruitment process is at any company, it is very important to recruit and hire every job candidate in the same manner...

How to Avoid Negligent Hiring

Negligent hiring is based on the principal that employers have an obligation to protect their employees and clients from injury caused by their own employees. Employers have an obligation to protect their employees from the "foreseeable" acts of a fellow employee...

How To Identify The Top 7 Resume’ Lies

The best way to identify the top 7 resume′ lies is to do a thorough background pre-screening of all prospective employees. Ideally, an employment pre-screening to should be left to a professional employee screening company. AccuScreen, Inc. has the experience and skills to perform...

How To Identify Fraudulent Self-Promotion

Self-promotion can be good thing for a job seeker in a competitive job market. On the other hand, fraudulent self-promotion is never right. Fraudulent self-promotion is when an employee claims a senior position they never held. In other words, they promote themselves by...

How To Deter Credit Card Fraud By Your Employees

Credit card fraud is a term for theft and fraud committed using a credit card as a fraudulent source of funds in a transaction. Examples of credit card fraud...

How Accu-Screen, Inc. Can Help Your Business Save Money

Accu-Screen, Inc. specializes in pre-employment background screening and drug testing services. Renowned professional background-screening expert, Kevin G. Connell, founded Accu-Screen, Inc. with the belief that, “… corporations and governmental organizations are...

How To Decrease Theft In Your Business

Stealing money from a business is one the most obvious forms of employee theft. This can be in form of embezzlement or the taking cash right out of a register...

How To Choose A Background Screening Firm

A background screening firm processes the background of a prospective employee, tenant or other business associate. The background can be simple to very involved, depending on the position, employer, job description or credit requirement...

How To Avoid The Self-Graduator

It would be great if there were a foolproof way to identify “self-graduators” just by looking at someone or their resume′.  Unfortunately, that is not possible. A “self-graduator” is a person who presents himself as having degrees or certificates that he or she has not earned...

How To Avoid The Problems Employers Face In A Bad Economy

Some employers feel that they have the upper hand when the job market is tight for job seekers. They feel that because jobs are scarce they have a larger pool of job applicants and that they may even be able to negotiate a lower salary. Not only is this way of thinking faulty...

How To Avoid Liability Issues With Contractors And Subcontractors

Most employers would not hire a complete stranger to work in their company. Yet, for some reason contractors and subcontractors are excluded from this precaution.  These workers seem to slip between the cracks and no one seems to really know that much about them...

Employers: Why A Drug Abuse Prevention Program Can Help You Prevent Headaches

One of the best ways a company can save money and reduce frequent turnover is to implement a solid drug abuse prevention program. By doing so a business can...

Employers: Make Sure You Don’t End Up Paying For Your Employee’s Crimes

How Your Worker's Crime May Make You Pay. When an employer hires an candidate “blindly” they can be held liable for crimes by an employee, contractor or subcontractor. This applies even if the crimes appear to have no connection with the workers' jobs...

Employers: Learn The “Fraud Triangle” To Prevent Fraud

What is the Fraud Triangle?
The Fraud Triangle is a model developed by Dr. Donald Cressey, a criminologist whose research focused on embezzlers. According to Dr. Cressey, there are three factors that must be present in order for...

Employers: Don’t Get Fooled By The “Diploma Mills” Degree

A diploma mill or degree mill is an organization that awards academic and diplomas with substandard or no academic study and without recognition by official  educational accrediting bodies. All that is required to get an education from a diploma mill is a valid credit card...

Employers: Avoid The Worst Employees Of The Year!

These employees seem to cause or attract trouble wherever they go. The problems can be mild like the chronic troublemaker who always seems to have a hard time getting to work on time because the car had a flat tire or there was an “accident”. Then there is...

Don’t Let A “Poor” Employee Send You To The Poor House

What is a “poor” employee?
A “poor” employee is an employee who has a history of poor performance, ethics and skills. Due to these issues, these “poor” employees can drain the company of its resources through loss of profits, theft and lawsuits...

Dental Offices: How To Avoid Being A Target For Employee Theft!

Why dental offices are targets for employee theft?
Dental offices are easy targets for unethical employees because of the opportunity and trust these employees are given. The main reasons why some dental office employees steal are the need for money...

Avoid Cubicle Cruisers

What are “cubicle cruisers”?
Cubicle cruisers are employees who spend much of their time at work socializing with  co-workers in office cubicles or workspaces. They are low-level performers who don’t produce...

Decrease Sexual Harassment Claims In Your Company

What is sexual harassment?
Most employers recognize sexual harassment as a form of sex discrimination that violates Title VII of the Civil Rights Act of 1964. There are two types of sexual harassment, “hostile environment.” and...

More Articles:
<%@ LANGUAGE = "VBScript" %> <% 'Database Connection for ASPilot Web Cart 7.x. ' Copyright © 2007 Spliethof Inc Const DB_PATH = "D:\Clients\vhosts\accuscreen.com\httpdocs\" 'For security reasons we do not print the password here. 'If using a password, please replace the asterisks (*) below with your password. Const CONNECTION_STRING = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Clients\vhosts\accuscreen.com\httpdocs\data\database.mdb;" %> <% '---------------------------------------------------------- ' CheckFileExists ' -------------- ' Returns True or False depending in the file in question exists on ' the server or not '---------------------------------------------------------- Function CheckFileExists(strFileName) Dim fsoImage, blnExists Set fsoImage = Server.CreateObject("Scripting.FileSystemObject") strFileToCheck = Server.MapPath(strFileName) blnExists = False blnExists = fsoImage.FileExists(strFileToCheck) Set fsoImage = Nothing CheckFileExists = blnExists End Function '----------------------------------------------------------- ' EBool ' ----- ' Coerces variable to Boolean subtype. Empty if not ' Boolean-able. '----------------------------------------------------------- Function EBool(var) If IsArray(var) Then Exit Function Select Case VarType(var) Case vbEmpty, vbNull Case vbBoolean EBool = var Case vbInteger, vbLong, vbSingle, vbDouble, vbCurrency, vbDate, vbByte If var = 0 Then EBool = False Else EBool = True End If Case vbString If IsNumeric(var) Then If var = 0 Then EBool = False Else EBool = True End If Else Select Case LCase(Trim(var)) Case "true", "t", "yes", "y", "1", "-1" EBool = True Case "false", "f", "no", "n", "0" EBool = False End Select End If Case vbObject On Error Resume Next EBool = CBool(var) End Select End Function '----------------------------------------------------------- ' ECur ' ---- ' Coerces variable to Currency subtype. Uses arithmetic ' rounding (not VBScript banker's rounding). ' Empty if not Currency-able. '----------------------------------------------------------- Function ECur(var) Dim curFix If IsArray(var) Then Exit Function Select Case VarType(var) Case vbEmpty, vbNull Case vbString If IsNumeric(var) Then ECur = CCur(var) Case vbCurrency ECur = var Case vbLong, vbInteger, vbBoolean, vbByte, vbSingle, vbDouble, vbDate ECur = CCur(var) Case vbObject On Error Resume Next ECur = CCur(var) End Select End Function '----------------------------------------------------------- ' EDate ' ----- ' Coerces variable to Date subtype. Empty if not Date-able. '----------------------------------------------------------- Function EDate(var) If IsArray(var) Then Exit Function Select Case VarType(var) Case vbEmpty, vbNull, vbBoolean Case vbString If IsDate(var) Then EDate = CDate(FormatDateTime(var, 2)) Case vbDate EDate = var Case vbLong, vbInteger, vbByte, vbSingle, vbDouble, vbCurrency EDate = CDate(FormatDateTime(var, 2)) Case vbObject On Error Resume Next EDate = CDate(FormatDateTime(var, 2)) End Select End Function '----------------------------------------------------------- ' EDbl ' ---- ' Coerces variable to Double subtype. Empty if not Double-able. '----------------------------------------------------------- Function EDbl(var) If IsArray(var) Then Exit Function Select Case VarType(var) Case vbEmpty, vbNull Case vbString If IsNumeric(var) Then EDbl = CDbl(var) Case vbDouble EDbl = var Case vbCurrency, vbLong, vbInteger, vbBoolean, vbByte, vbSingle, vbDate EDbl = CDbl(var) Case vbObject On Error Resume Next ECur = CDbl(var) End Select End Function '----------------------------------------------------------- ' ELng ' ---- ' Coerces variable to Long subtype. Uses arithmetic ' rounding (not VBScript banker's rounding). ' Empty if not Long-able. '----------------------------------------------------------- Function ELng(var) Dim lngFix If IsArray(var) Then Exit Function Select Case VarType(var) Case vbEmpty, vbNull Case vbString If IsNumeric(var) Then If -2147483648 <= var And var <= 2147483647 Then lngFix = CLng(Fix(var)) If lngFix = var Then ELng = lngFix Else ELng = CLng(lngFix + Fix(var - lngFix + Sgn(var) * 0.5)) End If End If End If Case vbLong ELng = var Case vbInteger, vbBoolean, vbByte ELng = CLng(var) Case vbSingle, vbDouble, vbCurrency, vbDate If -2147483648 <= var And var <= 2147483647 Then lngFix = CLng(Fix(var)) If lngFix = var Then ELng = lngFix Else ELng = CLng(lngFix + Fix(var - lngFix + Sgn(var) * 0.5)) End If End If Case vbObject On Error Resume Next ELng = CLng(var) End Select End Function '----------------------------------------------------------- ' EStr ' ---- ' Coerces variable to String subtype. Empty if Len() = 0 ' or not String-able. '----------------------------------------------------------- Function EStr(var) Dim strR If IsArray(var) Then Exit Function Select Case VarType(var) Case vbEmpty, vbNull Case vbString strR = Trim(var) If Len(strR) > 0 Then EStr = strR Case vbInteger, vbLong, vbSingle, vbDouble, vbCurrency, vbDate, vbBoolean, vbByte EStr = CStr(var) Case vbObject On Error Resume Next EStr = CStr(var) End Select End Function '---------------------------------------------------------- ' GetChosen ' -------------- ' Compare two strings and decides to write " checked" or " selected" not for ' a check box. Used for radio buttons or drop downs in controlpanel/pilot.asp '---------------------------------------------------------- Function GetChosen(strDatabase, strCompare, strType) GetChosen = "" If UCase(strDatabase) = UCase(strCompare) Then GetChosen = " "&strType End Function '---------------------------------------------------------- ' GetMaxID ' -------------- ' Compare two strings and decides to write " checked" or " selected" not for ' a check box. Used for radio buttons or drop downs in controlpanel/pilot.asp '---------------------------------------------------------- Function GetMaxID(strTABLE, strIDFIELD) GetMaxID = 1 strSQL = "SELECT MAX("&strIDFIELD&") as HighID FROM "&strTABLE Set rsMAX = cnPILOT.Execute(strSQL) If NOT rsMAX.EOF Then GetMaxID = rsMAX("HighID") rsMAX.Close : Set rsMAX = Nothing End Function '----------------------------------------------------------- ' MakeDatabaseSafeString ' ------------- ' Make the string safe for inputting into the database. '----------------------------------------------------------- Function MakeDatabaseSafeString(strInput) Dim strOutput strOutput = Trim(Replace(strInput, "'", "''")) 'strOutput = Server.HTMLEncode(strOutput) MakeDatabaseSafeString = strOutput End Function '----------------------------------------------------------- ' PilotInitialize ' -------------- ' Starts up the engine. Sets up the Response object. '----------------------------------------------------------- Sub PilotInitialize() PilotStartUpEngine Response.Buffer = True Response.ContentType = "text/html" Response.Charset = "ISO-8859-1" Response.ExpiresAbsolute = #01/01/1980 00:00:00# End Sub '----------------------------------------------------------- ' PilotTerminate ' ------------- ' Shuts off the engine and ends response. '----------------------------------------------------------- Sub PilotTerminate() PilotShutOffEngine Response.End End Sub '----------------------------------------------------------- ' stripHTML ' -------------- ' Strips the HTML tags from the Desciption field ' Credit given to Scott Mitchell of ' www.4guysfromrolla.com/webtech/042501-1.shtml ' Modified slightly by Chris Zwemke '----------------------------------------------------------- Function stripHTML(strHTML) If strHTML&"x" = "x" Then Exit Function strHTML = Replace(strHTML, vbCrLf, " ") 'CZ Dim objRegExp, strOutput Set objRegExp = New Regexp objRegExp.IgnoreCase = True objRegExp.Global = True objRegExp.Pattern = "<(.|\n)+?>" 'Replace all HTML tag matches with the empty string strOutput = objRegExp.Replace(strHTML, "") 'Replace all < and > with < and > strOutput = Replace(strOutput, "<", "<") strOutput = Replace(strOutput, ">", ">") stripHTML = strOutput 'Return the value of strOutput Set objRegExp = Nothing End Function '----------------------------------------------------------- ' TestForObject ' ------------- ' Tests to see if a particular class of object is ' instantiable on this machine. '----------------------------------------------------------- Function TestForObject(theObjectIdentifier) On Error Resume Next Dim objTest Set objTest = Server.CreateObject(theObjectIdentifier) If Err <> 0 Then TestForObject = False Else TestForObject = True Err.Clear Set objTest = Nothing End Function %> <% '----------------------------------------------------------- ' PilotGlobal ' ---------- ' Wraps tblGlobal & tblStrings in an easy-to-use wrapper. ' ' Tables Used: ' tblGlobal ' tblStrings '----------------------------------------------------------- Class PilotGlobal Private m_rs 'tblGlobal recordset Private m_dict 'Quick look-up for already sought key/value Private m_rsStrings 'tblStrings recordset Private m_dictStrings 'Quick look-up for already sought key/value Private m_strHomeDomain 'Domain/path. Used so often, it's locally stored. Private m_blnSSLEnabled Private m_strSecureDomain 'Secure services domain/path. Private Sub Class_Initialize() Set m_dict = Server.CreateObject("Scripting.Dictionary") m_dict.CompareMode = TextCompare Set m_rs = Server.CreateObject("ADODB.Recordset") m_rs.Open "TBLGLOBAL", cnPILOT, 3, 3, &H0002 Set m_dictStrings = Server.CreateObject("Scripting.Dictionary") m_dictStrings.CompareMode = TextCompare Set m_rsStrings = Server.CreateObject("ADODB.Recordset") m_rsStrings.Open "TBLSTRINGS", cnPILOT, 3, 3, &H0002 m_strHomeDomain = Value("HomeDomainPath") m_strSecureDomain = Value("SecureDomainPath") m_blnSSLEnabled = Value("SSL_Enabled") End Sub Private Sub Class_Terminate() Set m_dictStrings = Nothing If m_rsStrings.State <> adStateClosed Then m_rsStrings.Close Set m_rsStrings = Nothing Set m_dict = Nothing If m_rs.State <> adStateClosed Then m_rs.Close Set m_rs = Nothing End Sub '----------------------------------------------------------- ' m_MoveLongTo ' ------------ ' Move the current row of m_rsStrings to the desired Key ' or EOF if it doesn't exist. '----------------------------------------------------------- Private Sub m_MoveLongTo(Key) If m_dictStrings.Exists(Key) Then m_rsStrings.Bookmark = m_dictStrings(Key) Else m_rsStrings.MoveFirst m_rsStrings.Find "NameKey = '" & Key & "'" If Not m_rsStrings.EOF Then m_dictStrings.Add Key, m_rsStrings.Bookmark End If End If End Sub '----------------------------------------------------------- ' m_MoveTo ' -------- ' Move the current row of m_rs to the desired Key ' or EOF if it doesn't exist. '----------------------------------------------------------- Private Sub m_MoveTo(Key) If m_dict.Exists(Key) Then m_rs.Bookmark = m_dict(Key) Else m_rs.MoveFirst m_rs.Find "NameKey = '" & Key & "'" If Not m_rs.EOF Then m_dict.Add Key, m_rs.Bookmark End If End If End Sub ' - - - Properties - - - '----------------------------------------------------------- ' HomeDomain ' ---------- ' The home domain/path for this site. '----------------------------------------------------------- Public Property Get HomeDomain() HomeDomain = m_strHomeDomain End Property '----------------------------------------------------------- ' HomePageURL ' ----------- ' The root URL for non-secure requests to this site. '----------------------------------------------------------- Public Property Get HomePageURL() HomePageURL = "http://" & m_strHomeDomain & "/" End Property '----------------------------------------------------------- ' ControlPanelURL ' ----------- ' The root URL for Control Panel requests to this site. '----------------------------------------------------------- Public Property Get ControlPanelURL() If m_blnSSLEnabled Then ControlPanelURL = "https://" & m_strSecureDomain & "/controlpanel/" Else ControlPanelURL = "http://" & m_strSecureDomain & "/controlpanel/" End If End Property '----------------------------------------------------------- ' SecureDomain ' ------------ ' The domain/path for secure request to this site. '----------------------------------------------------------- Public Property Get SecureDomain() SecureDomain = m_strSecureDomain End Property '----------------------------------------------------------- ' SecureURL ' --------- ' The root URL for secure requests to this site. '----------------------------------------------------------- Public Property Get SecureURL() If m_blnSSLEnabled Then SecureURL = "https://" & m_strSecureDomain & "/" Else SecureURL = "http://" & m_strSecureDomain & "/" End If End Property '----------------------------------------------------------- ' Str ' --- ' Get a value from tblStrings. '----------------------------------------------------------- Public Property Get Str(ByVal Key) Key = EStr(Key) If IsEmpty(Key) Then Exit Property m_MoveLongTo Key If m_rsStrings.EOF Then Exit Property Str = EStr(m_rsStrings("Val")) End Property Public Property Let Str(ByVal Key, ByRef Value) Key = EStr(Key) If IsEmpty(Key) Then Exit Property m_MoveLongTo Key If m_rsStrings.EOF Then Exit Property m_rsStrings("Val") = EStr(Value) m_rsStrings.Update End Property '----------------------------------------------------------- ' Value ' ----- ' Get a value from tblGlobal. '----------------------------------------------------------- Public Default Property Get Value(ByVal Key) Key = EStr(Key) If IsEmpty(Key) Then Exit Property m_MoveTo Key If m_rs.EOF Then Exit Property Select Case m_rs("DataType") Case vbString Value = EStr(m_rs("Val")) Case vbBoolean Value = EBool(m_rs("Val")) Case vbLong Value = ELng(m_rs("Val")) Case vbDate Value = EDate(m_rs("Val")) Case vbCurrency Value = ECur(m_rs("Val")) End Select End Property Public Property Let Value(ByVal Key, ByVal varVal) Key = EStr(Key) If IsEmpty(Key) Then Exit Property m_MoveTo Key If m_rs.EOF Then Exit Property Select Case m_rs("DataType") Case vbString m_rs("Val") = EStr(varVal) Case vbBoolean m_rs("Val") = CStr(CBool(EBool(varVal))) Case vbLong m_rs("Val") = ELng(varVal) Case vbDate m_rs("Val") = EDate(varVal) Case vbCurrency m_rs("Val") = ECur(varVal) End Select m_rs.Update End Property End Class %> <% 'This config file will be written via the set up to control various layouts and ' other includes. This will mean that we don't keep a single file with all of the ' gateways or email processors in them. Just the one that we actually need. ' %>[an error occurred while processing this directive]<% ' %>[an error occurred while processing this directive] <% Dim cid '----------------------------------------------------------- ' PilotStartUpEngine ' ----------------- ' Opens the Connection, FileSystemObject. '----------------------------------------------------------- Sub PilotStartUpEngine() Set cnPILOT = Server.CreateObject("ADODB.Connection") On Error Resume Next cnPILOT.Open CONNECTION_STRING If Err.number <> 0 Then Response.Write "

" If style = "norm" Then If previousPg <> maxcount Then Response.Write "" For i = 1 to maxcount Response.Write " "&i&" " Next If nextPg <> 1 Then Response.Write "" End If Response.Write "

All Articles

<%=strGroupname%> more...

<% While i <= intRecCount And howmanyrecs < rsPageSize rsAID = arrRS(0,i) rsATHEDATE = arrRS(1,i) rsATAGLINE = arrRS(2,i) rsAGNAME = arrRS(3,i) 'here is where we display the news articles in order by date descending. 'modify this to look any way you want: %> <%=rsATHEDATE%>
<%=rsATAGLINE%>
Read more...

<% howmanyrecs = howmanyrecs + 1 i=i+1 Wend 'Response.Write "
Back
" Else Response.Write "Sorry, no Articles were found." End If If maxcount > 1 Then If mypage-1 > 0 Then Response.Write "Prev" For i = 1 To maxcount strI = i If CStr(mypage) = CStr(i) Then strI = ""&i&"" Response.Write " "&strI&" " Next If mypage+1 <= maxcount Then Response.Write "Next" End If Else Set rs = cnPILOT.Execute("SELECT AID, ATAGLINE, AHEADER, ARTICLE, AWRITTENBY, AEMAIL, ATHEDATE FROM TBLARTICLES WHERE AID = "&specific&"") If NOT rs.EOF Then arrRS = rs.GetRows rs.Close : Set rs = Nothing If NOT IsEmpty(arrRS) Then strWrittenBy = arrRS(4,0) strEMAIL = arrRS(5,0) 'Show the contact information in best possible format If Trim("X"&strWrittenBy) = "X" And Trim("X"&strEMAIL) = "X" Then writtenBy = "" ElseIf Trim("X"&strWrittenBy) <> "X" And Trim("X"&strEMAIL) = "X" Then writtenBy = "
Written By: "&rs("WRITTENBY")&"" ElseIf Trim("X"&strWrittenBy) <> "X" And Trim("X"&strEMAIL) <> "X" Then writtenBy = "
Written By: "&strWrittenBy&"" Else writtenBy = "
Written By: "&strEMAIL&"" End If Response.Write "

"&Left(arrRS(6,0),10)&"

" Response.Write ""&arrRS(1,0)&"
" Response.Write ""&arrRS(2,0)&"
" Response.Write arrRS(3,0) &"
" %> <%If writtenBy <> "" Then Response.Write writtenBy &"

"%> List All Articles