<% @Language="VBScript" %> <% '-------------------------------------------------------------------- ' Microsoft ADO ' ' (c) 1996-1998 Microsoft Corporation. All Rights Reserved. ' ' ' ' ADO constants include file for VBScript ' '-------------------------------------------------------------------- '---- CursorTypeEnum Values ---- Const adOpenForwardOnly = 0 Const adOpenKeyset = 1 Const adOpenDynamic = 2 Const adOpenStatic = 3 '---- CursorOptionEnum Values ---- Const adHoldRecords = &H00000100 Const adMovePrevious = &H00000200 Const adAddNew = &H01000400 Const adDelete = &H01000800 Const adUpdate = &H01008000 Const adBookmark = &H00002000 Const adApproxPosition = &H00004000 Const adUpdateBatch = &H00010000 Const adResync = &H00020000 Const adNotify = &H00040000 Const adFind = &H00080000 Const adSeek = &H00400000 Const adIndex = &H00800000 '---- LockTypeEnum Values ---- Const adLockReadOnly = 1 Const adLockPessimistic = 2 Const adLockOptimistic = 3 Const adLockBatchOptimistic = 4 '---- ExecuteOptionEnum Values ---- Const adRunAsync = &H00000010 Const adAsyncExecute = &H00000010 Const adAsyncFetch = &H00000020 Const adAsyncFetchNonBlocking = &H00000040 Const adExecuteNoRecords = &H00000080 '---- ConnectOptionEnum Values ---- Const adAsyncConnect = &H00000010 '---- ObjectStateEnum Values ---- Const adStateClosed = &H00000000 Const adStateOpen = &H00000001 Const adStateConnecting = &H00000002 Const adStateExecuting = &H00000004 Const adStateFetching = &H00000008 '---- CursorLocationEnum Values ---- Const adUseServer = 2 Const adUseClient = 3 '---- DataTypeEnum Values ---- Const adEmpty = 0 Const adTinyInt = 16 Const adSmallInt = 2 Const adInteger = 3 Const adBigInt = 20 Const adUnsignedTinyInt = 17 Const adUnsignedSmallInt = 18 Const adUnsignedInt = 19 Const adUnsignedBigInt = 21 Const adSingle = 4 Const adDouble = 5 Const adCurrency = 6 Const adDecimal = 14 Const adNumeric = 131 Const adBoolean = 11 Const adError = 10 Const adUserDefined = 132 Const adVariant = 12 Const adIDispatch = 9 Const adIUnknown = 13 Const adGUID = 72 Const adDate = 7 Const adDBDate = 133 Const adDBTime = 134 Const adDBTimeStamp = 135 Const adBSTR = 8 Const adChar = 129 Const adVarChar = 200 Const adLongVarChar = 201 Const adWChar = 130 Const adVarWChar = 202 Const adLongVarWChar = 203 Const adBinary = 128 Const adVarBinary = 204 Const adLongVarBinary = 205 Const adChapter = 136 Const adFileTime = 64 Const adDBFileTime = 137 Const adPropVariant = 138 Const adVarNumeric = 139 '---- FieldAttributeEnum Values ---- Const adFldMayDefer = &H00000002 Const adFldUpdatable = &H00000004 Const adFldUnknownUpdatable = &H00000008 Const adFldFixed = &H00000010 Const adFldIsNullable = &H00000020 Const adFldMayBeNull = &H00000040 Const adFldLong = &H00000080 Const adFldRowID = &H00000100 Const adFldRowVersion = &H00000200 Const adFldCacheDeferred = &H00001000 Const adFldKeyColumn = &H00008000 '---- EditModeEnum Values ---- Const adEditNone = &H0000 Const adEditInProgress = &H0001 Const adEditAdd = &H0002 Const adEditDelete = &H0004 '---- RecordStatusEnum Values ---- Const adRecOK = &H0000000 Const adRecNew = &H0000001 Const adRecModified = &H0000002 Const adRecDeleted = &H0000004 Const adRecUnmodified = &H0000008 Const adRecInvalid = &H0000010 Const adRecMultipleChanges = &H0000040 Const adRecPendingChanges = &H0000080 Const adRecCanceled = &H0000100 Const adRecCantRelease = &H0000400 Const adRecConcurrencyViolation = &H0000800 Const adRecIntegrityViolation = &H0001000 Const adRecMaxChangesExceeded = &H0002000 Const adRecObjectOpen = &H0004000 Const adRecOutOfMemory = &H0008000 Const adRecPermissionDenied = &H0010000 Const adRecSchemaViolation = &H0020000 Const adRecDBDeleted = &H0040000 '---- GetRowsOptionEnum Values ---- Const adGetRowsRest = -1 '---- PositionEnum Values ---- Const adPosUnknown = -1 Const adPosBOF = -2 Const adPosEOF = -3 '---- enum Values ---- Const adBookmarkCurrent = 0 Const adBookmarkFirst = 1 Const adBookmarkLast = 2 '---- MarshalOptionsEnum Values ---- Const adMarshalAll = 0 Const adMarshalModifiedOnly = 1 '---- AffectEnum Values ---- Const adAffectCurrent = 1 Const adAffectGroup = 2 Const adAffectAll = 3 Const adAffectAllChapters = 4 '---- ResyncEnum Values ---- Const adResyncUnderlyingValues = 1 Const adResyncAllValues = 2 '---- CompareEnum Values ---- Const adCompareLessThan = 0 Const adCompareEqual = 1 Const adCompareGreaterThan = 2 Const adCompareNotEqual = 3 Const adCompareNotComparable = 4 '---- FilterGroupEnum Values ---- Const adFilterNone = 0 Const adFilterPendingRecords = 1 Const adFilterAffectedRecords = 2 Const adFilterFetchedRecords = 3 Const adFilterPredicate = 4 Const adFilterConflictingRecords = 5 '---- SearchDirectionEnum Values ---- Const adSearchForward = 1 Const adSearchBackward = -1 '---- PersistFormatEnum Values ---- Const adPersistADTG = 0 Const adPersistXML = 1 '---- StringFormatEnum Values ---- Const adStringXML = 0 Const adStringHTML = 1 Const adClipString = 2 '---- ConnectPromptEnum Values ---- Const adPromptAlways = 1 Const adPromptComplete = 2 Const adPromptCompleteRequired = 3 Const adPromptNever = 4 '---- ConnectModeEnum Values ---- Const adModeUnknown = 0 Const adModeRead = 1 Const adModeWrite = 2 Const adModeReadWrite = 3 Const adModeShareDenyRead = 4 Const adModeShareDenyWrite = 8 Const adModeShareExclusive = &Hc Const adModeShareDenyNone = &H10 '---- IsolationLevelEnum Values ---- Const adXactUnspecified = &Hffffffff Const adXactChaos = &H00000010 Const adXactReadUncommitted = &H00000100 Const adXactBrowse = &H00000100 Const adXactCursorStability = &H00001000 Const adXactReadCommitted = &H00001000 Const adXactRepeatableRead = &H00010000 Const adXactSerializable = &H00100000 Const adXactIsolated = &H00100000 '---- XactAttributeEnum Values ---- Const adXactCommitRetaining = &H00020000 Const adXactAbortRetaining = &H00040000 '---- PropertyAttributesEnum Values ---- Const adPropNotSupported = &H0000 Const adPropRequired = &H0001 Const adPropOptional = &H0002 Const adPropRead = &H0200 Const adPropWrite = &H0400 '---- ErrorValueEnum Values ---- Const adErrInvalidArgument = &Hbb9 Const adErrNoCurrentRecord = &Hbcd Const adErrIllegalOperation = &Hc93 Const adErrInTransaction = &Hcae Const adErrFeatureNotAvailable = &Hcb3 Const adErrItemNotFound = &Hcc1 Const adErrObjectInCollection = &Hd27 Const adErrObjectNotSet = &Hd5c Const adErrDataConversion = &Hd5d Const adErrObjectClosed = &He78 Const adErrObjectOpen = &He79 Const adErrProviderNotFound = &He7a Const adErrBoundToCommand = &He7b Const adErrInvalidParamInfo = &He7c Const adErrInvalidConnection = &He7d Const adErrNotReentrant = &He7e Const adErrStillExecuting = &He7f Const adErrOperationCancelled = &He80 Const adErrStillConnecting = &He81 Const adErrNotExecuting = &He83 Const adErrUnsafeOperation = &He84 '---- ParameterAttributesEnum Values ---- Const adParamSigned = &H0010 Const adParamNullable = &H0040 Const adParamLong = &H0080 '---- ParameterDirectionEnum Values ---- Const adParamUnknown = &H0000 Const adParamInput = &H0001 Const adParamOutput = &H0002 Const adParamInputOutput = &H0003 Const adParamReturnValue = &H0004 '---- CommandTypeEnum Values ---- Const adCmdUnknown = &H0008 Const adCmdText = &H0001 Const adCmdTable = &H0002 Const adCmdStoredProc = &H0004 Const adCmdFile = &H0100 Const adCmdTableDirect = &H0200 '---- EventStatusEnum Values ---- Const adStatusOK = &H0000001 Const adStatusErrorsOccurred = &H0000002 Const adStatusCantDeny = &H0000003 Const adStatusCancel = &H0000004 Const adStatusUnwantedEvent = &H0000005 '---- EventReasonEnum Values ---- Const adRsnAddNew = 1 Const adRsnDelete = 2 Const adRsnUpdate = 3 Const adRsnUndoUpdate = 4 Const adRsnUndoAddNew = 5 Const adRsnUndoDelete = 6 Const adRsnRequery = 7 Const adRsnResynch = 8 Const adRsnClose = 9 Const adRsnMove = 10 Const adRsnFirstChange = 11 Const adRsnMoveFirst = 12 Const adRsnMoveNext = 13 Const adRsnMovePrevious = 14 Const adRsnMoveLast = 15 '---- SchemaEnum Values ---- Const adSchemaProviderSpecific = -1 Const adSchemaAsserts = 0 Const adSchemaCatalogs = 1 Const adSchemaCharacterSets = 2 Const adSchemaCollations = 3 Const adSchemaColumns = 4 Const adSchemaCheckConstraints = 5 Const adSchemaConstraintColumnUsage = 6 Const adSchemaConstraintTableUsage = 7 Const adSchemaKeyColumnUsage = 8 Const adSchemaReferentialConstraints = 9 Const adSchemaTableConstraints = 10 Const adSchemaColumnsDomainUsage = 11 Const adSchemaIndexes = 12 Const adSchemaColumnPrivileges = 13 Const adSchemaTablePrivileges = 14 Const adSchemaUsagePrivileges = 15 Const adSchemaProcedures = 16 Const adSchemaSchemata = 17 Const adSchemaSQLLanguages = 18 Const adSchemaStatistics = 19 Const adSchemaTables = 20 Const adSchemaTranslations = 21 Const adSchemaProviderTypes = 22 Const adSchemaViews = 23 Const adSchemaViewColumnUsage = 24 Const adSchemaViewTableUsage = 25 Const adSchemaProcedureParameters = 26 Const adSchemaForeignKeys = 27 Const adSchemaPrimaryKeys = 28 Const adSchemaProcedureColumns = 29 Const adSchemaDBInfoKeywords = 30 Const adSchemaDBInfoLiterals = 31 Const adSchemaCubes = 32 Const adSchemaDimensions = 33 Const adSchemaHierarchies = 34 Const adSchemaLevels = 35 Const adSchemaMeasures = 36 Const adSchemaProperties = 37 Const adSchemaMembers = 38 '---- SeekEnum Values ---- Const adSeekFirstEQ = &H1 Const adSeekLastEQ = &H2 Const adSeekAfterEQ = &H4 Const adSeekAfter = &H8 Const adSeekBeforeEQ = &H10 Const adSeekBefore = &H20 '---- ADCPROP_UPDATECRITERIA_ENUM Values ---- Const adCriteriaKey = 0 Const adCriteriaAllCols = 1 Const adCriteriaUpdCols = 2 Const adCriteriaTimeStamp = 3 '---- ADCPROP_ASYNCTHREADPRIORITY_ENUM Values ---- Const adPriorityLowest = 1 Const adPriorityBelowNormal = 2 Const adPriorityNormal = 3 Const adPriorityAboveNormal = 4 Const adPriorityHighest = 5 '---- CEResyncEnum Values ---- Const adResyncNone = 0 Const adResyncAutoIncrement = 1 Const adResyncConflicts = 2 Const adResyncUpdates = 4 Const adResyncInserts = 8 Const adResyncAll = 15 '---- ADCPROP_AUTORECALC_ENUM Values ---- Const adRecalcUpFront = 0 Const adRecalcAlways = 1 %> <% Function OpenRecordSet (ByVal SQL) ' Returns standard recordset Set FunctionRS = Server.CreateObject("Adodb.RecordSet") FunctionRS.CursorLocation = adUseClient FunctionRS.Open SQL, Application("Precis_ConnectionString") FunctionRS.ActiveConnection = nothing Set OpenRecordSet = FunctionRS Set FunctionRS = Nothing 'Set DC = Nothing End Function '*********************************************************************************************************** Function OpenPagedRecordSet (ByVal SQL, ByVal intPageSize) ' Returns a Recordset that be paged by intPageSize chunks Set FunctionRS = Server.CreateObject("Adodb.RecordSet") FunctionRS.CursorLocation = adUseClient FunctionRS.CursorType = adOpenStatic FunctionRS.Open SQL, Application("Precis_ConnectionString") FunctionRS.ActiveConnection = nothing FunctionRS.CacheSize = intPageSize FunctionRS.PageSize = intPageSize Set OpenPagedRecordSet = FunctionRS Set FunctionRS = Nothing End Function '*********************************************************************************************************** Function OpenCustomRecordSet (ByVal SQL, ByVal ConnectionString) ' Returns a Recordset that be paged by intPageSize chunks Set FunctionRS = Server.CreateObject("Adodb.RecordSet") FunctionRS.CursorLocation = adUseClient FunctionRS.CursorType = adOpenStatic FunctionRS.Open SQL, ConnectionString FunctionRS.ActiveConnection = nothing Set OpenCustomRecordSet = FunctionRS Set FunctionRS = Nothing End Function '*********************************************************************************************************** Function SetDBCommand (CommandText) Set DC = Server.CreateObject("Adodb.Connection") DC.Open Application("Precis_ConnectionString") set SetDBCommand = Server.CreateObject("ADODB.Command") SetDBCommand.CommandTimeout = 120 set SetDBCommand.ActiveConnection = DC SetDBCommand.CommandText = CommandText SetDBCommand.CommandType = adCmdStoredProc Set DC = nothing Set DBCommand = nothing End Function '*********************************************************************************************************** Sub AdminFlag (ByVal mode) select case mode case "sd" ' Deletion Response.Write("

Successfully Deleted!

") case "sa" ' Addition Response.Write("

Successfully Added!

") case "su" ' Edited Response.Write("

Record Successfully Updated!

") case "sm" ' Moved Response.Write("

Record Successfully Moved!

") case "sid" ' Sucessful Image Deletion from Filesystem Response.Write("

Image Removed!

") case "sad" ' Successful Addition to Filesystem Response.Write("

Successful Addition of Image!

") case "n2c" ' Need to Confirm Request Response.Write("

Please Confirm Your Request!

") case "bl" ' Bad Login Response.Write("

Access Denied

") case "slo" ' Successful Logout Response.Write("

You have successfully logged out.

") case "pli" ' Please log in Response.Write("

Your session has expired, please log in

") case "eip" ' Error in Processing Response.Write("

Your Transaction Was Declined. If you feel this is in error, please try again.

") case "foo" ' Just Testing Response.Write("

Acount Debited

") case "lo" ' Logout Successful Response.Write("

Logout Successful!

") case "bl" ' Bad Login Response.Write("

Access Denied!

") case else Response.Write(" ") end select End Sub '*********************************************************************************************************** Sub UserLoggedIn() if Session("user_logged_in") <> true then Response.Redirect("index.html?mode=pli") end if End Sub '*********************************************************************************************************** Sub GetUserPermissions() End Sub '*********************************************************************************************************** Function IsValidEmail(Email) ValidFlag = False If (Email <> "") And (InStr(1, Email, "@") > 0) And (InStr(1, Email, ".") >0) Then atCount = 0 SpecialFlag = False ValidChar = False For atLoop = 1 To Len(Email) atChr = Mid(Email, atLoop, 1) If atChr = "@" Then atCount = atCount + 1 If (atChr = "@") Or (CatChr = ".") Then ValidChar = True If (atChr >= "A") And (atChr <= "Z") Then ValidChar = True If (atChr >= "a") And (atChr <= "z") Then ValidChar = True If (atChr >= "0") And (atChr <= "9") Then ValidChar = True If (atChr = "-") Or (atChr = "_") Then ValidChar = True If (atChr >= Chr(32)) And (atChr <= Chr(44)) Then SpecialFlag = True If (atChr = Chr(47)) Or (atChr = Chr(96)) Or (atChr >= Chr(123)) Then SpecialFlag = True If (atChr >= Chr(58)) And (atChr <= Chr(63)) Then SpecialFlag = True If (atChr >= Chr(91)) And (atChr <= Chr(94)) Then SpecialFlag = True Next If (atCount = 1) And (ValidChar = True) And (SpecialFlag = False) Then BadFlag = False tAry1 = Split(Email, "@") UserName = tAry1(0) DomainName = tAry1(1) If (UserName = "") Or (DomainName = "") Then BadFlag = True If Mid(DomainName, 1, 1) = "." then BadFlag = True If Mid(DomainName, Len(DomainName), 1) = "." then BadFlag = True ValidFlag = True End If End If If BadFlag = True Then ValidFlag = False IsValidEmail = ValidFlag End Function %> Melanie Mills - MAEd, CSP, CDP





 

 

 


Clients & Testimonials

The following is a list of industry categories available with client testimonials. Please click on an industry below to view them. If your industry is not listed below, please contact us and we will send you other industry references that we have on file.

“I was impressed by your ability to motivate a rather diverse crowd of everyone from administrative support to senior management. Your dynamic presentation style, coupled with your sheer knowledge of training and communication, contributed to a very successful experience. "


"Melanie's presentations are of excellent quality. Her ability to use just the right mixture of group activities and speaking truly engages the audience. She has the ability to feel the mood of the group and adjust the tempo of her presentation accordingly."


"In all the years of putting together sales meetings for our company, we have never had a guest speaker that had the impact on our group as you did in Whistler, British Columbia... Fresh and involving methods. Thanks! "

“Folks are still raving about your wonderful way of making them feel special while providing a safe environment to grow intellectually. You are an excellent presenter and carry a very powerful message.”




“Melanie has been invaluable as our anchor to provide motivation, inspiration and business expertise to our attendees affecting them personally and professionally. Melanie’s personality endears the audience to her - resulting in attention and retention of the information provided.”


“It is rare in this day to find someone who speaks with their actions and who they are, as loud as (if not louder than) the material they have to present. Melanie, I hope many more individuals have the opportunity to be touched by you.”


“Your energy, wit and clarity were impressive. The participants were asking for more, a very good sign!”


"I want to take this opportunity to thank you for the excellent facilitation that you provided for the HIV Early Intervention Team retreat. The day was informative, fun and most importantly, very productive. "


"...we receive nothing but positive feedback from her presentations. She is clear, precise, humorous, motivational and captures the audience's attention with her very own talented style. Our organization feels very privileged to have her participate in our Quest for Excellence Seminars."

Clients Served

  • 3M Dental Products Division
  • 3M Unitek
  • Accent Services
  • American Cancer Society
  • American Express
  • Apple Computer
  • AT&T
  • Bremner, Inc.
  • Bucknell University
  • CenCall Communications
  • Chamber of Commerce
  • Cherry Creek School District
  • Comfortable Care Dental Group
  • Corporate Express
  • Deloite and Touche, LLP
  • Denver Health
  • Dimensions Software
  • Eastern Michigan University
  • EG&G
  • EPA
  • FDC
  • Friesens Yearbook
  • Canada
  • Gerber Products
  • Great West Assurance
  • Growmark
    Gulf Coast Community College
  • Heller Financial
  • Hewlett-Packard
  • Hunter Douglas
  • Infonet Academy
  • James River
  • Mercy Medical Center
  • Mesa Moving
  • Mobil
  • NASA
  • Oakland County Michigan
  • Omnium Worldwide, Inc.
  • Ontario Dental Hygiene Study Club
  • Oregon State University
  • Pacific International Marketing
  • Pennsylvania Assoc. of Orthodontists
  • Phillips Drisco
  • Pipe
  • Price Waterhouse
  • Prudential Insurance
  • Safeco
  • Starz-Encore
  • State of Colorado
  • Taco Bell
  • TCI, Inc.
  • TransAmerica
  • Travis Air Force Base
  • U.S. Postal Service
  • University of Missouri Dental School
  • US Forest Service
  • VA Medical Center
  • Washington State
  • Washtenaw County Michigan
  • YMCA

 
 
About Melanie MillsHigher Ground ServicesTestimonials
Project ExamplesContact InformationSite Map Home

Melanie M Mills
Higher Ground Inc.
303-763-0367

        
© MMIII All Rights Reserved. Melanie M. Mills—Higher Ground Inc.
Site Maintained by Prime Concepts Group Inc.