%@ LANGUAGE=VBSCRIPT %> <% Option Explicit Response.Buffer = True Response.Expires = -10000 Response.ExpiresAbsolute = #01/01/1980# Response.AddHeader "pragma","no-cache" Response.AddHeader "cache-control","private" Response.CacheControl = "no-cache" '------------------------------------------------------------------------------- ' Functions '------------------------------------------------------------------------------- function persistSelectField(byval selectName, byval fieldValue) dim reqVal reqVal = trim(cstr(request(selectName))) if reqVal = fieldValue then persistSelectField = "selected" else persistSelectField = "" end if exit function end function '------------------------------------------------------------------------------- ' Variables '------------------------------------------------------------------------------- dim make, makes, models, model, reqmake1, reqmake2 '------------------------------------------------------------------------------- ' Starting Code '------------------------------------------------------------------------------- set makes = Server.CreateObject("Scripting.Dictionary") makes.Add "ACURA", "INTEGRA|LEGEND|MDX|NSX|RL|SLX|TL" makes.Add "ALFA ROMEO", "164|GTV-6|MILANO|SPIDER" makes.Add "AM GENERAL", "HUMMER" makes.Add "AMC", "ALLIANCE|CONDORD|EAGLE|ENCORE|GTA|SPIRIT" makes.Add "AUDI", "A4|A6|A8|S4|TT" makes.Add "BERTONE", "X1/9" makes.Add "BMW", "3 SERIES|5 SERIES|645|7 SERIES|X3|X5|Z3|Z8" makes.Add "BUICK", "CENTURY|LESABRE|PARK AVENUE|REGAL|RIVERIA" makes.Add "CADILLAC", "CATERA|DEVILLE|ELDORADO|ESCALADE|SEVILLE" makes.Add "CHEVROLET", "10 PICKUP|1500 PICKUP|20 PICKUP|2500 CAB-CHASSIS|2500 PICKUP|30 CAB-CHASSIS|30 PICKUP|3500 CAB-CHASSIS|3500 PICKUP|APV|ASTRO|AVALANCHE 1/2 TON|AVALANCHE 3/4 TON|AVEO|BERETTA|BLAZER|CAB CHASSIS|CAMARO|CAVALIER|CELEBRITY|CHEVETTE|CITATION|CITATION II|CLASSIC|COLARADO|CORSICA|CORVETTE|EL CAMINO|EQUINOX|EXPRESS VAN|G-SERIES VAN|IMPALA|LUMINA|LUMINA VAN|LUV PICKUP|MALIBU|METRO|MONTE CARLO|NOVA|PRIZM|S10 PICKUP|SILVERADO 1500 PICKUP|SILVERADO 2500 CAB-CHASSIS|SILVERADO 2500 PICKUP|SILVERADO 3500 CAB-CHASSIS|SILVERADO 3500 PICKUP|SPECTRUM|SPORTVAN|SPRINT|SUBURBAN|TAHOE|TRACKER|TRAILBLAZER|VENTURE" makes.Add "CHRYSLER", "300C|300M|CIRRUS|CONCORDE|CONQUEST TSI|CORDOBA|E CLASS|EXECUTIVE|FIFTH AVENUE|GRAND VOYAGER|IMPERIAL|LASER|LEBARON|LHS|NEW YORKER|PACIFICA|PT CRUISER|SEBRING|TC|TOWN & COUNTRY|VOYAGER" makes.Add "DAEWOO", "LANOS|LEGANZA|NUBIRA" makes.Add "DAIHATSU", "CHARADE|ROCKY" makes.Add "DODGE", "024|150 PICKUP|1500 PICKUP|250 CAB-CHASSIS|250 PICKUP|2500 CAB-CHASSIS|2500 PICKUP|350 CAB-CHASSIS|350 PICKUP|3500 CAB CHASSIS|3500 PICKUP|400|600|ARIES|ARIES AMERICA|AVENGER|CARAVAN|CHALLENGER|COLT|COLT VISTA|CONQUEST|DAKOTA|DAYTONA|DIPLOMAT|DURANGO|DYNASTY|GRAND CARAVAN|INTREPID|LANCER|MAGNUM|MINI RAM VAN|MIRADA|MONACO|NEON|OMNI AMERICA|RAIDER|RAM 50 PICKUP|RAM VAN|RAM WAGON|RAMCHARGER|RAMPAGE|SHADOW|SPIRIT|STEALTH|STRATUS|VAN|VIPER" makes.Add "EAGLE", "MEDALLION|PREMIER|SUMMIT|TALON|VISION" makes.Add "FIAT", "SPIDER 2000|X1/9" makes.Add "FORD", "AEROSTAR|ASPIRE|BRONCO|BRONCO II|CAB-CHASSIS|CLUB WAGON|CONTOUR|COUNTRY SQUIRE|COURIER|CROWN VICTORIA|ECONOLINE|ESCAPE|ESCORT|EXCURSION|EXP|EXPEDITION|EXPLORER|EXPLORER SPORT TRAC|F150|F250|F350|F450|F550|F600|FAIRMONT|FESTIVA|FOCUS|FREESTAR|GRANADA|GT|LN 600|LTD|MUSTANG|PROBE|RANGER|TAURUS|TEMPO|THUNDERBIRD|WINDSTAR|ZX2" makes.Add "GEO", "METRO|PRIZM|SPECTRUM|STORM|TRACKER" makes.Add "GMC", "1500 PICKUP|2500 CAB-CHASSIS|2500 PICKUP|3500 CAB-CHASSIS|3500 PICKUP|CABALLERO|CAB-CHASSIS|CANYON|ENVOY|ENVOY XL|ENVOY XUV|JIMMY|RALLY WAGON|S15 CAB-CHASSIS|S15 JIMMY|S15 PICKUP|SAFARI|SAVANA VAN|SIERRA 1500 PICKUP|SIERRA 2500 PICKUP|SIERRA 3500 PICKUP|SONOMA|SUBURBAN|VANDURA|YUKON|YUKON XL" makes.Add "HONDA", "ACCORD|CIVIC|CR-V|DEL SOL|INSIGHT|ODYSSEY|PASSPORT|PRELUDE|S2000" makes.Add "HYUNDAI", "ACCENT|ELANTRA|EXCEL|SANTA FE|SCOUPE|SONATA|TIBURON|XG300|XG350" makes.Add "INFINITI", "G20|I30|I35|J30|M30|Q45|QX4" makes.Add "INFINITY", "QX56" makes.Add "ISUZU", "AMIGO|AXIOM|HOMBRE|I-MARK|IMPULSE|OASIS|PICKUP|RODEO|RODEO SPORT|STYLUS|TROOPER|TROOPER ii|VEHICROSS" makes.Add "JAGUAR", "S-TYPE|VANDEN PLAS|XJ SPORT|XJ SUPER|XJ12|XJ6|XJ8|XJR|XJR-S|XJS|XK8|XKR|X-TYPE" makes.Add "JEEP", "CHEROKEE|CJ|COMANCHE PICKUP|GRAND CHEROKEE|GRAND WAGONEER|J10 PICKUP|J20 PICKUP|LIBERTY|WAGONEER|WRANGLER" makes.Add "KIA", "AMANTI|OPTIMA|RIO|SEDONA|SEPHIA|SPECTRA|SPORTAGE" makes.Add "LAND ROVER", "DEFENDER 110|DEFENDER 90|DISCOVERY|DISCOVERY SERIES II|FREELANDER|RANGE ROVER" makes.Add "LEXUS", "ES 250|ES 300|ES 330|GS 300|GS 400|GS 430|IS 300|LS 400|LS 430|LX 450|LX 470|RX 300|SC 300|SC 400|SC 430" makes.Add "LINCOLN", "BLACKWOOD|CONTINENTAL|LS|MARK VI|MARK VII|MARK VIII|NAVIGATOR|TOWN CAR" makes.Add "MAZDA", "3|323|626|929|B2000|B2200|B2300|B2500|B2600|B2600I|B3000|B4000|GLC|MIATA MX-5|MILLENIA|MPV|MX-3|MX-6|NAVAJO|PROTÉGÉ|PROTEGE5|RX-7|TRIBUTE" makes.Add "MERCEDES-BENZ", "190D|190E|190E-16|240D|260E|300CD|300CE|300D|300E|300SD|300SDL|300SE|300SL|300TD|300TE|380SEC|380SEL|380SL|400E|400SEL|420SEL|500E|500SEC|500SEL|500SL|560SEC|560SEL|560SL|600SEC|600SEL|600SL|C-CLASS|CL-CLASS|CLK-CLASS|E-CLASS|G-CLASS|M-CLASS|ML-CLASS|S-CLASS|SL-CLASS|SLK-CLASS" makes.Add "MERCURY", "CAPRI|COUGAR|GRAND MARQUIS|LN7|LYNX|MARQUIS|MONTEREY|MOUNTAINEER|MYSTIQUE|SABLE|TOPAZ|TRACER|VILLAGER|ZEPHYR" makes.Add "MINI", "COOPER" makes.Add "MITSUBISHI", "3000GT|CORDIA|DIAMANTE|ECLIPSE|ENDEAVOR|EXPO|GALANT|GALANT SIGMA|LANCER|MINIVAN|MIRAGE|MONTERO|MONTERO SPORT|OUTLANDER|PICKUP|PRECIS|SIGMA|STARION|TREDIA" makes.Add "NISSAN", "200SX|240SX|300ZX|ALTIMA|AXXESS|FRONTIER|MAXIMA|MINIVAN|NX|PATHFINDER|PATHFINDER ARMADA|PICKUP|PULSAR|QUEST|SENTRA|STANZA|TITAN|XTERRA" makes.Add "OLDSMOBILE", "88|98|ACHIEVA|ALERO|AURORA|BRAVADA|CALAIS|CIERA|CUSTOM CRUISER|CUTLASS|CUTLASS CRUISER|CUTLASS SUPREME|DELTA 88|FIRENZA|INTRIGUE|LSS|OMEGA|REGENCY|SILHOUETTE|TORONADO" makes.Add "PEUGEOT", "405|504|505|604|LIBERTE" makes.Add "PININFARINA", "AZZURRA" makes.Add "PLYMOUTH", "ACCLAIM|BREEZE|CARAVELLE|COLT|COLT VISTA|CONQUEST|GRAN FURY|GRAND VOYAGER|HORIZON|LASER|NEON|PICKUP|RELIANT|SAPPORO|SUNDANCE|TURISMO|VOYAGER" makes.Add "PONTIAC", "1000|2000|6000|AZTEK|BONNEVILLE|FIERO|FIREBIRD|GRAND Am|GRAND PRIX|GTO|LEMANS|MONTANA|PARISIENNE|PHOENIX|SAFARI|SUNBIRD|SUNFIRE|TRANS SPORT|VIBE" makes.Add "PORSCHE", "911|924|928|944|968|BOXSTER" makes.Add "RENAULT", "18I|FUEGO|LECAR|SPORTWAGON" makes.Add "SAAB", "900|9000|9-2X|9-3|9-5" makes.Add "SATURN", "L100|L200|L300|LS1|LS2|LW1|LW2|LW200|LW300|SC|SC1|SC2|SL|SL1|SL2|SW1|SW2|VUE" makes.Add "SCION", "TC" makes.Add "STERLING", "825|827" makes.Add "SUBARU", "BRAT|DL|FORESTER|GL|GL-10|IMPREZA|JUSTY|LEGACY|LOYALE|OUTBACK|RX|STD|SVX|XT|XT6" makes.Add "SUZUKI", "AERIO|ESTEEM|GRAND VITARA|RENO|SAMURAI|SIDEKICK|SWIFT|VITARA|X-90|XL-7" makes.Add "TOYOTA", "4RUNNER|AVALON|CAMRY|CELICA|CELICA SUPRA|COROLLA|CRESSIDA|ECHO|HIGHLANDER|LAND CRUISER|MINIVAN|MR2|MR2 SPYDER|PASEO|PICKUP|PREVIA|PRIUS|RAV4|SEQUOIA|SIENNA|SOLARA|STARLET|SUPRA|T100|TACOMA|TERCEL|TUNDRA" makes.Add "VOLKSWAGEN", "CABRIO|CABRIOLET|CORRADO|EUROVAN|FOX|GOLF|GOLF III|GTI|JETTA|JETTA III|NEW BETTLE|NEW GOLF|NEW GTI|NEW JETTA|NEW PASSAT|PASSAT|PHAETON EE|PHAETON NEW|PHAETON W12|QUANTUM|RABBIT|SCIROCCO|VANAGON" makes.Add "VOLVO", "240|740|760|780|850|940|960|C70|COUPE|DL|GL|GLT|S40|S60|S70|S80|S90|TURBO|V40|V70|V90" makes.Add "YUGO", "CABRIO|GV|GVL|GVS|GVX|HATCHBACK" reqmake1 = trim(cstr(request("make_1"))) reqmake2 = trim(cstr(request("make_2"))) %>