-->
<%
Dim varDiagnostics ' Display diagnostics?
varDiagnostics = "N"
Const conSrvrxxxx = "archtech.wellsfargo.com"
Dim varServer ' Which server am I addressing?
Dim varThisURL ' Relative URL of this page
Dim varAdminDSNCurr ' ODBC DSN for admin/driver database
Dim varAdminTblNameCurr ' Admin/driver Table-name within database
Const conAdminDSNTest = "dsn=lehuan.sitedriver"
Const conAdminDSNProd = "dsn=kmteam"
Const conAdminTblNameProd = "Tbl_Domain_Driver"
Const conAdminTblNameTest = "Tbl_Domain_Driver"
varAdminDSNCurr = conAdminDSNProd
varAdminTblNameCurr = conAdminTblNameProd
varAdminTblNameCurr = conAdminTblNameProd
Dim varNeoDSNCurr ' ODBC DSN for admin/Neopets database
Dim varNeoTblNameCurr ' Admin/Neopets Table-name within database
Const conNeoDSNTest = "dsn=lehuan.sitedriver"
Const conNeoDSNProd = "dsn=kmteam"
Const conNeoTblNameProd = "xIt_ItemsMaster"
Const conNeoTblNameTest = "xIt_ItemsMaster"
varNeoDSNCurr = conNeoDSNProd
varNeoTblNameCurr = conNeoTblNameProd
varNeoTblNameCurr = conAdminTblNameProd
Const conSchemaProd = "Catalina"
Const conSchemaTest = "Tahoe"
Dim varSchemaCurr ' Schema to use for this site
Dim varSchemaDSNCurr ' ODBC DSN for Schema database
Dim varSchemaTblNameCurr ' Schema Table-name within database
Const conSchemaDSNTest = "dsn=lehuan.sitedriver"
Const conSchemaDSNProd = "dsn=kmteam"
Const conSchemaTblNameProd = "Tbl_Site_Schemas"
Const conSchemaTblNameTest = "Tbl_Site_Schemas"
varSchemaDSNCurr = conSchemaDSNProd
varSchemaTblNameCurr = conSchemaTblNameProd
Dim varDataDSNCurr ' ODBC DSN for Data database
Const conDataTblNameCurr = "xIt_ItemsMaster" ' Data Table-name within database
Const conDataDSNTest = "dsn=lehuan.sitedriver"
Const conDataDSNProd = "dsn=kmteam"
varDataDSNCurr = conDataDSNProd
Dim passCaller ' Calling page's ID
Dim passTblName ' From Data_Manager: Name of table to be updated
' And from Data_Mod/Updt's "return"
' And to Data_Manager
Dim passSector ' From Data_Manager: Select a subset of table to view
Dim passBoxCash ' From form: omit-cash box
Dim passBoxCustom ' From FORM: wearables-only
Dim passShopGrp ' From Data_Manager: Select a finer subset of table to view
Dim passTheme ' From form: Theme or occasion
Dim passSubcatg ' From form: Subcategory
Dim passMetaSingle ' From form: Single metadata keyword
Dim passStatMsg ' From Data_Maint: Err/warn status from preceding update attempt
Dim passKeyNum ' Chosen Rec#
Dim objRSk ' dbase object: Schemas tbl
Dim varBGImgURL ' dbase: BG wallpaper URL (if any)
Dim varPageBG ' dbase: BGcolor: Page default
Dim varPageTx ' dbase: TxColor: Page default
Dim varBanrImgURL ' dbase: URL for banner image (if any)
Dim varBanrBG ' dbase: BGcolor: Banner bar
Dim varBanrTx ' dbase: TxColor: Banner bar's text
Dim varHdrBG ' dbase: BGcolor: Header bars
Dim varHdrTx ' dbase: TxColor: Header bar's text
Dim varCellBG ' dbase: BGcolor: Tbl cells
Dim varCellTx ' dbase: TxColor: Tbl cell's text
Dim varLinkTx ' dbase: Txcolor: Links
Dim varVLinkTx ' dbase: TxColor: VLinks
Dim varALinkTx ' dbase: TxColor: ALinks
Dim varSQLtext_k ' SQL statements for objRSk
Dim xxxUseMap ' Name of banner-image Use-map
Dim varBanrTextVal ' Text for banner
Const conBanrImageKM = "bin/graphics/banner_image_KM.gif"
Const conUseMapKM = "TGbannerMAP"
Const conBanrTextKM = "Knowledge Management
Informed Objectives"
Const conBanrImageLe = "@"
Const conUseMapLe = "TGbannerMAP"
Const conBanrTextLe = "Seek Neopets Items / Busqueda para articulos de Neopets"
' *** -------------------------------------------------- ***
' *** %$% TABLES ***
' *** -------------------------------------------------- ***
Dim objRSt ' dbase object: URLs table
Dim varSQLtext_t ' SQL statements for objRSt
Dim varSortKey1 ' Field name of major sort
Dim varSortKey2 ' Field name of intermed sort
Dim varSortKey3 ' Field name of minor sort
Dim varSectorFldName ' Field name of sector/region
Dim varCatgFldName ' Field name of category
Dim varActionDest ' Action destination for this table
' *** -------------- ***
' *** BASIC URL-Type ***
' *** -------------- ***
Dim varKeyNum ' dbase: Autonum Rec Key
Dim varSector ' dbase: Sector
Dim varCatg ' dbase: Category
Dim varCaption ' dbase: Caption
Dim varSuggPrice ' dbase: Status
Dim varURL ' dbase: URL
Dim varComments ' dbase: Comments
' *** ------------- ***
' *** RESOURCE URLS ***
' *** ------------- ***
' varKeyNum ' dbase: Autonum Rec Key
' varSector ' dbase: Sector
' varCatg ' dbase: Category
' varCaption ' dbase: Caption
' varSuggPrice ' dbase: Status
' varURL ' dbase: URL
' varComments ' dbase: Comments
' *** RESOURCE URLS ONLY:
Dim varVendor ' dbase: Site Vendor
' *** ------- ***
' *** OT URLS ***
' *** ------- ***
' varKeyNum ' dbase: Autonum Rec Key
' varSector ' dbase: Region
' varCatg ' dbase: Category
' varCaption ' dbase: Caption
' varSuggPrice ' dbase: Status
' varURL ' dbase: URL
' varComments ' dbase: Comments
Dim var00Dash ' dbase: Flag: Int'l dash inclusion
Dim varUKDash ' dbase: Flag: UK dash inclusion
Dim varScDash ' dbase: Flag: Sc dash inclusion
Dim var5Star ' dbase: Flag: 5Star
Dim varImgURL ' dbase: URL for imbedded image
Dim varEntryDate ' dbase: Date URL was entered
' *** ------------ ***
' *** NEOPETS URLS ***
' *** ------------ ***
' varKeyNum ' dbase: Autonum Rec Key
' varSector ' dbase: Region
' varCatg ' dbase: Category
' varCaption ' dbase: Caption
' varSuggPrice ' dbase: Status
' varURL ' dbase: URL
' varComments ' dbase: Comments
Dim varit_ItemDesc ' dbase: Item desc (key)
Dim varit_ShopGrp ' dbase: Shop group
Dim variCt_Catg ' dbase: Flag: subCategory
Dim varit_SuggPrice ' dbase: Suggested price
Dim varit_Seek ' dbase: seek
Dim varit_Broken ' dbase: Flag: broken
Dim varit_Custom ' dbase: Flag: wearable
Dim varDisplSeq ' dbase: Neosite display sequence
Dim varit_ImageURL ' dbase: URL for embedded image
Dim varBrunch ' dbase: Flag
Dim varParty ' dbase: Flag
Dim varPicnic ' dbase: Flag
Dim varSpring ' dbase: Flag
Dim varValentines ' dbase: Flag
Dim varEaster ' dbase: Flag
Dim varStPats ' dbase: Flag
Dim varSummer ' dbase: Flag
Dim varLuau ' dbase: Flag
Dim var4thJuly ' dbase: Flag
Dim varAutumn ' dbase: Flag
Dim varHalloween ' dbase: Flag
Dim varThx ' dbase: Flag
Dim varXmas ' dbase: Flag
Dim varNewYear ' dbase: Flag
Dim varit_Metadata ' dbase: Metadata
' *** ------------- ***
' *** MISC STORAGE: ***
' *** ------------- ***
Dim varInactiveTbl ' Flag: table-maint inactive?
varInactiveTbl = "Y"
Dim varAtLeast1Selection ' Flag: Already built the WHERE clause?
Const conNullFlag = "@" ' flag to remember field is null
Dim varMallFlag ' Flag: NCMALL item
Dim varTemp ' reusable string work area
%>
No selections were made / No se hizo ningunas selecciones
" & CHR(10) End If sub7100ReturnMain() ' Paint RETURN button ' *** *********************************************** *** ' *** *** ' *** E N D P R O G R A M. *** ' *** *** ' *** *********************************************** *** ' *** *********************************************** *** ' *** *** ' *** S T A R T S U B R O U T I N E S *** ' *** *** ' *** *********************************************** *** ' *** ************************** *** ' *** sub1000SrvrSchema: *** ' *** Set DSN based on host *** ' *** ************************** *** Sub sub1000SrvrSchema() varServer = Request.ServerVariables("SERVER_NAME") varAdminDSNCurr = conAdminDSNTest varAdminTblNameCurr = conAdminTblNameTest varSchemaDSNCurr = conSchemaDSNTest varSchemaTblNameCurr = conSchemaTblNameTest varDataDSNCurr = conDataDSNTest varDataTblNameCurr = conDataTblNameTest xxxUseMap = conUseMapLe varBanrTextVal = conBanrTextLe varSchemaCurr = conSchemaTest sub1010GetSchema() ' Retrieve site schema If varDiagnostics = "Y" Then Response.Write "| " Response.Write "" Response.Write varBanrTextVal & " | |||
| Status: " & passStatMsg & " |
| Return to Lehua's Neopia Volver a Lehua's Neopia |