LehuaNet Neopets: Seek Items

--> <% 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 %> <% ' *** ****************************************************** *** ' *** *** ' *** S T A R T P R O G R A M *** ' *** *** ' *** ****************************************************** *** sub1000SrvrSchema() ' Set DSN & schema per host sub1100GetInput() ' Get incoming variables sub1200MakeJScript() ' Paint JScript functions Response.Write "" & CHR(10) & CHR(10) sub1300BodyStmt() ' Write BODY statement & set FONT sub2000DataSQL() ' Construct dbase SQL If varAtLeast1Selection = "Y" Then sub2100GetDataRSet() ' Set/Open/Get recordset sub2500TableTop() ' Paint top of FORM and table sub3000PaintRows() ' Paint the recset into grid rows sub6000CloseTbl() ' Close table & FORM Else Response.Write "

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 "
At sub1000SrvrSchema:" sub8100DiagSchema() ' Display schema End If End Sub ' *** ********************* *** ' *** sub1010GetSchema: *** ' *** Retrieve Schema *** ' *** ********************* *** Sub sub1010GetSchema() varSQLtext_k = "SELECT * FROM " & varSchemaTblNameCurr & " WHERE Sc_Name_of_Schema = '" & varSchemaCurr & "';" If varDiagnostics = "Y" Then Response.Write "
" & varSQLtext_k & CHR(10) End If If varDiagnostics = "Y" Then Response.Write "
Ready to set Schema recordset (" & varSchemaDSNCurr & ")" & CHR(10) End If Set objRSk=server.createobject("ADODB.recordset") objRSk.open varSQLtext_k, varSchemaDSNCurr varBGImgURL = objRSk("Sc_BG_Img_URL") varPageBG = objRSk("Sc_Page_BG") varPageTx = objRSk("Sc_Page_Tx") varBanrImgURL = objRSk("Sc_Banr_Img_URL") varBanrBG = objRSk("Sc_Banr_BG") varBanrTx = objRSk("Sc_Banr_Tx") varHdrBG = objRSk("Sc_Hdr_BG") varHdrTx = objRSk("Sc_Hdr_Tx") varCellBG = objRSk("Sc_Cell_BG") varCellTx = objRSk("Sc_Cell_Tx") varLinkTx = objRSk("Sc_Link_Tx") varVLinkTx = objRSk("Sc_VLink_Tx") varALinkTx = objRSk("Sc_ALink_Tx") If IsNull(varKeyNum) or varKeyNum = "" Then varKeyNum = 0 End If End Sub ' *** ************************** *** ' *** sub1100GetInput: %$% *** ' *** Store incoming fields *** ' *** ************************** *** Sub sub1100GetInput() sub1110FORMin() ' Pull input via FORM-in sub1120URLin() ' Pull input via URL-tail If varDiagnostics = "Y" Then Response.Write "

Pre null-fill-in:" & CHR(10) sub8000Diagnostics() End If If IsNull(passCaller) Or passCaller = "" Then passCaller = conNullFlag End If If IsNull(passTblName) Or passTblName = "" Then passTblName = conNullFlag Else sub1130TblVars() ' Set variables per table End If If IsNull(passSector) Or passSector = "" Then passSector = conNullFlag End If If IsNull(passBoxCash) Or passBoxCash = "" Then passBoxCash = conNullFlag End If If IsNull(passBoxCustom) Or passBoxCustom = "" Then passBoxCustom = conNullFlag End If If IsNull(passShopGrp) Or passShopGrp = "" Then passShopGrp = conNullFlag End If If IsNull(passSubcatg) Or passSubcatg = "" Then passSubcatg = conNullFlag End If If IsNull(passTheme) Or passTheme = "" Then passTheme = conNullFlag End If ' If IsNull(passSeek) Or passSeek = "" Then ' passSeek = conNullFlag ' Response.Write "

passSeek is Null" & CHR(10) ' Else ' passSeek = "Checked" ' Response.Write "

passSeek NOT Null" & CHR(10) ' End If If passSeek = "on" Then varit_Seek = "on" Else varit_Seek = "off" End If If IsNull(passMetaSingle) or passMetaSingle = "" Then passMetaSingle = conNullFlag End If If IsNull(passStatMsg) Or passStatMsg = "" Then passStatMsg = conNullFlag End If If varDiagnostics = "Y" Then sub8000Diagnostics() ' Display fields End If End Sub ' *** ************************** *** ' *** sub1110FORMin: *** ' *** Get input via FORM-in *** ' *** ************************** *** Sub sub1110FORMin() If varDiagnostics = "Y" Then Response.Write "

