Estrella Mountain Community College

<% Response.Buffer = True Response.ExpiresAbsolute = Now() - 1 Response.AddHeader "Cache-Control", "private" Session.Timeout=60 thisyear="2009" thisterm="Spring2009" %> <%'Microsoft ADO'' (c) 1996 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 '---- LockTypeEnum Values ---- Const adLockReadOnly = 1 Const adLockPessimistic = 2 Const adLockOptimistic = 3 Const adLockBatchOptimistic = 4 '---- CursorLocationEnum Values ---- Const adUseClient = 1 Const adUseServer = 2 Const adUseClientBatch = 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 '---- 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 adXactPollAsync = 2 Const adXactPollSyncPhaseOne = 4 Const adXactCommitRetaining = &H00020000 Const adXactAbortRetaining = &H00040000 Const adXactAbortAsync = &H00080000 '---- FieldAttributeEnum Values ---- Const adFldBookmark = &H00000001 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 '---- EditModeEnum Values ---- Const adEditNone = &H0000 Const adEditInProgress = &H0001 Const adEditAdd = &H0002 '---- 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 '---- AffectEnum Values ---- Const adAffectCurrent = 1 Const adAffectGroup = 2 Const adAffectAll = 3 '---- FilterGroupEnum Values ---- Const adFilterNone = 0 Const adFilterPendingRecords = 1 Const adFilterAffectedRecords = 2 Const adFilterFetchedRecords = 3 '---- 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 adErrObjectNotSet = &Hd5c Const adErrDataConversion = &Hd5d Const adErrObjectClosed = &He78 Const adErrObjectOpen = &He79 Const adErrProviderNotFound = &He7a Const adErrBoundToCommand = &He7b '---- 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 = 0 Const adCmdText = &H0001 Const adCmdTable = &H0002 Const adCmdStoredProc = &H0004 %> <% '-------------------------------------------------------------------------------- ' ' Microsoft CDO for NTS 1.2 Library ' ' Constants for VBScript ' '-------------------------------------------------------------------------------- '---- CdoAttachmentTypes Values ---- Const CdoFileData = 1 Const CdoEmbeddedMessage = 4 '---- CdoBodyFormats Values ---- Const CdoBodyFormatHTML = 0 Const CdoBodyFormatText = 1 '---- CdoEncodingMethod Values ---- Const CdoEncodingUUencode = 0 Const CdoEncodingBase64 = 1 '---- CdoFolderTypes Values ---- Const CdoDefaultFolderInbox = 1 Const CdoDefaultFolderOutbox = 2 '---- CdoImportance Values ---- Const CdoLow = 0 Const CdoNormal = 1 Const CdoHigh = 2 '---- CdoMailFormats Values ---- Const CdoMailFormatMime = 0 Const CdoMailFormatText = 1 '---- CdoMessageFormats Values ---- Const CdoMime = 0 Const CdoText = 1 '---- CdoObjectClass Values ---- Const CdoSession = 0 Const CdoMessages = 16 Const CdoRecipients = 17 Const CdoAttachments = 18 Const CdoFolder = 2 Const CdoClassTotal = 29 Const CdoMsg = 3 Const CdoRecipient = 4 Const CdoAttachment = 5 Const CdoAddressEntry = 8 '---- CdoRecipientTypes Values ---- Const CdoTo = 1 Const CdoCc = 2 Const CdoBcc = 3 %> <% Set contemp=Server.CreateObject("ADODB.Connection") contemp.Open="Driver={SQL Native Client};Server=Earth.estrella.emc;Database=emc;Uid=choice;Pwd=julius;" %> <% dim dbconnection dbconnection="true" sqlmenu="select MRFNBR, MNAME, MURL, MSTATUS " sqlmenu=sqlmenu & "from MENU, MENUREL " sqlmenu=sqlmenu & "where MPRFNBR=195 And " sqlmenu=sqlmenu & "MCRFNBR=MRFNBR order by MORDER" set rstmenu=contemp.execute(sqlmenu) %>

<% If not(rstmenu.BOF and rstmenu.EOF) Then cnt=1 Do while not rstmenu.EOF If rstmenu("MURL") = "" Then mrfnbr=rstmenu("MRFNBR") %> <% Else If rstmenu("MSTATUS") = "Y" Then %> " style="text-decoration:none" target="_new"> <% Else %> " style="text-decoration:none"> <% End if End if cnt=cnt+1 rstmenu.movenext Loop End if rstmenu.close set rstmenu=nothing %>