<!--#include file="QNAdmConfig.asp"-->
<%
'*******************************************************************************
'* QuickNews Copyright 2003 XCENT - www.xcent.com                              *
'* QuickNews is a trademark of XCENT                                           *
'* This notice may not be removed from this source code file                   *
'*******************************************************************************
   
Function IsAdminLoggedIn()
   If Session("LoggedOn") = "YES" Then
      IsAdminLoggedIn = True
   Else
      IsAdminLoggedIn = False
   End If      
End Function

Function PHash( pValue )
   Dim dValue 
   Dim dAccumulator
   Dim lTemp 
   Dim sValue
   sValue = UCase(Trim("" & pValue))
   dAccumulator = 0
   For lTemp = 1 to Len(sValue)
      dValue = Asc(Mid(sValue, lTemp, 1))
      If (lTemp AND 1) = 1 Then
         dAccumulator = Sin( dAccumulator  + dValue )
      Else
         dAccumulator = Cos( dAccumulator  + dValue )
      End If
   Next
   dAccumulator = dAccumulator * CLng(10 ^ 9)
   PHash = CLng(dAccumulator)
End Function
%>