Request.Form(" & Request.Form & ")" & CHR(10) for i = 1 to Request.Form.Count Response.Write "
Request.Form(" & i & ")" & Request.Form( i ) & CHR(10) next End If Set passCaller = Request.Form("passCaller") Set passTblName = Request.Form("passTblName") Set passSector = Request.Form("passSector") Set passBoxCash = Request.Form("passBoxCash") Set passBoxCustom = Request.Form("passBoxCustom") Set passShopGrp = Request.Form("passShopGrp") Set passSubcatg = Request.Form("passSubcatg") Set passTheme = Request.Form("passTheme") Set passKeyNum = Request.Form("passKeyNum") Set passMetaSingle = Request.Form("passMetaSingle") If request.form("passSeek")="on" then varit_Seek = "on" Else varit_Seek = conNullFlag End If ' Set passSeek = Request.Form("passSeek") Set passStatMsg = Request.Form("passStatMsg") If varDiagnostics = "Y" Then Response.Write "

Request.Form(" & Request.Form & ")" & CHR(10) for i = 1 to Request.Form.Count Response.Write "
Request.Form(" & i & ")" & Request.Form( i ) & CHR(10) next End If End Sub ' *** ************************** *** ' *** sub1120URLin: *** ' *** Get input via URL-tail *** ' *** ************************** *** Sub sub1120URLin() If varDiagnostics = "Y" Then Response.Write "

Request.QueryString(" & Request.QueryString & ")" & CHR(10) for i = 1 to Request.QueryString.Count Response.Write "
Request.QueryString(" & i & ")" & Request.QueryString( i ) & CHR(10) next End If If IsNull(passCaller) Or passCaller = "" Then passCaller = Request.QueryString("passCaller") End If If IsNull(passTblName) Or passTblName = "" Then passTblName = Request.QueryString("passTblName") End If If IsNull(passSector) Or passSector = "" Then passSector = Request.QueryString("passSector") End If If IsNull(passBoxCash) Or passBoxCash = "" Then passBoxCash = Request.QueryString("passBoxCash") End If If IsNull(passBoxCustom) Or passBoxCustom = "" Then passBoxCustom = Request.QueryString("passBoxCustom") End If If IsNull(passShopGrp) Or passShopGrp = "" Then passShopGrp = Request.QueryString("passShopGrp") End If If IsNull(passSubcatg) Or passSubcatg = "" Then passSubcatg = Request.QueryString("passSubcatg") End If If IsNull(passTheme) Or passTheme = "" Then passTheme = Request.QueryString("passTheme") End If If IsNull(passMetaSingle) or passMetaSingle = "" Then passMetaSingle = Request.QueryString("passMetaSingle") End If If IsNull(passKeyNum) Or passKeyNum = "" Then passKeyNum = Request.QueryString("passKeyNum") End If If IsNull(passSeek) Or passSeek = "" Then passSeek = Request.QueryString("passSeek") If passSeek="on" then varit_Seek = "on" Else varit_Seek = conNullFlag End If End If If IsNull(passStatMsg) Or passStatMsg = "" Then passStatMsg = Request.QueryString("passStatMsg") End If End Sub ' *** *************************** *** ' *** sub1130TblVars: %$% *** ' *** Set variables per table *** ' *** *************************** *** Sub sub1130TblVars() varDataTblNameCurr = passTblName varDataDSNCurr = "dsn=lehuan.siteadmin" varSectorFldName = "it_ItemDesc" varCatgFldName = conNullFlag varSortKey1 = conNullFlag varSortKey2 = conNullFlag varSortKey3 = conNullFlag varActionDest = "Data_Mod_Neo.asp" varInactiveTbl = "N" varTemp = Mid(varDataDSNCurr, 5, 4) If varDiagnostics = "Y" Then Response.Write "

varTemp(" & varTemp & ")

" & CHR(10) End If If varDiagnostics = "Y" Then Response.Write "

At end of sub1130TblVars:" & CHR(10) sub8000Diagnostics() End If End Sub ' *** **************************** *** ' *** sub1200MakeJScript: *** ' *** Paint JScript functions *** ' *** **************************** *** Sub sub1200MakeJScript() Response.Write "" & CHR(10) & CHR(10) End Sub ' *** ************************** *** ' *** sub1300BodyStmt: *** ' *** Setup BODY parms *** ' *** and set FONT *** ' *** ************************** *** Sub sub1300BodyStmt() Response.Write "" Response.Write "" Response.Write CHR(10) & CHR(10) Response.Write "" & CHR(10) & CHR(10) If passStatMsg <> conNullFlag Then Response.Write "" & CHR(10) & CHR(10) End If Response.Write "

" Response.Write "" Response.Write varBanrTextVal & "
Status: " & passStatMsg & "

" & CHR(10) & CHR(10) End Sub ' *** ******************** *** ' *** sub2000DataSQL: *** ' *** Construct SQL *** ' *** ******************** *** Sub sub2000DataSQL() ' *** EXAMPLE: *** ' SELECT * FROM conDataTblNameCurr ' WHERE Tc_Sector = 'whatever' ORDER BY Tc_Sector, Tc_Catg, Tc_Caption; ' **************** ' *** Standard SQL Frontend: varSQLtext_t = "SELECT * FROM " & conDataTblNameCurr & " WHERE " ' *** Sought items only? If varit_Seek = "on" Then varSQLtext_t = varSQLtext_t & "(it_Seek = 1)" Else ' *** Variable selection/s: varAtLeast1Selection = "N" If passSector <> conNullFlag Then varSQLtext_t = varSQLtext_t & "(" & varSectorFldName & " LIKE '%" & passSector & "%')" varAtLeast1Selection = "Y" End If If passBoxCash = "Y" Then If varAtLeast1Selection = "Y" Then varSQLtext_t = varSQLtext_t & " AND " End IF varSQLtext_t = varSQLtext_t & "(it_Metadata NOT LIKE '%NCMALL%')" varAtLeast1Selection = "Y" End If If passBoxCustom = "Y" Then If varAtLeast1Selection = "Y" Then varSQLtext_t = varSQLtext_t & " AND " End IF varSQLtext_t = varSQLtext_t & "((it_Custom = 'U') Or (it_Custom = 'Y'))" varAtLeast1Selection = "Y" End If If passShopGrp <> conNullFlag Then If varAtLeast1Selection = "Y" Then varSQLtext_t = varSQLtext_t & " AND " End IF varSQLtext_t = varSQLtext_t & "(it_ShopGrp " & " LIKE '%" & passShopGrp & "%')" varAtLeast1Selection = "Y" End If If passSubcatg <> conNullFlag Then If varAtLeast1Selection = "Y" Then varSQLtext_t = varSQLtext_t & " AND " End IF varSQLtext_t = varSQLtext_t & "(iCt_Catg " & " LIKE '%" & passSubcatg & "%')" varAtLeast1Selection = "Y" End If If passMetaSingle <> conNullFlag Then If varAtLeast1Selection = "Y" Then varSQLtext_t = varSQLtext_t & " AND " End IF varSQLtext_t = varSQLtext_t & "(it_Metadata " & " LIKE '%" & passMetaSingle & "%')" varAtLeast1Selection = "Y" End If If passTheme <> conNullFlag Then If varAtLeast1Selection = "Y" Then varSQLtext_t = varSQLtext_t & " AND " End IF varSQLtext_t = varSQLtext_t & "(" & passTheme & "= True)" varAtLeast1Selection = "Y" End If End If ' *** End variable selections; start standard tail end: varSQLtext_t = varSQLtext_t & " ORDER BY it_ItemDesc;" If varDiagnostics = "Y" Then Response.Write "

(" & varSQLtext_t & ")" & CHR(10) Response.Write "
varDataDSNCurr(" & varDataDSNCurr & ")" & CHR(10) & CHR(10) End If End Sub ' *** ******************** *** ' *** sub2100GetDataRSet: *** ' *** Get recordset *** ' *** ******************** *** Sub sub2100GetDataRSet() If varDiagnostics = "Y" Then Response.Write "
Ready to set remote recordset" & CHR(10) End If Set objRSt=server.createobject("ADODB.recordset") objRSt.open varSQLtext_t, varDataDSNcurr If varDiagnostics = "Y" Then Response.Write "
Finished set recordset" & CHR(10) End If End Sub ' *** ***************************** *** ' *** sub2500TableTop: *** ' *** Top of FORM and table *** ' *** (Including column headers *** ' *** ***************************** *** Sub sub2500TableTop() Response.Write "
" Response.Write "Note that the "Suggested NP" is very approximate -- prices in Neopia change all the time.
" Response.Write "Observar que "Suggested NP" sea muy aproximado -- los precios en Neopia cambian continuamente.
" Response.Write "
" ' *** -------------- *** ' *** HIDDEN FIELDS: *** ' *** -------------- *** Response.Write "" & CHR(10) & CHR(10) Response.Write "" & CHR(10) & CHR(10) Response.Write "" & CHR(10) & CHR(10) Response.Write "" Response.Write CHR(10) & CHR(10) ' *** -------------- *** ' *** Action Headers *** ' *** -------------- *** Response.Write "" & CHR(10) ' *** -------------- *** ' *** *** ' *** -------------- *** Response.Write "" & CHR(10) Response.Write "" & CHR(10) Response.Write "" & CHR(10) ' *** -------------- *** ' *** Seek *** ' *** -------------- *** Response.Write "" & CHR(10) Response.Write "" & CHR(10) Response.Write "" & CHR(10) Response.Write "" & CHR(10) Response.Write "" & CHR(10) Response.Write "" & CHR(10) & CHR(10) End Sub ' *** ******************************* *** ' *** sub3000PaintRows: *** ' *** Paint the recset into rows *** ' *** ******************************* *** Sub sub3000PaintRows() do while NOT objRSt.EOF sub3100GetFlds() ' Get fields from individual record sub3200EachRow() ' Paint each individual row objRSt.MoveNext Loop End Sub ' *** **************************** *** ' *** sub3100GetFlds: %$% *** ' *** Pull fields in from row *** ' *** **************************** *** Sub sub3100GetFlds() varKeyNum = objRSt("it_RecNbr") varSector = objRSt("it_ItemDesc") varit_ShopGrp = objRSt("it_ShopGrp") ' varCaption = objRSt("Tc_Caption") varit_Seek = objRSt("it_Seek") varit_Broken = objRSt("it_Broken") varit_Custom = objRSt("it_Custom") varSuggPrice = objRSt("it_SuggPrice") ' varComments = objRSt("Tc_Comments") varURL = objRSt("it_ImageURL") varValentines = objRSt("Valentines") ' varEntryDate = objRSt("Tc_Date_Entered") varit_Metadata = objRSt("it_Metadata") If IsNull(varKeyNum) or varKeyNum = "" Then varKeyNum = 0 End If If IsNull(varSector) or varSector = "" Then varSector = conNullFlag End If If IsNull(varit_ShopGrp) or varit_ShopGrp = "" Then varit_ShopGrp = conNullFlag End If If IsNull(varit_Broken) or varit_Broken = "" Then varit_Broken = conNullFlag End If If IsNull(varit_Custom) or varit_Custom = "" Then varit_Custom = conNullFlag Else If varit_Custom = "U" Then varit_Custom = "?" End If End If If IsNull(varValentines) or varValentines = "" Then varValentines = conNullFlag End If If IsNull(varCaption) or varCaption = "" Then varCaption = " " End If If IsNull(varSuggPrice) or varSuggPrice = "" Then varSuggPrice = conNullFlag End If If IsNull(varit_Seek) or varit_Seek = "" Then varit_Seek = conNullFlag End If If IsNull(varComments) or varComments = "" Then varComments = conNullFlag End If ' If IsNull(varURL) or varURL = "" Then ' varURL = conNullFlag ' End If If IsNull(varURL) or varURL = "" Then varURL = conNullFlag Else varURL = "" End If If IsNull(varit_Metadata) or varit_Metadata = "" Then varit_Metadata = conNullFlag varMallFlag = 0 Else VarMallFlag = InStr(varit_Metadata,"NCMALL") End If End Sub ' *** ************************* *** ' *** sub3200EachRow: *** ' *** Paint individual row *** ' *** ************************* *** Sub sub3200EachRow() Response.Write "" & CHR(10) Response.Write "" & CHR(10) ' Item Description: If varMallFlag = 0 Then Response.Write "" & CHR(10) Else Response.Write "" & CHR(10) End If Response.Write "" & CHR(10) Response.Write "" & CHR(10) Response.Write "" & CHR(10) If varit_Broken = True Then Response.Write "" & CHR(10) Else Response.Write "" & CHR(10) End If If varit_Custom = "Y" Then Response.Write "" & CHR(10) Else Response.Write "" & CHR(10) End If Response.Write "" & CHR(10) Response.Write "" & CHR(10) & CHR(10) Response.Write "" & CHR(10) & CHR(10) End Sub ' *** *********************** *** ' *** sub6000CloseTbl: *** ' *** Close table & FORM *** ' *** *********************** *** Sub sub6000CloseTbl() Response.Write "
" Response.Write "(Not Available)
Action " Response.Write "" Response.Write "Item Name Shop Type " Response.Write "Suggested
NP* Special
Seek Brkn Wear Comments Image
" & varSector & " " & varSector & " " Response.Write varit_ShopGrp & " " & varSuggPrice & " " & varit_Seek & " YES " & varit_Broken & " Y " & varit_Custom & " " & Left(varit_Metadata, 15) & " " & varURL & "
" & CHR(10) & "
" & CHR(10) & CHR(10) End Sub ' *** *************************** *** ' *** sub7000Abort: *** ' *** Abort process, send msg *** ' *** *************************** *** Sub sub7000Abort() Response.Write "
Invalid parameter --
Request was not executed
" & CHR(10) & CHR(10) sub8000Diagnostics() End Sub ' *** ************************ *** ' *** sub7100ReturnMain: *** ' *** Paint return to Main *** ' *** ************************ *** Sub sub7100ReturnMain() Response.Write "
" & CHR(10) Response.Write "" & CHR(10) Response.Write "
Return to Lehua's Neopia
Volver a Lehua's Neopia
" & CHR(10) & CHR(10) End Sub ' *** ***************************** *** ' *** sub8000Diagnostics: *** ' *** Diagnostics: Show fields *** ' *** ***************************** *** Sub sub8000Diagnostics() Response.Write "

sub8000Diagnostics:" Response.Write "
varServer(" & varServer & ")" Response.Write ", passCaller(" & passCaller & ")" Response.Write ", passTblName(" & passTblName & ")" Response.Write ", passSector(" & passSector & ")" Response.Write ", passBoxCash(" & passBoxCash & ")" Response.Write ", passBoxCustom(" & passBoxCustom & ")" Response.Write ", varit_Custom(" & varit_Custom & ")" Response.Write ", passShopGrp(" & passShopGrp & ")" Response.Write ", passSubcatg(" & passSubcatg & ")" Response.Write ", passTheme(" & passTheme & ")" Response.Write ", passSeek(" & passSeek & ")" Response.Write ", varit_Seek(" & varit_Seek & ")" Response.Write ", varit_Broken(" & varit_Broken & ")" Response.Write ", varit_ShopGrp(" & varit_ShopGrp & ")" Response.Write ", varValentines(" & varValentines & ")" Response.Write ", passMetaSingle(" & passMetaSingle & ")" Response.Write ", passKeyNum(" & passKeyNum & ")" Response.Write ", passStatMsg(" & passStatMsg & ")" & CHR(10) & CHR(10) Response.Write "

varDataTblNameCurr(" & varDataTblNameCurr & ")" Response.Write ", varDataDSNCurr(" & varDataDSNCurr & ")" Response.Write ", varSector(" & varSector & ")" Response.Write ", varSortKey1(" & varSortKey1 & ")" Response.Write ", varSortKey2(" & varSortKey2 & ")" Response.Write ", varSortKey3(" & varSortKey3 & ")" & CHR(10) & CHR(10) Response.Write "

varCatg(" & varCatg & ")" Response.Write ", varCaption(" & varCaption & ")" & CHR(10) & CHR(10) End Sub ' *** ***************************** *** ' *** sub8100DiagSchema: *** ' *** Diagnostics: Show schema *** ' *** ***************************** *** Sub sub8100DiagSchema() Response.Write "

varHdrBG(" & varHdrBG & ")" Response.Write ", varDataDSNCurr(" & varDataDSNCurr & ")" Response.Write ", varHdrTx(" & varHdrTx & ")" & CHR(10) & CHR(10) End Sub ' *** *********************************************** *** ' *** *** ' *** E N D S U B R O U T I N E S *** ' *** *** ' *** *********************************************** *** %>

Item Desc (You can use any part of the item's name, such as "gnome" or "play pen "):
Nombre del artículo (Puedes utilizar cualquier parte del nombre, en inglés, tal como "gnome" o"play pen" ):
Omit NCMall/Cash?         Wearable only?

Shop Group / Typo de Tienda:   (Not available / Inasequible:) Sought Only?
SubCategory:
Theme / Tema:
  (Not available / Inasequible :) Colour Range / Gama del Color:

Metadata / Metadatos:
Single Keyword / Sola Palabra-Clave: Ex: "multi" or "white" or "anim"
  (Not available / Inasequible :) Multiple Keywords:

varTemp(" & varTemp & ")

Invalid parameter --Request was not executed

Invalid parameter --
Request was not executed