home *** CD-ROM | disk | FTP | other *** search
| MIME HTML Archive | 2002-11-04 | 34.2 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
browse contents |
view JSON data
|
view as text
This file was processed as: MIME HTML Archive
(archive/mimeHTMLArchive).
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| dexvert
| MIME HTML Archive (archive/mimeHTMLArchive)
| magic
| Supported |
| 100%
| dexvert
| Newsgroup Content (archive/news)
| magic
| Supported |
| 100%
| dexvert
| Internet Message Format (text/imf)
| magic
| Supported |
| 10%
| dexvert
| Mailbox/MIME Entity (archive/mbox)
| magic
| Supported |
| 1%
| dexvert
| Text File (text/txt)
| fallback
| Supported |
| 100%
| file
| news or mail text
| default
| |
| 99%
| file
| HTML document text
| default (weak)
| |
| 98%
| file
| exported SGML document text
| default
| |
| 97%
| file
| exported SGML document, ASCII text, with CRLF line terminators
| default
| |
| 88%
| TrID
| MIME HTML archive format
| default
| |
| 11%
| TrID
| E-Mail message (Var. 2)
| default
| |
| 100%
| checkBytes
| Printable ASCII
| default
| |
| 100%
| perlTextCheck
| Likely Text (Perl)
| default
| |
| 100%
| siegfried
| x-fmt/429 MHTML
| default
| |
| 100%
| gt2
| HTML (Hyper Text Markup Language) Datei
| default
| |
| 100%
| detectItEasy
| Format: Plain text[CRLF]
| default
| |
| 100%
| xdgMime
| message/rfc822
| default (weak)
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 46 72 6f 6d 3a 20 3c 53 | 61 76 65 64 20 62 79 20 |From: <S|aved by |
|00000010| 4d 69 63 72 6f 73 6f 66 | 74 20 49 6e 74 65 72 6e |Microsof|t Intern|
|00000020| 65 74 20 45 78 70 6c 6f | 72 65 72 20 35 3e 0d 0a |et Explo|rer 5>..|
|00000030| 53 75 62 6a 65 63 74 3a | 20 43 6f 6e 74 65 6e 74 |Subject:| Content|
|00000040| 20 50 61 67 65 0d 0a 44 | 61 74 65 3a 20 54 68 75 | Page..D|ate: Thu|
|00000050| 2c 20 31 32 20 4a 75 6c | 20 32 30 30 31 20 31 36 |, 12 Jul| 2001 16|
|00000060| 3a 32 34 3a 34 32 20 2d | 30 34 30 30 0d 0a 4d 49 |:24:42 -|0400..MI|
|00000070| 4d 45 2d 56 65 72 73 69 | 6f 6e 3a 20 31 2e 30 0d |ME-Versi|on: 1.0.|
|00000080| 0a 43 6f 6e 74 65 6e 74 | 2d 54 79 70 65 3a 20 6d |.Content|-Type: m|
|00000090| 75 6c 74 69 70 61 72 74 | 2f 72 65 6c 61 74 65 64 |ultipart|/related|
|000000a0| 3b 0d 0a 09 62 6f 75 6e | 64 61 72 79 3d 22 2d 2d |;...boun|dary="--|
|000000b0| 2d 2d 3d 5f 4e 65 78 74 | 50 61 72 74 5f 30 30 30 |--=_Next|Part_000|
|000000c0| 5f 30 30 30 30 5f 30 31 | 43 31 30 41 45 46 2e 32 |_0000_01|C10AEF.2|
|000000d0| 37 39 42 33 38 37 30 22 | 3b 0d 0a 09 74 79 70 65 |79B3870"|;...type|
|000000e0| 3d 22 6d 75 6c 74 69 70 | 61 72 74 2f 61 6c 74 65 |="multip|art/alte|
|000000f0| 72 6e 61 74 69 76 65 22 | 0d 0a 58 2d 4d 69 6d 65 |rnative"|..X-Mime|
|00000100| 4f 4c 45 3a 20 50 72 6f | 64 75 63 65 64 20 42 79 |OLE: Pro|duced By|
|00000110| 20 4d 69 63 72 6f 73 6f | 66 74 20 4d 69 6d 65 4f | Microso|ft MimeO|
|00000120| 4c 45 20 56 35 2e 35 30 | 2e 34 35 32 32 2e 31 32 |LE V5.50|.4522.12|
|00000130| 30 30 0d 0a 0d 0a 54 68 | 69 73 20 69 73 20 61 20 |00....Th|is is a |
|00000140| 6d 75 6c 74 69 2d 70 61 | 72 74 20 6d 65 73 73 61 |multi-pa|rt messa|
|00000150| 67 65 20 69 6e 20 4d 49 | 4d 45 20 66 6f 72 6d 61 |ge in MI|ME forma|
|00000160| 74 2e 0d 0a 0d 0a 2d 2d | 2d 2d 2d 2d 3d 5f 4e 65 |t.....--|----=_Ne|
|00000170| 78 74 50 61 72 74 5f 30 | 30 30 5f 30 30 30 30 5f |xtPart_0|00_0000_|
|00000180| 30 31 43 31 30 41 45 46 | 2e 32 37 39 42 33 38 37 |01C10AEF|.279B387|
|00000190| 30 0d 0a 43 6f 6e 74 65 | 6e 74 2d 54 79 70 65 3a |0..Conte|nt-Type:|
|000001a0| 20 74 65 78 74 2f 63 73 | 73 3b 0d 0a 09 63 68 61 | text/cs|s;...cha|
|000001b0| 72 73 65 74 3d 22 69 73 | 6f 2d 38 38 35 39 2d 31 |rset="is|o-8859-1|
|000001c0| 22 0d 0a 43 6f 6e 74 65 | 6e 74 2d 54 72 61 6e 73 |"..Conte|nt-Trans|
|000001d0| 66 65 72 2d 45 6e 63 6f | 64 69 6e 67 3a 20 71 75 |fer-Enco|ding: qu|
|000001e0| 6f 74 65 64 2d 70 72 69 | 6e 74 61 62 6c 65 0d 0a |oted-pri|ntable..|
|000001f0| 43 6f 6e 74 65 6e 74 2d | 4c 6f 63 61 74 69 6f 6e |Content-|Location|
|00000200| 3a 20 68 74 74 70 3a 2f | 2f 63 72 6d 2f 63 6f 6d |: http:/|/crm/com|
|00000210| 6d 65 6e 63 65 72 6d 77 | 65 62 6c 6f 6f 6b 75 70 |mencermw|eblookup|
|00000220| 2f 63 73 73 2f 63 6f 6d | 6d 65 6e 63 65 52 4d 57 |/css/com|menceRMW|
|00000230| 65 62 48 65 61 64 65 72 | 2e 63 73 73 0d 0a 0d 0a |ebHeader|.css....|
|00000240| 48 54 4d 4c 20 7b 0d 0a | 09 46 4f 4e 54 2d 46 41 |HTML {..|.FONT-FA|
|00000250| 4d 49 4c 59 3a 20 56 65 | 72 64 61 6e 61 2c 20 41 |MILY: Ve|rdana, A|
|00000260| 72 69 61 6c 2c 20 48 65 | 6c 76 65 74 69 63 61 3b |rial, He|lvetica;|
|00000270| 20 42 41 43 4b 47 52 4f | 55 4e 44 2d 43 4f 4c 4f | BACKGRO|UND-COLO|
|00000280| 52 3a 20 6e 61 76 79 0d | 0a 7d 0d 0a 41 2e 52 4d |R: navy.|.}..A.RM|
|00000290| 48 65 61 64 65 72 4c 69 | 6e 6b 52 65 64 20 7b 0d |HeaderLi|nkRed {.|
|000002a0| 0a 09 46 4f 4e 54 2d 53 | 49 5a 45 3a 20 38 70 74 |..FONT-S|IZE: 8pt|
|000002b0| 3b 20 43 55 52 53 4f 52 | 3a 20 68 61 6e 64 3b 20 |; CURSOR|: hand; |
|000002c0| 43 4f 4c 4f 52 3a 20 72 | 65 64 3b 20 46 4f 4e 54 |COLOR: r|ed; FONT|
|000002d0| 2d 46 41 4d 49 4c 59 3a | 20 56 65 72 64 61 6e 61 |-FAMILY:| Verdana|
|000002e0| 2c 20 41 72 69 61 6c 2c | 20 3d 0d 0a 48 65 6c 76 |, Arial,| =..Helv|
|000002f0| 65 74 69 63 61 3b 20 54 | 45 58 54 2d 44 45 43 4f |etica; T|EXT-DECO|
|00000300| 52 41 54 49 4f 4e 3a 20 | 75 6e 64 65 72 6c 69 6e |RATION: |underlin|
|00000310| 65 0d 0a 7d 0d 0a 41 2e | 52 4d 48 65 61 64 65 72 |e..}..A.|RMHeader|
|00000320| 4c 69 6e 6b 59 65 6c 6c | 6f 77 20 7b 0d 0a 09 46 |LinkYell|ow {...F|
|00000330| 4f 4e 54 2d 53 49 5a 45 | 3a 20 38 70 74 3b 20 43 |ONT-SIZE|: 8pt; C|
|00000340| 55 52 53 4f 52 3a 20 68 | 61 6e 64 3b 20 43 4f 4c |URSOR: h|and; COL|
|00000350| 4f 52 3a 20 79 65 6c 6c | 6f 77 3b 20 46 4f 4e 54 |OR: yell|ow; FONT|
|00000360| 2d 46 41 4d 49 4c 59 3a | 20 56 65 72 64 61 6e 61 |-FAMILY:| Verdana|
|00000370| 2c 20 3d 0d 0a 41 72 69 | 61 6c 2c 20 48 65 6c 76 |, =..Ari|al, Helv|
|00000380| 65 74 69 63 61 3b 20 54 | 45 58 54 2d 44 45 43 4f |etica; T|EXT-DECO|
|00000390| 52 41 54 49 4f 4e 3a 20 | 75 6e 64 65 72 6c 69 6e |RATION: |underlin|
|000003a0| 65 0d 0a 7d 0d 0a 41 2e | 52 4d 48 65 61 64 65 72 |e..}..A.|RMHeader|
|000003b0| 4c 69 6e 6b 42 6c 75 65 | 20 7b 0d 0a 09 46 4f 4e |LinkBlue| {...FON|
|000003c0| 54 2d 53 49 5a 45 3a 20 | 38 70 74 3b 20 43 55 52 |T-SIZE: |8pt; CUR|
|000003d0| 53 4f 52 3a 20 68 61 6e | 64 3b 20 43 4f 4c 4f 52 |SOR: han|d; COLOR|
|000003e0| 3a 20 62 6c 75 65 3b 20 | 46 4f 4e 54 2d 46 41 4d |: blue; |FONT-FAM|
|000003f0| 49 4c 59 3a 20 56 65 72 | 64 61 6e 61 2c 20 41 72 |ILY: Ver|dana, Ar|
|00000400| 69 61 6c 2c 20 3d 0d 0a | 48 65 6c 76 65 74 69 63 |ial, =..|Helvetic|
|00000410| 61 3b 20 54 45 58 54 2d | 44 45 43 4f 52 41 54 49 |a; TEXT-|DECORATI|
|00000420| 4f 4e 3a 20 75 6e 64 65 | 72 6c 69 6e 65 0d 0a 7d |ON: unde|rline..}|
|00000430| 0d 0a 54 41 42 4c 45 2e | 52 4d 48 65 61 64 65 72 |..TABLE.|RMHeader|
|00000440| 54 61 62 6c 65 20 7b 0d | 0a 09 46 4f 4e 54 2d 53 |Table {.|..FONT-S|
|00000450| 49 5a 45 3a 20 38 70 74 | 3b 20 46 4f 4e 54 2d 46 |IZE: 8pt|; FONT-F|
|00000460| 41 4d 49 4c 59 3a 20 56 | 65 72 64 61 6e 61 2c 20 |AMILY: V|erdana, |
|00000470| 41 72 69 61 6c 2c 20 48 | 65 6c 76 65 74 69 63 61 |Arial, H|elvetica|
|00000480| 0d 0a 7d 0d 0a 0d 0a 2d | 2d 2d 2d 2d 2d 3d 5f 4e |..}....-|-----=_N|
|00000490| 65 78 74 50 61 72 74 5f | 30 30 30 5f 30 30 30 30 |extPart_|000_0000|
|000004a0| 5f 30 31 43 31 30 41 45 | 46 2e 32 37 39 42 33 38 |_01C10AE|F.279B38|
|000004b0| 37 30 0d 0a 43 6f 6e 74 | 65 6e 74 2d 54 79 70 65 |70..Cont|ent-Type|
|000004c0| 3a 20 6d 75 6c 74 69 70 | 61 72 74 2f 61 6c 74 65 |: multip|art/alte|
|000004d0| 72 6e 61 74 69 76 65 3b | 0d 0a 09 62 6f 75 6e 64 |rnative;|...bound|
|000004e0| 61 72 79 3d 22 2d 2d 2d | 2d 3d 5f 4e 65 78 74 50 |ary="---|-=_NextP|
|000004f0| 61 72 74 5f 30 30 31 5f | 30 30 30 33 5f 30 31 43 |art_001_|0003_01C|
|00000500| 31 30 41 45 46 2e 32 37 | 39 46 43 43 35 30 22 0d |10AEF.27|9FCC50".|
|00000510| 0a 0d 0a 0d 0a 2d 2d 2d | 2d 2d 2d 3d 5f 4e 65 78 |.....---|---=_Nex|
|00000520| 74 50 61 72 74 5f 30 30 | 31 5f 30 30 30 33 5f 30 |tPart_00|1_0003_0|
|00000530| 31 43 31 30 41 45 46 2e | 32 37 39 46 43 43 35 30 |1C10AEF.|279FCC50|
|00000540| 0d 0a 43 6f 6e 74 65 6e | 74 2d 54 79 70 65 3a 20 |..Conten|t-Type: |
|00000550| 74 65 78 74 2f 68 74 6d | 6c 3b 0d 0a 09 63 68 61 |text/htm|l;...cha|
|00000560| 72 73 65 74 3d 22 57 69 | 6e 64 6f 77 73 2d 31 32 |rset="Wi|ndows-12|
|00000570| 35 32 22 0d 0a 43 6f 6e | 74 65 6e 74 2d 54 72 61 |52"..Con|tent-Tra|
|00000580| 6e 73 66 65 72 2d 45 6e | 63 6f 64 69 6e 67 3a 20 |nsfer-En|coding: |
|00000590| 71 75 6f 74 65 64 2d 70 | 72 69 6e 74 61 62 6c 65 |quoted-p|rintable|
|000005a0| 0d 0a 43 6f 6e 74 65 6e | 74 2d 4c 6f 63 61 74 69 |..Conten|t-Locati|
|000005b0| 6f 6e 3a 20 68 74 74 70 | 3a 2f 2f 63 72 6d 2f 63 |on: http|://crm/c|
|000005c0| 6f 6d 6d 65 6e 63 65 72 | 6d 77 65 62 6c 6f 6f 6b |ommencer|mweblook|
|000005d0| 75 70 2f 0d 0a 0d 0a 3c | 21 44 4f 43 54 59 50 45 |up/....<|!DOCTYPE|
|000005e0| 20 48 54 4d 4c 20 50 55 | 42 4c 49 43 20 22 2d 2f | HTML PU|BLIC "-/|
|000005f0| 2f 57 33 43 2f 2f 44 54 | 44 20 48 54 4d 4c 20 34 |/W3C//DT|D HTML 4|
|00000600| 2e 30 20 54 72 61 6e 73 | 69 74 69 6f 6e 61 6c 2f |.0 Trans|itional/|
|00000610| 2f 45 4e 22 3e 0d 0a 3c | 48 54 4d 4c 3e 3c 48 45 |/EN">..<|HTML><HE|
|00000620| 41 44 3e 3c 54 49 54 4c | 45 3e 43 6f 6e 74 65 6e |AD><TITL|E>Conten|
|00000630| 74 20 50 61 67 65 3c 2f | 54 49 54 4c 45 3e 0d 0a |t Page</|TITLE>..|
|00000640| 3c 4d 45 54 41 20 68 74 | 74 70 2d 65 71 75 69 76 |<META ht|tp-equiv|
|00000650| 3d 33 44 43 6f 6e 74 65 | 6e 74 2d 54 79 70 65 20 |=3DConte|nt-Type |
|00000660| 63 6f 6e 74 65 6e 74 3d | 33 44 22 74 65 78 74 2f |content=|3D"text/|
|00000670| 68 74 6d 6c 3b 20 3d 0d | 0a 63 68 61 72 73 65 74 |html; =.|.charset|
|00000680| 3d 33 44 77 69 6e 64 6f | 77 73 2d 31 32 35 32 22 |=3Dwindo|ws-1252"|
|00000690| 3e 0d 0a 3c 4d 45 54 41 | 20 63 6f 6e 74 65 6e 74 |>..<META| content|
|000006a0| 3d 33 44 22 4d 53 48 54 | 4d 4c 20 35 2e 35 30 2e |=3D"MSHT|ML 5.50.|
|000006b0| 34 31 33 34 2e 36 30 30 | 22 20 6e 61 6d 65 3d 33 |4134.600|" name=3|
|000006c0| 44 47 45 4e 45 52 41 54 | 4f 52 3e 3c 2f 48 45 41 |DGENERAT|OR></HEA|
|000006d0| 44 3e 3c 46 52 41 4d 45 | 53 45 54 20 3d 0d 0a 62 |D><FRAME|SET =..b|
|000006e0| 6f 72 64 65 72 3d 33 44 | 30 3d 32 30 0d 0a 66 72 |order=3D|0=20..fr|
|000006f0| 61 6d 65 53 70 61 63 69 | 6e 67 3d 33 44 30 20 72 |ameSpaci|ng=3D0 r|
|00000700| 6f 77 73 3d 33 44 33 37 | 2c 2a 20 66 72 61 6d 65 |ows=3D37|,* frame|
|00000710| 42 6f 72 64 65 72 3d 33 | 44 30 3e 3c 46 52 41 4d |Border=3|D0><FRAM|
|00000720| 45 20 6e 61 6d 65 3d 33 | 44 68 65 61 64 65 72 3d |E name=3|Dheader=|
|00000730| 32 30 0d 0a 73 72 63 3d | 33 44 22 68 74 74 70 3a |20..src=|3D"http:|
|00000740| 2f 2f 63 72 6d 2f 63 6f | 6d 6d 65 6e 63 65 72 6d |//crm/co|mmencerm|
|00000750| 77 65 62 6c 6f 6f 6b 75 | 70 2f 77 65 62 48 65 61 |weblooku|p/webHea|
|00000760| 64 65 72 2e 68 74 6d 22 | 20 6e 6f 52 65 73 69 7a |der.htm"| noResiz|
|00000770| 65 20 3d 0d 0a 73 63 72 | 6f 6c 6c 69 6e 67 3d 33 |e =..scr|olling=3|
|00000780| 44 6e 6f 3d 32 30 0d 0a | 74 61 72 67 65 74 3d 33 |Dno=20..|target=3|
|00000790| 44 22 6d 61 69 6e 22 3e | 3c 46 52 41 4d 45 20 6e |D"main">|<FRAME n|
|000007a0| 61 6d 65 3d 33 44 6d 61 | 69 6e 3d 32 30 0d 0a 73 |ame=3Dma|in=20..s|
|000007b0| 72 63 3d 33 44 22 68 74 | 74 70 3a 2f 2f 63 72 6d |rc=3D"ht|tp://crm|
|000007c0| 2f 63 6f 6d 6d 65 6e 63 | 65 72 6d 77 65 62 6c 6f |/commenc|ermweblo|
|000007d0| 6f 6b 75 70 2f 77 65 62 | 43 6f 6e 74 65 6e 74 2e |okup/web|Content.|
|000007e0| 68 74 6d 22 3d 32 30 0d | 0a 74 61 72 67 65 74 3d |htm"=20.|.target=|
|000007f0| 33 44 22 5f 73 65 6c 66 | 22 3e 3c 2f 46 52 41 4d |3D"_self|"></FRAM|
|00000800| 45 53 45 54 3e 3c 2f 48 | 54 4d 4c 3e 0d 0a 0d 0a |ESET></H|TML>....|
|00000810| 2d 2d 2d 2d 2d 2d 3d 5f | 4e 65 78 74 50 61 72 74 |------=_|NextPart|
|00000820| 5f 30 30 31 5f 30 30 30 | 33 5f 30 31 43 31 30 41 |_001_000|3_01C10A|
|00000830| 45 46 2e 32 37 39 46 43 | 43 35 30 0d 0a 43 6f 6e |EF.279FC|C50..Con|
|00000840| 74 65 6e 74 2d 54 79 70 | 65 3a 20 74 65 78 74 2f |tent-Typ|e: text/|
|00000850| 68 74 6d 6c 3b 0d 0a 09 | 63 68 61 72 73 65 74 3d |html;...|charset=|
|00000860| 22 57 69 6e 64 6f 77 73 | 2d 31 32 35 32 22 0d 0a |"Windows|-1252"..|
|00000870| 43 6f 6e 74 65 6e 74 2d | 54 72 61 6e 73 66 65 72 |Content-|Transfer|
|00000880| 2d 45 6e 63 6f 64 69 6e | 67 3a 20 71 75 6f 74 65 |-Encodin|g: quote|
|00000890| 64 2d 70 72 69 6e 74 61 | 62 6c 65 0d 0a 43 6f 6e |d-printa|ble..Con|
|000008a0| 74 65 6e 74 2d 4c 6f 63 | 61 74 69 6f 6e 3a 20 68 |tent-Loc|ation: h|
|000008b0| 74 74 70 3a 2f 2f 63 72 | 6d 2f 63 6f 6d 6d 65 6e |ttp://cr|m/commen|
|000008c0| 63 65 72 6d 77 65 62 6c | 6f 6f 6b 75 70 2f 77 65 |cermwebl|ookup/we|
|000008d0| 62 48 65 61 64 65 72 2e | 68 74 6d 0d 0a 0d 0a 3c |bHeader.|htm....<|
|000008e0| 21 44 4f 43 54 59 50 45 | 20 48 54 4d 4c 20 50 55 |!DOCTYPE| HTML PU|
|000008f0| 42 4c 49 43 20 22 2d 2f | 2f 57 33 43 2f 2f 44 54 |BLIC "-/|/W3C//DT|
|00000900| 44 20 48 54 4d 4c 20 34 | 2e 30 20 54 72 61 6e 73 |D HTML 4|.0 Trans|
|00000910| 69 74 69 6f 6e 61 6c 2f | 2f 45 4e 22 3e 0d 0a 3c |itional/|/EN">..<|
|00000920| 48 54 4d 4c 3e 3c 48 45 | 41 44 3e 3c 54 49 54 4c |HTML><HE|AD><TITL|
|00000930| 45 3e 43 6f 6d 6d 65 6e | 63 65 20 57 65 62 20 43 |E>Commen|ce Web C|
|00000940| 6f 6d 70 61 6e 69 6f 6e | 3c 2f 54 49 54 4c 45 3e |ompanion|</TITLE>|
|00000950| 0d 0a 3c 4d 45 54 41 20 | 68 74 74 70 2d 65 71 75 |..<META |http-equ|
|00000960| 69 76 3d 33 44 43 6f 6e | 74 65 6e 74 2d 4c 61 6e |iv=3DCon|tent-Lan|
|00000970| 67 75 61 67 65 20 63 6f | 6e 74 65 6e 74 3d 33 44 |guage co|ntent=3D|
|00000980| 65 6e 2d 75 73 3e 0d 0a | 3c 4d 45 54 41 20 68 74 |en-us>..|<META ht|
|00000990| 74 70 2d 65 71 75 69 76 | 3d 33 44 43 6f 6e 74 65 |tp-equiv|=3DConte|
|000009a0| 6e 74 2d 54 79 70 65 20 | 63 6f 6e 74 65 6e 74 3d |nt-Type |content=|
|000009b0| 33 44 22 74 65 78 74 2f | 68 74 6d 6c 3b 20 3d 0d |3D"text/|html; =.|
|000009c0| 0a 63 68 61 72 73 65 74 | 3d 33 44 77 69 6e 64 6f |.charset|=3Dwindo|
|000009d0| 77 73 2d 31 32 35 32 22 | 3e 3c 4c 49 4e 4b 3d 32 |ws-1252"|><LINK=2|
|000009e0| 30 0d 0a 6d 65 64 69 61 | 3d 33 44 73 63 72 65 65 |0..media|=3Dscree|
|000009f0| 6e 3d 32 30 0d 0a 68 72 | 65 66 3d 33 44 22 68 74 |n=20..hr|ef=3D"ht|
|00000a00| 74 70 3a 2f 2f 63 72 6d | 2f 63 6f 6d 6d 65 6e 63 |tp://crm|/commenc|
|00000a10| 65 72 6d 77 65 62 6c 6f | 6f 6b 75 70 2f 63 73 73 |ermweblo|okup/css|
|00000a20| 2f 63 6f 6d 6d 65 6e 63 | 65 52 4d 57 65 62 48 65 |/commenc|eRMWebHe|
|00000a30| 61 64 65 72 2e 63 73 73 | 22 3d 32 30 0d 0a 74 79 |ader.css|"=20..ty|
|00000a40| 70 65 3d 33 44 74 65 78 | 74 2f 63 73 73 20 72 65 |pe=3Dtex|t/css re|
|00000a50| 6c 3d 33 44 73 74 79 6c | 65 73 68 65 65 74 3e 0d |l=3Dstyl|esheet>.|
|00000a60| 0a 3c 4d 45 54 41 20 63 | 6f 6e 74 65 6e 74 3d 33 |.<META c|ontent=3|
|00000a70| 44 22 4d 53 48 54 4d 4c | 20 35 2e 35 30 2e 34 31 |D"MSHTML| 5.50.41|
|00000a80| 33 34 2e 36 30 30 22 20 | 6e 61 6d 65 3d 33 44 47 |34.600" |name=3DG|
|00000a90| 45 4e 45 52 41 54 4f 52 | 3e 3c 2f 48 45 41 44 3e |ENERATOR|></HEAD>|
|00000aa0| 0d 0a 3c 42 4f 44 59 20 | 6c 65 66 74 4d 61 72 67 |..<BODY |leftMarg|
|00000ab0| 69 6e 3d 33 44 30 20 74 | 6f 70 4d 61 72 67 69 6e |in=3D0 t|opMargin|
|00000ac0| 3d 33 44 30 3e 3c 21 2d | 2d 3c 4f 42 4a 45 43 54 |=3D0><!-|-<OBJECT|
|00000ad0| 20 49 44 20 3d 33 44 22 | 77 63 22 20 3d 0d 0a 43 | ID =3D"|wc" =..C|
|00000ae0| 4c 41 53 53 49 44 3d 33 | 44 22 43 4c 53 49 44 3a |LASSID=3|D"CLSID:|
|00000af0| 43 42 44 37 43 44 38 45 | 2d 46 31 33 37 2d 31 31 |CBD7CD8E|-F137-11|
|00000b00| 44 34 2d 41 44 37 43 2d | 30 30 30 31 30 32 35 46 |D4-AD7C-|0001025F|
|00000b10| 41 42 45 32 22 20 77 69 | 64 74 68 3d 33 44 22 30 |ABE2" wi|dth=3D"0|
|00000b20| 22 20 3d 0d 0a 68 65 69 | 67 68 74 3d 33 44 22 30 |" =..hei|ght=3D"0|
|00000b30| 22 3e 3c 2f 4f 42 4a 45 | 43 54 3e 0d 0a 2d 2d 3e |"></OBJE|CT>..-->|
|00000b40| 0d 0a 3c 53 43 52 49 50 | 54 20 6c 61 6e 67 75 61 |..<SCRIP|T langua|
|00000b50| 67 65 3d 33 44 76 62 73 | 63 72 69 70 74 3e 0d 0a |ge=3Dvbs|cript>..|
|00000b60| 3c 21 2d 2d 0d 0a 44 69 | 6d 20 77 63 0d 0a 53 65 |<!--..Di|m wc..Se|
|00000b70| 74 20 77 63 20 3d 33 44 | 20 43 72 65 61 74 65 4f |t wc =3D| CreateO|
|00000b80| 62 6a 65 63 74 28 22 43 | 6d 63 57 65 62 43 70 2e |bject("C|mcWebCp.|
|00000b90| 47 65 74 55 52 4c 22 29 | 0d 0a 0d 0a 27 2f 2a 2a |GetURL")|....'/**|
|00000ba0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000bb0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000bc0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000bd0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000be0| 2a 2a 2a 2a 2a 3d 0d 0a | 27 2a 09 43 6f 6e 66 69 |*****=..|'*.Confi|
|00000bf0| 67 75 72 65 20 74 68 65 | 20 2d 4d 45 2d 20 49 74 |gure the| -ME- It|
|00000c00| 65 6d 20 63 6f 6c 75 6d | 6e 20 6e 61 6d 65 73 20 |em colum|n names |
|00000c10| 66 6f 72 20 3d 0d 0a 61 | 64 64 72 65 73 73 2c 63 |for =..a|ddress,c|
|00000c20| 69 74 79 2c 73 74 61 74 | 65 2c 63 6f 75 6e 74 72 |ity,stat|e,countr|
|00000c30| 79 2c 7a 69 70 20 68 65 | 72 65 20 20 20 20 20 20 |y,zip he|re |
|00000c40| 20 20 09 20 20 20 2a 09 | 09 09 09 09 3d 30 39 0d | . *.|....=09.|
|00000c50| 0a 27 2a 09 72 65 6e 61 | 6d 65 20 74 68 65 20 63 |.'*.rena|me the c|
|00000c60| 6f 6c 75 6d 6e 20 6e 61 | 6d 65 20 77 69 74 68 20 |olumn na|me with |
|00000c70| 74 68 65 20 2d 4d 45 2d | 20 49 74 65 6d 20 6d 61 |the -ME-| Item ma|
|00000c80| 70 70 65 64 20 63 61 74 | 65 67 6f 72 79 20 69 6e |pped cat|egory in|
|00000c90| 20 63 6f 6d 6d 65 6e 63 | 65 20 3d 0d 0a 20 20 20 | commenc|e =.. |
|00000ca0| 20 20 20 20 09 09 09 20 | 20 20 2a 09 09 09 3d 30 | ... | *...=0|
|00000cb0| 39 0d 0a 27 2a 09 54 6f | 20 63 6f 6e 66 69 67 75 |9..'*.To| configu|
|00000cc0| 72 65 20 2d 4d 45 2d 20 | 49 74 65 6d 20 75 73 65 |re -ME- |Item use|
|00000cd0| 20 22 43 75 73 74 6f 6d | 69 7a 65 20 2d 2d 20 50 | "Custom|ize -- P|
|00000ce0| 72 65 66 72 65 6e 63 65 | 20 2d 2d 20 50 65 72 73 |refrence| -- Pers|
|00000cf0| 6f 6e 61 6c 49 6e 66 6f | 22 20 20 20 3d 0d 0a 20 |onalInfo|" =.. |
|00000d00| 20 20 20 20 20 20 20 20 | 20 09 09 20 20 20 2a 0d | | .. *.|
|00000d10| 0a 27 2a 09 09 09 09 09 | 09 09 09 09 09 09 09 09 |.'*.....|........|
|00000d20| 09 09 09 09 09 09 09 09 | 09 09 20 20 20 2a 09 09 |........|.. *..|
|00000d30| 09 09 09 09 3d 30 39 0d | 0a 27 2f 2a 2a 2a 2a 2a |....=09.|.'/*****|
|00000d40| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000d50| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000d60| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000d70| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000d80| 2a 2a 3d 0d 0a 0d 0a 43 | 4f 4c 55 4d 4e 5f 41 44 |**=....C|OLUMN_AD|
|00000d90| 44 52 45 53 53 5f 4d 45 | 20 3d 33 44 20 22 62 75 |DRESS_ME| =3D "bu|
|00000da0| 73 53 74 72 65 65 74 22 | 0d 0a 43 4f 4c 55 4d 4e |sStreet"|..COLUMN|
|00000db0| 5f 43 49 54 59 5f 4d 45 | 20 20 3d 33 44 20 22 62 |_CITY_ME| =3D "b|
|00000dc0| 75 73 43 69 74 79 22 0d | 0a 43 4f 4c 55 4d 4e 5f |usCity".|.COLUMN_|
|00000dd0| 53 54 41 54 45 5f 4d 45 | 20 3d 33 44 20 22 62 75 |STATE_ME| =3D "bu|
|00000de0| 73 53 74 61 74 65 22 0d | 0a 43 4f 4c 55 4d 4e 5f |sState".|.COLUMN_|
|00000df0| 43 4f 55 4e 54 52 59 5f | 4d 45 20 3d 33 44 20 22 |COUNTRY_|ME =3D "|
|00000e00| 62 75 73 43 6f 75 6e 74 | 72 79 22 0d 0a 43 4f 4c |busCount|ry"..COL|
|00000e10| 55 4d 4e 5f 5a 49 50 5f | 4d 45 20 20 3d 33 44 20 |UMN_ZIP_|ME =3D |
|00000e20| 22 62 75 73 5a 69 70 22 | 0d 0a 0d 0a 0d 0a 0d 0a |"busZip"|........|
|00000e30| 09 53 75 62 20 4c 6f 6f | 6b 75 70 28 76 54 79 70 |.Sub Loo|kup(vTyp|
|00000e40| 65 29 0d 0a 09 27 4f 6e | 20 45 72 72 6f 72 20 52 |e)...'On| Error R|
|00000e50| 65 73 75 6d 65 20 4e 65 | 78 74 0d 0a 0d 0a 0d 0a |esume Ne|xt......|
|00000e60| 09 44 69 6d 20 73 56 69 | 65 77 2c 20 4d 79 41 72 |.Dim sVi|ew, MyAr|
|00000e70| 72 61 79 2c 20 75 2c 20 | 69 0d 0a 09 44 69 6d 20 |ray, u, |i...Dim |
|00000e80| 63 41 63 63 6f 75 6e 74 | 2c 20 72 41 63 63 6f 75 |cAccount|, rAccou|
|00000e90| 6e 74 2c 20 6e 41 63 63 | 6f 75 6e 74 2c 20 69 54 |nt, nAcc|ount, iT|
|00000ea0| 69 63 6b 65 72 2c 20 75 | 72 6c 31 0d 0a 09 44 69 |icker, u|rl1...Di|
|00000eb0| 6d 20 69 41 63 63 6f 75 | 6e 74 2c 20 73 41 63 63 |m iAccou|nt, sAcc|
|00000ec0| 6f 75 6e 74 0d 0a 09 44 | 69 6d 20 69 57 65 62 73 |ount...D|im iWebs|
|00000ed0| 69 74 65 2c 20 73 57 65 | 62 73 69 74 65 0d 0a 09 |ite, sWe|bsite...|
|00000ee0| 44 69 6d 20 69 5a 69 70 | 2c 20 73 5a 69 70 0d 0a |Dim iZip|, sZip..|
|00000ef0| 09 44 69 6d 20 69 53 74 | 72 65 65 74 2c 20 73 53 |.Dim iSt|reet, sS|
|00000f00| 74 72 65 65 74 0d 0a 09 | 44 69 6d 20 69 43 69 74 |treet...|Dim iCit|
|00000f10| 79 2c 20 73 43 69 74 79 | 0d 0a 09 44 69 6d 20 69 |y, sCity|...Dim i|
|00000f20| 53 74 61 74 65 2c 20 73 | 53 74 61 74 65 0d 0a 09 |State, s|State...|
|00000f30| 44 69 6d 20 69 43 6f 75 | 6e 74 72 79 2c 20 73 43 |Dim iCou|ntry, sC|
|00000f40| 6f 75 6e 74 72 79 0d 0a | 09 09 0d 0a 09 44 69 6d |ountry..|.....Dim|
|00000f50| 20 63 75 72 32 0d 0a 09 | 44 69 6d 20 66 6c 61 67 | cur2...|Dim flag|
|00000f60| 32 0d 0a 09 44 69 6d 20 | 73 46 69 65 6c 64 4e 61 |2...Dim |sFieldNa|
|00000f70| 6d 65 32 0d 0a 09 44 69 | 6d 20 71 72 73 32 0d 0a |me2...Di|m qrs2..|
|00000f80| 09 44 69 6d 20 73 55 72 | 6c 32 20 0d 0a 09 44 69 |.Dim sUr|l2 ...Di|
|00000f90| 6d 20 73 41 64 64 72 65 | 73 73 4d 65 2c 20 73 43 |m sAddre|ssMe, sC|
|00000fa0| 69 74 79 4d 65 2c 20 73 | 53 74 61 74 65 4d 65 2c |ityMe, s|StateMe,|
|00000fb0| 20 73 5a 69 70 4d 65 2c | 20 73 43 6f 75 6e 74 72 | sZipMe,| sCountr|
|00000fc0| 79 4d 65 2c 44 61 74 65 | 56 61 6c 0d 0a 09 0d 0a |yMe,Date|Val.....|
|00000fd0| 09 44 69 6d 20 43 6f 6d | 6d 65 6e 63 65 44 42 0d |.Dim Com|menceDB.|
|00000fe0| 0a 09 53 65 74 20 43 6f | 6d 6d 65 6e 63 65 44 42 |..Set Co|mmenceDB|
|00000ff0| 20 3d 33 44 20 77 69 6e | 64 6f 77 2e 65 78 74 65 | =3D win|dow.exte|
|00001000| 72 6e 61 6c 2e 44 61 74 | 61 62 61 73 65 0d 0a 09 |rnal.Dat|abase...|
|00001010| 27 53 65 74 20 43 6f 6d | 6d 65 6e 63 65 44 42 20 |'Set Com|menceDB |
|00001020| 3d 33 44 20 43 72 65 61 | 74 65 4f 62 6a 65 63 74 |=3D Crea|teObject|
|00001030| 28 22 43 6f 6d 6d 65 6e | 63 65 2e 44 42 22 29 0d |("Commen|ce.DB").|
|00001040| 0a 09 44 69 6d 20 43 6f | 6e 76 0d 0a 09 53 65 74 |..Dim Co|nv...Set|
|00001050| 20 43 6f 6e 76 20 3d 33 | 44 20 43 6f 6d 6d 65 6e | Conv =3|D Commen|
|00001060| 63 65 44 42 2e 47 65 74 | 43 6f 6e 76 65 72 73 61 |ceDB.Get|Conversa|
|00001070| 74 69 6f 6e 28 22 43 6f | 6d 6d 65 6e 63 65 22 2c |tion("Co|mmence",|
|00001080| 20 22 47 65 74 44 61 74 | 61 22 29 0d 0a 0d 0a 09 | "GetDat|a").....|
|00001090| 27 20 46 69 6e 64 20 6f | 75 74 20 69 66 20 77 65 |' Find o|ut if we|
|000010a0| 27 72 65 20 69 6e 20 61 | 20 73 75 62 73 69 64 69 |'re in a| subsidi|
|000010b0| 61 72 79 20 76 69 65 77 | 20 76 69 61 20 44 44 45 |ary view| via DDE|
|000010c0| 0d 0a 09 73 56 69 65 77 | 20 3d 33 44 20 43 6f 6e |...sView| =3D Con|
|000010d0| 76 2e 52 65 71 75 65 73 | 74 28 22 5b 47 65 74 41 |v.Reques|t("[GetA|
|000010e0| 63 74 69 76 65 56 69 65 | 77 49 6e 66 6f 28 7c 29 |ctiveVie|wInfo(|)|
|000010f0| 5d 22 29 0d 0a 09 4d 79 | 41 72 72 61 79 20 3d 33 |]")...My|Array =3|
|00001100| 44 20 53 70 6c 69 74 28 | 73 56 69 65 77 2c 20 22 |D Split(|sView, "|
|00001110| 7c 22 29 0d 0a 09 73 56 | 69 65 77 20 3d 33 44 20 ||")...sV|iew =3D |
|00001120| 4d 79 41 72 72 61 79 28 | 30 29 0d 0a 09 0d 0a 09 |MyArray(|0)......|
|00001130| 44 61 74 65 56 61 6c 20 | 3d 33 44 20 44 61 74 65 |DateVal |=3D Date|
|00001140| 28 29 3d 32 30 0d 0a 0d | 0a 09 53 65 6c 65 63 74 |()=20...|..Select|
|00001150| 20 43 61 73 65 20 73 56 | 69 65 77 0d 0a 09 09 43 | Case sV|iew....C|
|00001160| 61 73 65 20 22 43 6f 6d | 6d 65 6e 63 65 20 52 4d |ase "Com|mence RM|
|00001170| 20 57 65 62 20 53 65 61 | 72 63 68 20 41 6c 6c 22 | Web Sea|rch All"|
|00001180| 0d 0a 09 09 09 75 20 3d | 33 44 20 46 69 6e 64 49 |.....u =|3D FindI|
|00001190| 74 65 6d 28 22 41 6c 6c | 20 41 63 63 6f 75 6e 74 |tem("All| Account|
|000011a0| 73 20 52 65 76 69 65 77 | 22 29 0d 0a 09 09 3d 30 |s Review|")....=0|
|000011b0| 39 0d 0a 09 09 09 27 20 | 6c 65 74 27 73 20 66 69 |9.....' |let's fi|
|000011c0| 6e 64 20 74 68 65 20 61 | 63 63 6f 75 6e 74 0d 0a |nd the a|ccount..|
|000011d0| 09 09 09 53 65 74 20 63 | 41 63 63 6f 75 6e 74 20 |...Set c|Account |
|000011e0| 3d 33 44 20 43 6f 6d 6d | 65 6e 63 65 44 42 2e 47 |=3D Comm|enceDB.G|
|000011f0| 65 74 43 75 72 73 6f 72 | 28 30 2c 22 41 63 63 6f |etCursor|(0,"Acco|
|00001200| 75 6e 74 22 2c 30 29 0d | 0a 09 09 09 3d 30 39 0d |unt",0).|....=09.|
|00001210| 0a 09 09 09 63 41 63 63 | 6f 75 6e 74 2e 53 65 74 |....cAcc|ount.Set|
|00001220| 46 69 6c 74 65 72 20 22 | 5b 56 69 65 77 46 69 6c |Filter "|[ViewFil|
|00001230| 74 65 72 28 31 2c 46 2c | 2c 22 22 61 63 63 6f 75 |ter(1,F,|,""accou|
|00001240| 6e 74 4b 65 79 22 22 2c | 45 71 75 61 6c 20 3d 0d |ntKey"",|Equal =.|
|00001250| 0a 74 6f 2c 22 22 22 2b | 54 72 69 6d 28 75 28 30 |.to,"""+|Trim(u(0|
|00001260| 29 29 2b 22 22 22 2c 29 | 5d 22 2c 30 0d 0a 09 09 |))+""",)|]",0....|
|00001270| 09 63 41 63 63 6f 75 6e | 74 2e 53 65 74 46 69 6c |.cAccoun|t.SetFil|
|00001280| 74 65 72 20 22 5b 56 69 | 65 77 46 69 6c 74 65 72 |ter "[Vi|ewFilter|
|00001290| 28 32 2c 46 2c 2c 22 22 | 62 75 73 69 6e 65 73 73 |(2,F,,""|business|
|000012a0| 4e 75 6d 62 65 72 22 22 | 2c 45 71 75 61 6c 20 3d |Number""|,Equal =|
|000012b0| 0d 0a 74 6f 2c 22 22 22 | 2b 54 72 69 6d 28 75 28 |..to,"""|+Trim(u(|
|000012c0| 31 29 29 2b 22 22 22 2c | 29 5d 22 2c 30 0d 0a 0d |1))+""",|)]",0...|
|000012d0| 0a 09 09 09 6e 41 63 63 | 6f 75 6e 74 20 3d 33 44 |....nAcc|ount =3D|
|000012e0| 20 63 41 63 63 6f 75 6e | 74 2e 52 6f 77 43 6f 75 | cAccoun|t.RowCou|
|000012f0| 6e 74 0d 0a 0d 0a 09 09 | 09 53 65 74 20 72 41 63 |nt......|.Set rAc|
|00001300| 63 6f 75 6e 74 20 3d 33 | 44 20 63 41 63 63 6f 75 |count =3|D cAccou|
|00001310| 6e 74 2e 47 65 74 45 64 | 69 74 52 6f 77 53 65 74 |nt.GetEd|itRowSet|
|00001320| 28 6e 41 63 63 6f 75 6e | 74 2c 30 29 0d 0a 0d 0a |(nAccoun|t,0)....|
|00001330| 09 09 09 53 65 6c 65 63 | 74 20 43 61 73 65 20 76 |...Selec|t Case v|
|00001340| 54 79 70 65 0d 0a 09 09 | 09 09 43 61 73 65 20 22 |Type....|..Case "|
|00001350| 53 74 6f 63 6b 22 0d 0a | 09 09 09 09 09 69 54 69 |Stock"..|.....iTi|
|00001360| 63 6b 65 72 20 3d 33 44 | 20 72 41 63 63 6f 75 6e |cker =3D| rAccoun|
|00001370| 74 2e 47 65 74 43 6f 6c | 75 6d 6e 49 6e 64 65 78 |t.GetCol|umnIndex|
|00001380| 28 22 54 69 63 6b 65 72 | 22 2c 30 29 0d 0a 09 09 |("Ticker|",0)....|
|00001390| 09 09 09 46 6f 72 20 69 | 20 3d 33 44 20 31 20 74 |...For i| =3D 1 t|
|000013a0| 6f 20 6e 41 63 63 6f 75 | 6e 74 0d 0a 09 09 09 09 |o nAccou|nt......|
|000013b0| 09 09 73 54 69 63 6b 65 | 72 20 3d 33 44 20 72 41 |..sTicke|r =3D rA|
|000013c0| 63 63 6f 75 6e 74 2e 47 | 65 74 52 6f 77 56 61 6c |ccount.G|etRowVal|
|000013d0| 75 65 28 69 2d 31 2c 69 | 54 69 63 6b 65 72 2c 30 |ue(i-1,i|Ticker,0|
|000013e0| 29 0d 0a 09 09 09 09 09 | 4e 65 78 74 0d 0a 09 09 |).......|Next....|
|000013f0| 09 09 09 75 72 6c 31 20 | 3d 33 44 20 77 63 2e 47 |...url1 |=3D wc.G|
|00001400| 65 74 53 74 6f 63 6b 51 | 75 6f 74 65 28 73 54 69 |etStockQ|uote(sTi|
|00001410| 63 6b 65 72 29 0d 0a 09 | 09 09 09 09 70 61 72 65 |cker)...|....pare|
|00001420| 6e 74 2e 66 72 61 6d 65 | 73 28 22 4d 61 69 6e 22 |nt.frame|s("Main"|
|00001430| 29 2e 6c 6f 63 61 74 69 | 6f 6e 2e 68 72 65 66 20 |).locati|on.href |
|00001440| 3d 33 44 20 75 72 6c 31 | 0d 0a 09 09 09 09 3d 30 |=3D url1|......=0|
|00001450| 39 0d 0a 09 09 09 09 43 | 61 73 65 20 22 57 65 61 |9......C|ase "Wea|
|00001460| 74 68 65 72 22 0d 0a 09 | 09 09 09 09 69 5a 69 70 |ther"...|....iZip|
|00001470| 20 3d 33 44 20 72 41 63 | 63 6f 75 6e 74 2e 47 65 | =3D rAc|count.Ge|
|00001480| 74 43 6f 6c 75 6d 6e 49 | 6e 64 65 78 28 22 7a 69 |tColumnI|ndex("zi|
|00001490| 70 50 6f 73 74 61 6c 22 | 2c 30 29 0d 0a 09 09 09 |pPostal"|,0).....|
|000014a0| 09 09 46 6f 72 20 69 20 | 3d 33 44 20 31 20 74 6f |..For i |=3D 1 to|
|000014b0| 20 6e 41 63 63 6f 75 6e | 74 0d 0a 09 09 09 09 09 | nAccoun|t.......|
|000014c0| 09 73 5a 69 70 20 3d 33 | 44 20 72 41 63 63 6f 75 |.sZip =3|D rAccou|
|000014d0| 6e 74 2e 47 65 74 52 6f | 77 56 61 6c 75 65 28 69 |nt.GetRo|wValue(i|
|000014e0| 2d 31 2c 69 5a 69 70 2c | 30 29 0d 0a 09 09 09 09 |-1,iZip,|0)......|
|000014f0| 09 4e 65 78 74 0d 0a 09 | 09 09 09 09 75 72 6c 31 |.Next...|....url1|
|00001500| 20 3d 33 44 20 77 63 2e | 47 65 74 57 65 61 74 68 | =3D wc.|GetWeath|
|00001510| 65 72 28 73 5a 69 70 29 | 0d 0a 09 09 09 09 09 70 |er(sZip)|.......p|
|00001520| 61 72 65 6e 74 2e 66 72 | 61 6d 65 73 28 22 4d 61 |arent.fr|ames("Ma|
|00001530| 69 6e 22 29 2e 6c 6f 63 | 61 74 69 6f 6e 2e 68 72 |in").loc|ation.hr|
|00001540| 65 66 20 3d 33 44 20 75 | 72 6c 31 0d 0a 09 09 09 |ef =3D u|rl1.....|
|00001550| 09 3d 30 39 0d 0a 09 09 | 09 09 43 61 73 65 20 22 |.=09....|..Case "|
|00001560| 4d 61 70 22 0d 0a 09 09 | 09 09 09 69 53 74 72 65 |Map"....|...iStre|
|00001570| 65 74 20 3d 33 44 20 72 | 41 63 63 6f 75 6e 74 2e |et =3D r|Account.|
|00001580| 47 65 74 43 6f 6c 75 6d | 6e 49 6e 64 65 78 28 22 |GetColum|nIndex("|
|00001590| 41 64 64 72 65 73 73 22 | 2c 30 29 0d 0a 09 09 09 |Address"|,0).....|
|000015a0| 09 09 69 43 69 74 79 20 | 3d 33 44 20 72 41 63 63 |..iCity |=3D rAcc|
|000015b0| 6f 75 6e 74 2e 47 65 74 | 43 6f 6c 75 6d 6e 49 6e |ount.Get|ColumnIn|
|000015c0| 64 65 78 28 22 43 69 74 | 79 22 2c 30 29 0d 0a 09 |dex("Cit|y",0)...|
|000015d0| 09 09 09 09 69 53 74 61 | 74 65 20 3d 33 44 20 72 |....iSta|te =3D r|
|000015e0| 41 63 63 6f 75 6e 74 2e | 47 65 74 43 6f 6c 75 6d |Account.|GetColum|
|000015f0| 6e 49 6e 64 65 78 28 22 | 73 74 61 74 65 50 72 6f |nIndex("|statePro|
|00001600| 76 69 6e 63 65 22 2c 30 | 29 0d 0a 09 09 09 09 09 |vince",0|).......|
|00001610| 69 5a 69 70 20 3d 33 44 | 20 72 41 63 63 6f 75 6e |iZip =3D| rAccoun|
|00001620| 74 2e 47 65 74 43 6f 6c | 75 6d 6e 49 6e 64 65 78 |t.GetCol|umnIndex|
|00001630| 28 22 7a 69 70 50 6f 73 | 74 61 6c 22 2c 30 29 0d |("zipPos|tal",0).|
|00001640| 0a 09 09 09 09 09 69 43 | 6f 75 6e 74 72 79 20 3d |......iC|ountry =|
|00001650| 33 44 20 72 41 63 63 6f | 75 6e 74 2e 47 65 74 43 |3D rAcco|unt.GetC|
|00001660| 6f 6c 75 6d 6e 49 6e 64 | 65 78 28 22 43 6f 75 6e |olumnInd|ex("Coun|
|00001670| 74 72 79 22 2c 30 29 0d | 0a 09 09 09 09 09 46 6f |try",0).|......Fo|
|00001680| 72 20 69 20 3d 33 44 20 | 31 20 74 6f 20 6e 41 63 |r i =3D |1 to nAc|
|00001690| 63 6f 75 6e 74 0d 0a 09 | 09 09 09 09 09 73 53 74 |count...|.....sSt|
|000016a0| 72 65 65 74 20 3d 33 44 | 20 72 41 63 63 6f 75 6e |reet =3D| rAccoun|
|000016b0| 74 2e 47 65 74 52 6f 77 | 56 61 6c 75 65 28 69 2d |t.GetRow|Value(i-|
|000016c0| 31 2c 69 53 74 72 65 65 | 74 2c 30 29 0d 0a 09 09 |1,iStree|t,0)....|
|000016d0| 09 09 09 09 73 43 69 74 | 79 20 3d 33 44 20 72 41 |....sCit|y =3D rA|
|000016e0| 63 63 6f 75 6e 74 2e 47 | 65 74 52 6f 77 56 61 6c |ccount.G|etRowVal|
|000016f0| 75 65 28 69 2d 31 2c 69 | 43 69 74 79 2c 30 29 0d |ue(i-1,i|City,0).|
|00001700| 0a 09 09 09 09 09 09 73 | 53 74 61 74 65 20 3d 33 |.......s|State =3|
|00001710| 44 20 72 41 63 63 6f 75 | 6e 74 2e 47 65 74 52 6f |D rAccou|nt.GetRo|
|00001720| 77 56 61 6c 75 65 28 69 | 2d 31 2c 69 53 74 61 74 |wValue(i|-1,iStat|
|00001730| 65 2c 30 29 0d 0a 09 09 | 09 09 09 09 73 5a 69 70 |e,0)....|....sZip|
|00001740| 20 3d 33 44 20 72 41 63 | 63 6f 75 6e 74 2e 47 65 | =3D rAc|count.Ge|
|00001750| 74 52 6f 77 56 61 6c 75 | 65 28 69 2d 31 2c 69 5a |tRowValu|e(i-1,iZ|
|00001760| 69 70 2c 30 29 0d 0a 09 | 09 09 09 09 09 73 43 6f |ip,0)...|.....sCo|
|00001770| 75 6e 74 72 79 20 3d 33 | 44 20 72 41 63 63 6f 75 |untry =3|D rAccou|
|00001780| 6e 74 2e 47 65 74 52 6f | 77 56 61 6c 75 65 28 69 |nt.GetRo|wValue(i|
|00001790| 2d 31 2c 69 43 6f 75 6e | 74 72 79 2c 30 29 0d 0a |-1,iCoun|try,0)..|
|000017a0| 09 09 09 09 09 4e 65 78 | 74 0d 0a 09 09 09 09 09 |.....Nex|t.......|
|000017b0| 75 72 6c 31 20 3d 33 44 | 20 77 63 2e 47 65 74 4d |url1 =3D| wc.GetM|
|000017c0| 61 70 28 73 53 74 72 65 | 65 74 2c 73 43 69 74 79 |ap(sStre|et,sCity|
|000017d0| 2c 73 53 74 61 74 65 2c | 73 5a 69 70 2c 73 43 6f |,sState,|sZip,sCo|
|000017e0| 75 6e 74 72 79 29 0d 0a | 09 09 09 09 09 70 61 72 |untry)..|.....par|
|000017f0| 65 6e 74 2e 66 72 61 6d | 65 73 28 22 4d 61 69 6e |ent.fram|es("Main|
|00001800| 22 29 2e 6c 6f 63 61 74 | 69 6f 6e 2e 68 72 65 66 |").locat|ion.href|
|00001810| 20 3d 33 44 20 75 72 6c | 31 0d 0a 09 09 09 09 3d | =3D url|1......=|
|00001820| 30 39 0d 0a 09 09 09 09 | 43 61 73 65 20 22 44 69 |09......|Case "Di|
|00001830| 72 65 63 74 69 6f 6e 73 | 22 0d 0a 09 09 09 09 09 |rections|".......|
|00001840| 69 53 74 72 65 65 74 20 | 3d 33 44 20 72 41 63 63 |iStreet |=3D rAcc|
|00001850| 6f 75 6e 74 2e 47 65 74 | 43 6f 6c 75 6d 6e 49 6e |ount.Get|ColumnIn|
|00001860| 64 65 78 28 22 41 64 64 | 72 65 73 73 22 2c 30 29 |dex("Add|ress",0)|
|00001870| 0d 0a 09 09 09 09 09 69 | 43 69 74 79 20 3d 33 44 |.......i|City =3D|
|00001880| 20 72 41 63 63 6f 75 6e | 74 2e 47 65 74 43 6f 6c | rAccoun|t.GetCol|
|00001890| 75 6d 6e 49 6e 64 65 78 | 28 22 43 69 74 79 22 2c |umnIndex|("City",|
|000018a0| 30 29 0d 0a 09 09 09 09 | 09 69 53 74 61 74 65 20 |0)......|.iState |
|000018b0| 3d 33 44 20 72 41 63 63 | 6f 75 6e 74 2e 47 65 74 |=3D rAcc|ount.Get|
|000018c0| 43 6f 6c 75 6d 6e 49 6e | 64 65 78 28 22 73 74 61 |ColumnIn|dex("sta|
|000018d0| 74 65 50 72 6f 76 69 6e | 63 65 22 2c 30 29 0d 0a |teProvin|ce",0)..|
|000018e0| 09 09 09 09 09 69 5a 69 | 70 20 3d 33 44 20 72 41 |.....iZi|p =3D rA|
|000018f0| 63 63 6f 75 6e 74 2e 47 | 65 74 43 6f 6c 75 6d 6e |ccount.G|etColumn|
|00001900| 49 6e 64 65 78 28 22 7a | 69 70 50 6f 73 74 61 6c |Index("z|ipPostal|
|00001910| 22 2c 30 29 0d 0a 09 09 | 09 09 09 69 43 6f 75 6e |",0)....|...iCoun|
|00001920| 74 72 79 20 3d 33 44 20 | 72 41 63 63 6f 75 6e 74 |try =3D |rAccount|
|00001930| 2e 47 65 74 43 6f 6c 75 | 6d 6e 49 6e 64 65 78 28 |.GetColu|mnIndex(|
|00001940| 22 43 6f 75 6e 74 72 79 | 22 2c 30 29 0d 0a 09 09 |"Country|",0)....|
|00001950| 09 09 09 46 6f 72 20 69 | 20 3d 33 44 20 31 20 74 |...For i| =3D 1 t|
|00001960| 6f 20 6e 41 63 63 6f 75 | 6e 74 0d 0a 09 09 09 09 |o nAccou|nt......|
|00001970| 09 09 73 53 74 72 65 65 | 74 20 3d 33 44 20 72 41 |..sStree|t =3D rA|
|00001980| 63 63 6f 75 6e 74 2e 47 | 65 74 52 6f 77 56 61 6c |ccount.G|etRowVal|
|00001990| 75 65 28 69 2d 31 2c 69 | 53 74 72 65 65 74 2c 30 |ue(i-1,i|Street,0|
|000019a0| 29 0d 0a 09 09 09 09 09 | 09 73 43 69 74 79 20 3d |).......|.sCity =|
|000019b0| 33 44 20 72 41 63 63 6f | 75 6e 74 2e 47 65 74 52 |3D rAcco|unt.GetR|
|000019c0| 6f 77 56 61 6c 75 65 28 | 69 2d 31 2c 69 43 69 74 |owValue(|i-1,iCit|
|000019d0| 79 2c 30 29 0d 0a 09 09 | 09 09 09 09 73 53 74 61 |y,0)....|....sSta|
|000019e0| 74 65 20 3d 33 44 20 72 | 41 63 63 6f 75 6e 74 2e |te =3D r|Account.|
|000019f0| 47 65 74 52 6f 77 56 61 | 6c 75 65 28 69 2d 31 2c |GetRowVa|lue(i-1,|
|00001a00| 69 53 74 61 74 65 2c 30 | 29 0d 0a 09 09 09 09 09 |iState,0|).......|
|00001a10| 09 73 5a 69 70 20 3d 33 | 44 20 72 41 63 63 6f 75 |.sZip =3|D rAccou|
|00001a20| 6e 74 2e 47 65 74 52 6f | 77 56 61 6c 75 65 28 69 |nt.GetRo|wValue(i|
|00001a30| 2d 31 2c 69 5a 69 70 2c | 30 29 0d 0a 09 09 09 09 |-1,iZip,|0)......|
|00001a40| 09 09 73 43 6f 75 6e 74 | 72 79 20 3d 33 44 20 72 |..sCount|ry =3D r|
|00001a50| 41 63 63 6f 75 6e 74 2e | 47 65 74 52 6f 77 56 61 |Account.|GetRowVa|
|00001a60| 6c 75 65 28 69 2d 31 2c | 69 43 6f 75 6e 74 72 79 |lue(i-1,|iCountry|
|00001a70| 2c 30 29 0d 0a 09 09 09 | 09 09 4e 65 78 74 0d 0a |,0).....|..Next..|
|00001a80| 09 09 09 09 3d 30 39 0d | 0a 09 09 09 09 0d 0a 09 |....=09.|........|
|00001a90| 09 09 09 09 27 47 65 74 | 20 74 68 65 20 4d 65 20 |....'Get| the Me |
|00001aa0| 69 74 65 6d 20 20 20 3d | 32 30 0d 0a 0d 0a 09 09 |item =|20......|
|00001ab0| 09 09 20 20 20 20 66 6c | 61 67 32 20 3d 33 44 20 |.. fl|ag2 =3D |
|00001ac0| 47 65 74 4d 65 49 74 65 | 6d 28 63 75 72 32 29 0d |GetMeIte|m(cur2).|
|00001ad0| 0a 09 09 09 09 20 20 20 | 20 27 20 64 69 64 20 77 |..... | ' did w|
|00001ae0| 65 20 67 65 74 20 69 6e | 66 6f 20 61 62 6f 75 74 |e get in|fo about|
|00001af0| 20 74 68 65 20 61 63 74 | 69 76 65 20 22 43 6f 6e | the act|ive "Con|
|00001b00| 74 61 63 74 22 20 69 74 | 65 6d 3f 0d 0a 09 09 09 |tact" it|em?.....|
|00001b10| 09 20 20 20 20 49 66 20 | 4e 6f 74 20 66 6c 61 67 |. If |Not flag|
|00001b20| 32 20 54 68 65 6e 0d 0a | 09 09 09 09 20 20 20 20 |2 Then..|.... |
|00001b30| 20 20 20 20 4d 73 67 42 | 6f 78 20 22 50 6c 65 61 | MsgB|ox "Plea|
|00001b40| 73 65 20 43 6f 6e 66 69 | 67 75 72 65 20 20 2d 4d |se Confi|gure -M|
|00001b50| 65 2d 20 69 74 65 6d 20 | 69 6e 20 43 6f 6d 6d 65 |e- item |in Comme|
|00001b60| 6e 63 65 2e 22 0d 0a 09 | 09 09 09 20 20 20 20 20 |nce."...|... |
|00001b70| 20 20 20 45 78 69 74 20 | 53 75 62 0d 0a 09 09 09 | Exit |Sub.....|
|00001b80| 09 20 20 20 20 65 6e 64 | 20 69 66 20 20 20 3d 32 |. end| if =2|
|00001b90| 30 0d 0a 09 09 09 09 20 | 20 20 20 27 20 65 6c 73 |0...... | ' els|
|00001ba0| 65 20 77 65 20 67 6f 74 | 20 74 68 65 20 4d 65 20 |e we got| the Me |
|00001bb0| 69 74 65 6d 0d 0a 09 09 | 09 09 20 20 20 3d 32 30 |item....|.. =20|
|00001bc0| 0d 0a 0d 0a 09 09 09 09 | 20 20 20 20 63 75 72 32 |........| cur2|
|00001bd0| 2e 53 65 65 6b 52 6f 77 | 20 30 2c 20 30 0d 0a 09 |.SeekRow| 0, 0...|
|00001be0| 09 09 09 20 20 20 20 53 | 65 74 20 71 72 73 32 20 |... S|et qrs2 |
|00001bf0| 3d 33 44 20 63 75 72 32 | 2e 47 65 74 51 75 65 72 |=3D cur2|.GetQuer|
|00001c00| 79 52 6f 77 53 65 74 28 | 31 2c 20 30 29 0d 0a 09 |yRowSet(|1, 0)...|
|00001c10| 09 09 09 20 20 20 3d 32 | 30 0d 0a 09 09 09 09 09 |... =2|0.......|
|00001c20| 20 20 20 0d 0a 09 09 09 | 09 09 27 67 65 74 20 74 | .....|..'get t|
|00001c30| 68 65 20 66 69 65 6c 64 | 20 76 61 6c 75 65 73 20 |he field| values |
|00001c40| 72 65 71 75 69 72 65 64 | 20 62 79 20 77 2f 63 0d |required| by w/c.|
|00001c50| 0a 09 09 09 09 09 0d 0a | 09 09 09 09 09 73 41 64 |........|.....sAd|
|00001c60| 64 72 65 73 73 4d 65 20 | 3d 33 44 20 47 65 74 41 |dressMe |=3D GetA|
|00001c70| 64 64 72 65 73 73 56 61 | 6c 75 65 4d 45 28 71 72 |ddressVa|lueME(qr|
|00001c80| 73 32 29 0d 0a 09 09 09 | 09 09 73 43 69 74 79 4d |s2).....|..sCityM|
|00001c90| 65 20 3d 33 44 20 47 65 | 74 43 69 74 79 56 61 6c |e =3D Ge|tCityVal|
|00001ca0| 75 65 4d 45 28 71 72 73 | 32 29 0d 0a 09 09 09 09 |ueME(qrs|2)......|
|00001cb0| 09 73 53 74 61 74 65 4d | 65 20 3d 33 44 20 47 65 |.sStateM|e =3D Ge|
|00001cc0| 74 53 74 61 74 65 56 61 | 6c 75 65 4d 45 28 71 72 |tStateVa|lueME(qr|
|00001cd0| 73 32 29 0d 0a 09 09 09 | 09 09 73 5a 69 70 4d 65 |s2).....|..sZipMe|
|00001ce0| 20 3d 33 44 20 47 65 74 | 5a 69 70 56 61 6c 75 65 | =3D Get|ZipValue|
|00001cf0| 4d 45 28 71 72 73 32 29 | 0d 0a 09 09 09 09 09 73 |ME(qrs2)|.......s|
|00001d00| 43 6f 75 6e 74 72 79 4d | 65 20 3d 33 44 20 20 47 |CountryM|e =3D G|
|00001d10| 65 74 43 6f 75 6e 74 72 | 79 56 61 6c 75 65 4d 45 |etCountr|yValueME|
|00001d20| 28 71 72 73 32 29 0d 0a | 09 09 09 09 09 3d 30 39 |(qrs2)..|.....=09|
|00001d30| 0d 0a 09 09 09 09 09 0d | 0a 09 09 09 09 09 75 72 |........|......ur|
|00001d40| 6c 31 20 3d 20 77 63 2e | 47 65 74 44 69 72 65 63 |l1 = wc.|GetDirec|
|00001d50| 74 69 6f 6e 73 28 73 41 | 64 64 72 65 73 73 4d 65 |tions(sA|ddressMe|
|00001d60| 2c 73 43 69 74 79 4d 65 | 2c 73 53 74 61 74 65 4d |,sCityMe|,sStateM|
|00001d70| 65 2c 73 5a 69 70 4d 65 | 2c 73 43 6f 75 6e 74 72 |e,sZipMe|,sCountr|
|00001d80| 79 4d 65 2c 73 53 74 72 | 65 65 74 2c 73 43 69 74 |yMe,sStr|eet,sCit|
|00001d90| 79 2c 73 53 74 61 74 65 | 2c 73 5a 69 70 2c 73 43 |y,sState|,sZip,sC|
|00001da0| 6f 75 6e 74 72 79 29 0d | 0a 09 09 09 09 09 0d 0a |ountry).|........|
|00001db0| 09 09 09 09 09 70 61 72 | 65 6e 74 2e 66 72 61 6d |.....par|ent.fram|
|00001dc0| 65 73 28 22 4d 61 69 6e | 22 29 2e 6c 6f 63 61 74 |es("Main|").locat|
|00001dd0| 69 6f 6e 2e 68 72 65 66 | 20 3d 33 44 20 75 72 6c |ion.href| =3D url|
|00001de0| 31 3d 30 39 0d 0a 09 09 | 09 3d 30 39 0d 0a 09 09 |1=09....|.=09....|
|00001df0| 09 09 27 43 61 73 65 20 | 22 4e 65 77 73 22 0d 0a |..'Case |"News"..|
|00001e00| 09 09 09 09 43 61 73 65 | 20 22 54 72 61 76 65 6c |....Case| "Travel|
|00001e10| 22 0d 0a 09 09 09 09 09 | 69 53 74 72 65 65 74 20 |".......|iStreet |
|00001e20| 3d 33 44 20 72 41 63 63 | 6f 75 6e 74 2e 47 65 74 |=3D rAcc|ount.Get|
|00001e30| 43 6f 6c 75 6d 6e 49 6e | 64 65 78 28 22 41 64 64 |ColumnIn|dex("Add|
|00001e40| 72 65 73 73 22 2c 30 29 | 0d 0a 09 09 09 09 09 69 |ress",0)|.......i|
|00001e50| 43 69 74 79 20 3d 33 44 | 20 72 41 63 63 6f 75 6e |City =3D| rAccoun|
|00001e60| 74 2e 47 65 74 43 6f 6c | 75 6d 6e 49 6e 64 65 78 |t.GetCol|umnIndex|
|00001e70| 28 22 43 69 74 79 22 2c | 30 29 0d 0a 09 09 09 09 |("City",|0)......|
|00001e80| 09 69 53 74 61 74 65 20 | 3d 33 44 20 72 41 63 63 |.iState |=3D rAcc|
|00001e90| 6f 75 6e 74 2e 47 65 74 | 43 6f 6c 75 6d 6e 49 6e |ount.Get|ColumnIn|
|00001ea0| 64 65 78 28 22 73 74 61 | 74 65 50 72 6f 76 69 6e |dex("sta|teProvin|
|00001eb0| 63 65 22 2c 30 29 0d 0a | 09 09 09 09 09 69 5a 69 |ce",0)..|.....iZi|
|00001ec0| 70 20 3d 33 44 20 72 41 | 63 63 6f 75 6e 74 2e 47 |p =3D rA|ccount.G|
|00001ed0| 65 74 43 6f 6c 75 6d 6e | 49 6e 64 65 78 28 22 7a |etColumn|Index("z|
|00001ee0| 69 70 50 6f 73 74 61 6c | 22 2c 30 29 0d 0a 09 09 |ipPostal|",0)....|
|00001ef0| 09 09 09 69 43 6f 75 6e | 74 72 79 20 3d 33 44 20 |...iCoun|try =3D |
|00001f00| 72 41 63 63 6f 75 6e 74 | 2e 47 65 74 43 6f 6c 75 |rAccount|.GetColu|
|00001f10| 6d 6e 49 6e 64 65 78 28 | 22 43 6f 75 6e 74 72 79 |mnIndex(|"Country|
|00001f20| 22 2c 30 29 0d 0a 09 09 | 09 09 09 46 6f 72 20 69 |",0)....|...For i|
|00001f30| 20 3d 33 44 20 31 20 74 | 6f 20 6e 41 63 63 6f 75 | =3D 1 t|o nAccou|
|00001f40| 6e 74 0d 0a 09 09 09 09 | 09 09 73 53 74 72 65 65 |nt......|..sStree|
|00001f50| 74 20 3d 33 44 20 72 41 | 63 63 6f 75 6e 74 2e 47 |t =3D rA|ccount.G|
|00001f60| 65 74 52 6f 77 56 61 6c | 75 65 28 69 2d 31 2c 69 |etRowVal|ue(i-1,i|
|00001f70| 53 74 72 65 65 74 2c 30 | 29 0d 0a 09 09 09 09 09 |Street,0|).......|
|00001f80| 09 73 43 69 74 79 20 3d | 33 44 20 72 41 63 63 6f |.sCity =|3D rAcco|
|00001f90| 75 6e 74 2e 47 65 74 52 | 6f 77 56 61 6c 75 65 28 |unt.GetR|owValue(|
|00001fa0| 69 2d 31 2c 69 43 69 74 | 79 2c 30 29 0d 0a 09 09 |i-1,iCit|y,0)....|
|00001fb0| 09 09 09 09 73 53 74 61 | 74 65 20 3d 33 44 20 72 |....sSta|te =3D r|
|00001fc0| 41 63 63 6f 75 6e 74 2e | 47 65 74 52 6f 77 56 61 |Account.|GetRowVa|
|00001fd0| 6c 75 65 28 69 2d 31 2c | 69 53 74 61 74 65 2c 30 |lue(i-1,|iState,0|
|00001fe0| 29 0d 0a 09 09 09 09 09 | 09 73 5a 69 70 20 3d 33 |).......|.sZip =3|
|00001ff0| 44 20 72 41 63 63 6f 75 | 6e 74 2e 47 65 74 52 6f |D rAccou|nt.GetRo|
|00002000| 77 56 61 6c 75 65 28 69 | 2d 31 2c 69 5a 69 70 2c |wValue(i|-1,iZip,|
|00002010| 30 29 0d 0a 09 09 09 09 | 09 09 73 43 6f 75 6e 74 |0)......|..sCount|
|00002020| 72 79 20 3d 33 44 20 72 | 41 63 63 6f 75 6e 74 2e |ry =3D r|Account.|
|00002030| 47 65 74 52 6f 77 56 61 | 6c 75 65 28 69 2d 31 2c |GetRowVa|lue(i-1,|
|00002040| 69 43 6f 75 6e 74 72 79 | 2c 30 29 0d 0a 09 09 09 |iCountry|,0).....|
|00002050| 09 09 4e 65 78 74 0d 0a | 09 09 09 09 0d 0a 09 09 |..Next..|........|
|00002060| 09 09 09 27 69 41 63 63 | 6f 75 6e 74 20 3d 33 44 |...'iAcc|ount =3D|
|00002070| 20 72 41 63 63 6f 75 6e | 74 2e 47 65 74 43 6f 6c | rAccoun|t.GetCol|
|00002080| 75 6d 6e 49 6e 64 65 78 | 28 22 61 63 63 6f 75 6e |umnIndex|("accoun|
|00002090| 74 4b 65 79 22 2c 30 29 | 0d 0a 09 09 09 09 09 27 |tKey",0)|.......'|
|000020a0| 46 6f 72 20 69 20 3d 33 | 44 20 31 20 74 6f 20 6e |For i =3|D 1 to n|
|000020b0| 41 63 63 6f 75 6e 74 0d | 0a 09 09 09 09 09 27 09 |Account.|......'.|
|000020c0| 73 41 63 63 6f 75 6e 74 | 20 3d 33 44 20 72 41 63 |sAccount| =3D rAc|
|000020d0| 63 6f 75 6e 74 2e 47 65 | 74 52 6f 77 56 61 6c 75 |count.Ge|tRowValu|
|000020e0| 65 28 69 2d 31 2c 69 41 | 63 63 6f 75 6e 74 2c 30 |e(i-1,iA|ccount,0|
|000020f0| 29 0d 0a 09 09 09 09 09 | 27 09 4e 65 78 74 0d 0a |).......|'.Next..|
|00002100| 09 09 09 09 09 27 75 72 | 6c 31 20 3d 33 44 20 77 |.....'ur|l1 =3D w|
|00002110| 63 2e 53 65 61 72 63 68 | 4e 65 77 73 28 73 41 63 |c.Search|News(sAc|
|00002120| 63 6f 75 6e 74 29 0d 0a | 09 09 09 09 09 27 75 72 |count)..|.....'ur|
|00002130| 6c 31 20 3d 33 44 20 77 | 63 2e 47 65 74 46 6c 69 |l1 =3D w|c.GetFli|
|00002140| 67 68 74 49 6e 66 6f 72 | 6d 61 74 69 6f 6e 28 29 |ghtInfor|mation()|
|00002150| 0d 0a 0d 0a 09 09 09 09 | 09 0d 0a 09 09 09 09 09 |........|........|
|00002160| 27 47 65 74 20 74 68 65 | 20 4d 65 20 69 74 65 6d |'Get the| Me item|
|00002170| 20 20 20 3d 32 30 0d 0a | 0d 0a 09 09 09 09 09 20 | =20..|....... |
|00002180| 20 20 20 66 6c 61 67 32 | 20 3d 33 44 20 47 65 74 | flag2| =3D Get|
|00002190| 4d 65 49 74 65 6d 28 63 | 75 72 32 29 0d 0a 09 09 |MeItem(c|ur2)....|
|000021a0| 09 09 09 20 20 20 20 27 | 20 64 69 64 20 77 65 20 |... '| did we |
|000021b0| 67 65 74 20 69 6e 66 6f | 20 61 62 6f 75 74 20 74 |get info| about t|
|000021c0| 68 65 20 61 63 74 69 76 | 65 20 22 43 6f 6e 74 61 |he activ|e "Conta|
|000021d0| 63 74 22 20 69 74 65 6d | 3f 0d 0a 09 09 09 09 09 |ct" item|?.......|
|000021e0| 20 20 20 20 49 66 20 4e | 6f 74 20 66 6c 61 67 32 | If N|ot flag2|
|000021f0| 20 54 68 65 6e 0d 0a 09 | 09 09 09 09 20 20 20 20 | Then...|.... |
|00002200| 20 20 20 20 4d 73 67 42 | 6f 78 20 22 50 6c 65 61 | MsgB|ox "Plea|
|00002210| 73 65 20 43 6f 6e 66 69 | 67 75 72 65 20 20 2d 4d |se Confi|gure -M|
|00002220| 65 2d 20 69 74 65 6d 20 | 69 6e 20 43 6f 6d 6d 65 |e- item |in Comme|
|00002230| 6e 63 65 2e 22 0d 0a 09 | 09 09 09 09 20 20 20 20 |nce."...|.... |
|00002240| 20 20 20 20 45 78 69 74 | 20 53 75 62 0d 0a 09 09 | Exit| Sub....|
|00002250| 09 09 09 20 20 20 20 65 | 6e 64 20 69 66 20 20 20 |... e|nd if |
|00002260| 3d 32 30 0d 0a 09 09 09 | 09 09 20 20 20 20 27 20 |=20.....|.. ' |
|00002270| 65 6c 73 65 20 77 65 20 | 67 6f 74 20 74 68 65 20 |else we |got the |
|00002280| 4d 65 20 69 74 65 6d 0d | 0a 09 09 09 09 09 20 20 |Me item.|...... |
|00002290| 20 3d 32 30 0d 0a 0d 0a | 09 09 09 09 09 20 20 20 | =20....|..... |
|000022a0| 20 63 75 72 32 2e 53 65 | 65 6b 52 6f 77 20 30 2c | cur2.Se|ekRow 0,|
|000022b0| 20 30 0d 0a 09 09 09 09 | 09 20 20 20 20 53 65 74 | 0......|. Set|
|000022c0| 20 71 72 73 32 20 3d 33 | 44 20 63 75 72 32 2e 47 | qrs2 =3|D cur2.G|
|000022d0| 65 74 51 75 65 72 79 52 | 6f 77 53 65 74 28 31 2c |etQueryR|owSet(1,|
|000022e0| 20 30 29 0d 0a 09 09 09 | 09 09 20 20 20 3d 32 30 | 0).....|.. =20|
|000022f0| 0d 0a 09 09 09 09 09 09 | 27 67 65 74 20 74 68 65 |........|'get the|
|00002300| 20 66 69 65 6c 64 20 76 | 61 6c 75 65 73 20 72 65 | field v|alues re|
|00002310| 71 75 69 72 65 64 20 62 | 79 20 77 2f 63 0d 0a 09 |quired b|y w/c...|
|00002320| 09 09 09 09 09 73 44 65 | 70 41 69 72 70 4e 61 6d |.....sDe|pAirpNam|
|00002330| 65 20 3d 33 44 20 47 65 | 74 43 69 74 79 56 61 6c |e =3D Ge|tCityVal|
|00002340| 75 65 4d 45 28 71 72 73 | 32 29 20 26 20 22 2c 20 |ueME(qrs|2) & ", |
|00002350| 22 20 26 20 20 47 65 74 | 53 74 61 74 65 56 61 6c |" & Get|StateVal|
|00002360| 75 65 4d 45 28 71 72 73 | 32 29 20 26 20 3d 0d 0a |ueME(qrs|2) & =..|
|00002370| 09 09 09 09 09 22 2c 20 | 22 20 26 20 47 65 74 5a |.....", |" & GetZ|
|00002380| 69 70 56 61 6c 75 65 4d | 45 28 71 72 73 32 29 0d |ipValueM|E(qrs2).|
|00002390| 0a 09 09 09 09 09 09 73 | 44 65 73 74 41 69 72 70 |.......s|DestAirp|
|000023a0| 4e 61 6d 65 20 3d 33 44 | 20 73 43 69 74 79 20 26 |Name =3D| sCity &|
|000023b0| 20 22 2c 20 22 20 26 20 | 20 73 53 74 61 74 65 20 | ", " & | sState |
|000023c0| 26 20 22 2c 20 22 20 3d | 0d 0a 09 09 09 09 09 26 |& ", " =|.......&|
|000023d0| 20 73 5a 69 70 0d 0a 09 | 09 09 09 09 09 73 44 65 | sZip...|.....sDe|
|000023e0| 70 44 61 74 65 20 3d 33 | 44 20 44 61 74 65 56 61 |pDate =3|D DateVa|
|000023f0| 6c 0d 0a 09 09 09 09 09 | 09 27 73 65 74 20 74 68 |l.......|.'set th|
|00002400| 65 20 72 65 74 75 72 6e | 20 64 61 74 65 20 61 73 |e return| date as|
|00002410| 20 74 6f 6d 6f 72 72 6f | 77 0d 0a 09 09 09 09 09 | tomorro|w.......|
|00002420| 09 73 52 65 74 75 72 6e | 44 61 74 65 20 3d 33 44 |.sReturn|Date =3D|
|00002430| 20 44 61 74 65 41 64 64 | 28 22 64 22 2c 31 2c 20 | DateAdd|("d",1, |
|00002440| 44 61 74 65 56 61 6c 29 | 0d 0a 09 09 09 09 09 3d |DateVal)|.......=|
|00002450| 30 39 0d 0a 0d 0a 09 09 | 09 09 09 20 20 75 72 6c |09......|... url|
|00002460| 31 20 3d 33 44 20 77 63 | 2e 47 65 74 46 6c 69 67 |1 =3D wc|.GetFlig|
|00002470| 68 74 57 69 7a 61 72 64 | 28 73 44 65 70 41 69 72 |htWizard|(sDepAir|
|00002480| 70 4e 61 6d 65 2c 20 73 | 44 65 73 74 41 69 72 70 |pName, s|DestAirp|
|00002490| 4e 61 6d 65 2c 20 73 44 | 65 70 44 61 74 65 2c 20 |Name, sD|epDate, |
|000024a0| 3d 0d 0a 09 09 09 09 09 | 73 52 65 74 75 72 6e 44 |=.......|sReturnD|
|000024b0| 61 74 65 29 0d 0a 09 09 | 09 09 09 20 20 20 3d 32 |ate)....|... =2|
|000024c0| 30 0d 0a 0d 0a 09 09 09 | 09 09 0d 0a 09 09 09 09 |0.......|........|
|000024d0| 09 70 61 72 65 6e 74 2e | 66 72 61 6d 65 73 28 22 |.parent.|frames("|
|000024e0| 4d 61 69 6e 22 29 2e 6c | 6f 63 61 74 69 6f 6e 2e |Main").l|ocation.|
|000024f0| 68 72 65 66 20 3d 33 44 | 20 75 72 6c 31 3d 30 39 |href =3D| url1=09|
|00002500| 0d 0a 09 09 09 09 3d 30 | 39 0d 0a 09 09 09 09 43 |......=0|9......C|
|00002510| 61 73 65 20 22 57 65 62 | 22 0d 0a 09 09 09 09 09 |ase "Web|".......|
|00002520| 27 69 41 63 63 6f 75 6e | 74 20 3d 33 44 20 72 41 |'iAccoun|t =3D rA|
|00002530| 63 63 6f 75 6e 74 2e 47 | 65 74 43 6f 6c 75 6d 6e |ccount.G|etColumn|
|00002540| 49 6e 64 65 78 28 22 61 | 63 63 6f 75 6e 74 4b 65 |Index("a|ccountKe|
|00002550| 79 22 2c 30 29 0d 0a 09 | 09 09 09 09 69 43 69 74 |y",0)...|....iCit|
|00002560| 79 20 3d 33 44 20 72 41 | 63 63 6f 75 6e 74 2e 47 |y =3D rA|ccount.G|
|00002570| 65 74 43 6f 6c 75 6d 6e | 49 6e 64 65 78 28 22 43 |etColumn|Index("C|
|00002580| 69 74 79 22 2c 30 29 0d | 0a 09 09 09 09 09 69 53 |ity",0).|......iS|
|00002590| 74 61 74 65 20 3d 33 44 | 20 72 41 63 63 6f 75 6e |tate =3D| rAccoun|
|000025a0| 74 2e 47 65 74 43 6f 6c | 75 6d 6e 49 6e 64 65 78 |t.GetCol|umnIndex|
|000025b0| 28 22 73 74 61 74 65 50 | 72 6f 76 69 6e 63 65 22 |("stateP|rovince"|
|000025c0| 2c 30 29 0d 0a 0d 0a 09 | 09 09 09 09 46 6f 72 20 |,0).....|....For |
|000025d0| 69 20 3d 33 44 20 31 20 | 74 6f 20 6e 41 63 63 6f |i =3D 1 |to nAcco|
|000025e0| 75 6e 74 0d 0a 09 09 09 | 09 09 09 27 73 41 63 63 |unt.....|...'sAcc|
|000025f0| 6f 75 6e 74 20 3d 33 44 | 20 72 41 63 63 6f 75 6e |ount =3D| rAccoun|
|00002600| 74 2e 47 65 74 52 6f 77 | 56 61 6c 75 65 28 69 2d |t.GetRow|Value(i-|
|00002610| 31 2c 69 41 63 63 6f 75 | 6e 74 2c 30 29 0d 0a 09 |1,iAccou|nt,0)...|
|00002620| 09 09 09 09 09 73 43 69 | 74 79 20 3d 33 44 20 72 |.....sCi|ty =3D r|
|00002630| 41 63 63 6f 75 6e 74 2e | 47 65 74 52 6f 77 56 61 |Account.|GetRowVa|
|00002640| 6c 75 65 28 69 2d 31 2c | 69 43 69 74 79 2c 30 29 |lue(i-1,|iCity,0)|
|00002650| 0d 0a 09 09 09 09 09 09 | 73 53 74 61 74 65 20 3d |........|sState =|
|00002660| 33 44 20 72 41 63 63 6f | 75 6e 74 2e 47 65 74 52 |3D rAcco|unt.GetR|
|00002670| 6f 77 56 61 6c 75 65 28 | 69 2d 31 2c 69 53 74 61 |owValue(|i-1,iSta|
|00002680| 74 65 2c 30 29 0d 0a 09 | 09 09 09 09 4e 65 78 74 |te,0)...|....Next|
|00002690| 0d 0a 09 09 09 09 09 27 | 75 72 6c 31 20 3d 33 44 |.......'|url1 =3D|
|000026a0| 20 77 63 2e 53 65 61 72 | 63 68 54 65 78 74 28 73 | wc.Sear|chText(s|
|000026b0| 41 63 63 6f 75 6e 74 29 | 0d 0a 09 09 09 09 09 75 |Account)|.......u|
|000026c0| 72 6c 31 20 3d 33 44 20 | 77 63 2e 44 69 72 65 63 |rl1 =3D |wc.Direc|
|000026d0| 74 6f 72 79 43 6f 6d 70 | 61 6e 79 20 28 22 22 2c |toryComp|any ("",|
|000026e0| 20 73 43 69 74 79 2c 20 | 73 53 74 61 74 65 29 0d | sCity, |sState).|
|000026f0| 0a 09 09 09 09 09 70 61 | 72 65 6e 74 2e 66 72 61 |......pa|rent.fra|
|00002700| 6d 65 73 28 22 4d 61 69 | 6e 22 29 2e 6c 6f 63 61 |mes("Mai|n").loca|
|00002710| 74 69 6f 6e 2e 68 72 65 | 66 20 3d 33 44 20 75 72 |tion.hre|f =3D ur|
|00002720| 6c 31 09 3d 30 39 0d 0a | 09 09 09 3d 30 39 0d 0a |l1.=09..|...=09..|
|00002730| 09 09 09 09 43 61 73 65 | 20 22 57 65 62 73 69 74 |....Case| "Websit|
|00002740| 65 22 3d 30 39 0d 0a 09 | 09 09 09 09 69 57 65 62 |e"=09...|....iWeb|
|00002750| 73 69 74 65 20 3d 33 44 | 20 72 41 63 63 6f 75 6e |site =3D| rAccoun|
|00002760| 74 2e 47 65 74 43 6f 6c | 75 6d 6e 49 6e 64 65 78 |t.GetCol|umnIndex|
|00002770| 28 22 57 65 62 73 69 74 | 65 22 2c 30 29 0d 0a 09 |("Websit|e",0)...|
|00002780| 09 09 09 09 46 6f 72 20 | 69 20 3d 33 44 20 31 20 |....For |i =3D 1 |
|00002790| 74 6f 20 6e 41 63 63 6f | 75 6e 74 0d 0a 09 09 09 |to nAcco|unt.....|
|000027a0| 09 09 09 73 57 65 62 73 | 69 74 65 20 3d 33 44 20 |...sWebs|ite =3D |
|000027b0| 72 41 63 63 6f 75 6e 74 | 2e 47 65 74 52 6f 77 56 |rAccount|.GetRowV|
|000027c0| 61 6c 75 65 28 69 2d 31 | 2c 69 57 65 62 73 69 74 |alue(i-1|,iWebsit|
|000027d0| 65 2c 30 29 0d 0a 09 09 | 09 09 09 09 49 66 20 4c |e,0)....|....If L|
|000027e0| 65 66 74 28 73 57 65 62 | 73 69 74 65 2c 37 29 20 |eft(sWeb|site,7) |
|000027f0| 3c 3e 20 22 68 74 74 70 | 3a 2f 2f 22 20 54 68 65 |<> "http|://" The|
|00002800| 6e 0d 0a 09 09 09 09 09 | 09 09 73 57 65 62 73 69 |n.......|..sWebsi|
|00002810| 74 65 20 3d 33 44 20 22 | 68 74 74 70 3a 2f 2f 22 |te =3D "|http://"|
|00002820| 20 26 20 73 57 65 62 73 | 69 74 65 0d 0a 09 09 09 | & sWebs|ite.....|
|00002830| 09 09 09 45 6e 64 20 69 | 66 0d 0a 09 09 09 09 09 |...End i|f.......|
|00002840| 4e 65 78 74 0d 0a 09 09 | 09 09 09 70 61 72 65 6e |Next....|...paren|
|00002850| 74 2e 66 72 61 6d 65 73 | 28 22 4d 61 69 6e 22 29 |t.frames|("Main")|
|00002860| 2e 6c 6f 63 61 74 69 6f | 6e 2e 68 72 65 66 20 3d |.locatio|n.href =|
|00002870| 33 44 20 73 57 65 62 73 | 69 74 65 09 09 09 09 09 |3D sWebs|ite.....|
|00002880| 09 09 09 09 09 09 09 09 | 09 09 3d 30 39 0d 0a 09 |........|..=09...|
|00002890| 09 3d 30 39 0d 0a 09 09 | 09 45 6e 64 20 53 65 6c |.=09....|.End Sel|
|000028a0| 65 63 74 0d 0a 09 09 3d | 30 39 0d 0a 09 09 43 61 |ect....=|09....Ca|
|000028b0| 73 65 20 22 43 6f 6d 6d | 65 6e 63 65 20 52 4d 20 |se "Comm|ence RM |
|000028c0| 57 65 62 20 53 65 61 72 | 63 68 20 4d 79 22 0d 0a |Web Sear|ch My"..|
|000028d0| 09 09 09 75 20 3d 33 44 | 20 46 69 6e 64 49 74 65 |...u =3D| FindIte|
|000028e0| 6d 28 22 4d 79 20 41 63 | 63 6f 75 6e 74 73 20 52 |m("My Ac|counts R|
|000028f0| 65 76 69 65 77 22 29 0d | 0a 09 09 3d 30 39 0d 0a |eview").|...=09..|
|00002900| 09 09 09 27 20 73 6f 20 | 6c 65 74 27 73 20 66 69 |...' so |let's fi|
|00002910| 6e 64 20 74 68 65 20 74 | 69 63 6b 65 72 20 73 79 |nd the t|icker sy|
|00002920| 6d 62 6f 6c 20 75 73 69 | 6e 67 20 74 68 65 20 41 |mbol usi|ng the A|
|00002930| 50 49 0d 0a 09 09 09 53 | 65 74 20 63 41 63 63 6f |PI.....S|et cAcco|
|00002940| 75 6e 74 20 3d 33 44 20 | 43 6f 6d 6d 65 6e 63 65 |unt =3D |Commence|
|00002950| 44 42 2e 47 65 74 43 75 | 72 73 6f 72 28 30 2c 22 |DB.GetCu|rsor(0,"|
|00002960| 41 63 63 6f 75 6e 74 22 | 2c 30 29 0d 0a 09 09 09 |Account"|,0).....|
|00002970| 3d 30 39 0d 0a 09 09 09 | 63 41 63 63 6f 75 6e 74 |=09.....|cAccount|
|00002980| 2e 53 65 74 46 69 6c 74 | 65 72 20 22 5b 56 69 65 |.SetFilt|er "[Vie|
|00002990| 77 46 69 6c 74 65 72 28 | 31 2c 46 2c 2c 22 22 61 |wFilter(|1,F,,""a|
|000029a0| 63 63 6f 75 6e 74 4b 65 | 79 22 22 2c 45 71 75 61 |ccountKe|y"",Equa|
|000029b0| 6c 20 3d 0d 0a 74 6f 2c | 22 22 22 2b 54 72 69 6d |l =..to,|"""+Trim|
|000029c0| 28 75 28 30 29 29 2b 22 | 22 22 2c 29 5d 22 2c 30 |(u(0))+"|"",)]",0|
|000029d0| 0d 0a 09 09 09 63 41 63 | 63 6f 75 6e 74 2e 53 65 |.....cAc|count.Se|
|000029e0| 74 46 69 6c 74 65 72 20 | 22 5b 56 69 65 77 46 69 |tFilter |"[ViewFi|
|000029f0| 6c 74 65 72 28 32 2c 46 | 2c 2c 22 22 62 75 73 69 |lter(2,F|,,""busi|
|00002a00| 6e 65 73 73 4e 75 6d 62 | 65 72 22 22 2c 45 71 75 |nessNumb|er"",Equ|
|00002a10| 61 6c 20 3d 0d 0a 74 6f | 2c 22 22 22 2b 54 72 69 |al =..to|,"""+Tri|
|00002a20| 6d 28 75 28 31 29 29 2b | 22 22 22 2c 29 5d 22 2c |m(u(1))+|""",)]",|
|00002a30| 30 0d 0a 0d 0a 09 09 09 | 6e 41 63 63 6f 75 6e 74 |0.......|nAccount|
|00002a40| 20 3d 33 44 20 63 41 63 | 63 6f 75 6e 74 2e 52 6f | =3D cAc|count.Ro|
|00002a50| 77 43 6f 75 6e 74 0d 0a | 0d 0a 09 09 09 53 65 74 |wCount..|.....Set|
|00002a60| 20 72 41 63 63 6f 75 6e | 74 20 3d 33 44 20 63 41 | rAccoun|t =3D cA|
|00002a70| 63 63 6f 75 6e 74 2e 47 | 65 74 45 64 69 74 52 6f |ccount.G|etEditRo|
|00002a80| 77 53 65 74 28 6e 41 63 | 63 6f 75 6e 74 2c 30 29 |wSet(nAc|count,0)|
|00002a90| 0d 0a 0d 0a 09 09 09 53 | 65 6c 65 63 74 20 43 61 |.......S|elect Ca|
|00002aa0| 73 65 20 76 54 79 70 65 | 0d 0a 09 09 09 09 43 61 |se vType|......Ca|
|00002ab0| 73 65 20 22 53 74 6f 63 | 6b 22 0d 0a 09 09 09 09 |se "Stoc|k"......|
|00002ac0| 09 69 54 69 63 6b 65 72 | 20 3d 33 44 20 72 41 63 |.iTicker| =3D rAc|
|00002ad0| 63 6f 75 6e 74 2e 47 65 | 74 43 6f 6c 75 6d 6e 49 |count.Ge|tColumnI|
|00002ae0| 6e 64 65 78 28 22 54 69 | 63 6b 65 72 22 2c 30 29 |ndex("Ti|cker",0)|
|00002af0| 0d 0a 09 09 09 09 09 46 | 6f 72 20 69 20 3d 33 44 |.......F|or i =3D|
|00002b00| 20 31 20 74 6f 20 6e 41 | 63 63 6f 75 6e 74 0d 0a | 1 to nA|ccount..|
|00002b10| 09 09 09 09 09 09 73 54 | 69 63 6b 65 72 20 3d 33 |......sT|icker =3|
|00002b20| 44 20 72 41 63 63 6f 75 | 6e 74 2e 47 65 74 52 6f |D rAccou|nt.GetRo|
|00002b30| 77 56 61 6c 75 65 28 69 | 2d 31 2c 69 54 69 63 6b |wValue(i|-1,iTick|
|00002b40| 65 72 2c 30 29 0d 0a 09 | 09 09 09 09 4e 65 78 74 |er,0)...|....Next|
|00002b50| 0d 0a 09 09 09 09 09 75 | 72 6c 31 20 3d 33 44 20 |.......u|rl1 =3D |
|00002b60| 77 63 2e 47 65 74 53 74 | 6f 63 6b 51 75 6f 74 65 |wc.GetSt|ockQuote|
|00002b70| 28 73 54 69 63 6b 65 72 | 29 0d 0a 09 09 09 09 09 |(sTicker|).......|
|00002b80| 70 61 72 65 6e 74 2e 66 | 72 61 6d 65 73 28 22 4d |parent.f|rames("M|
|00002b90| 61 69 6e 22 29 2e 6c 6f | 63 61 74 69 6f 6e 2e 68 |ain").lo|cation.h|
|00002ba0| 72 65 66 20 3d 33 44 20 | 75 72 6c 31 0d 0a 09 09 |ref =3D |url1....|
|00002bb0| 09 09 3d 30 39 0d 0a 09 | 09 09 09 43 61 73 65 20 |..=09...|...Case |
|00002bc0| 22 57 65 61 74 68 65 72 | 22 0d 0a 09 09 09 09 09 |"Weather|".......|
|00002bd0| 69 5a 69 70 20 3d 33 44 | 20 72 41 63 63 6f 75 6e |iZip =3D| rAccoun|
|00002be0| 74 2e 47 65 74 43 6f 6c | 75 6d 6e 49 6e 64 65 78 |t.GetCol|umnIndex|
|00002bf0| 28 22 7a 69 70 50 6f 73 | 74 61 6c 22 2c 30 29 0d |("zipPos|tal",0).|
|00002c00| 0a 09 09 09 09 09 46 6f | 72 20 69 20 3d 33 44 20 |......Fo|r i =3D |
|00002c10| 31 20 74 6f 20 6e 41 63 | 63 6f 75 6e 74 0d 0a 09 |1 to nAc|count...|
|00002c20| 09 09 09 09 09 73 5a 69 | 70 20 3d 33 44 20 72 41 |.....sZi|p =3D rA|
|00002c30| 63 63 6f 75 6e 74 2e 47 | 65 74 52 6f 77 56 61 6c |ccount.G|etRowVal|
|00002c40| 75 65 28 69 2d 31 2c 69 | 5a 69 70 2c 30 29 0d 0a |ue(i-1,i|Zip,0)..|
|00002c50| 09 09 09 09 09 4e 65 78 | 74 0d 0a 09 09 09 09 09 |.....Nex|t.......|
|00002c60| 75 72 6c 31 20 3d 33 44 | 20 77 63 2e 47 65 74 57 |url1 =3D| wc.GetW|
|00002c70| 65 61 74 68 65 72 28 73 | 5a 69 70 29 0d 0a 09 09 |eather(s|Zip)....|
|00002c80| 09 09 09 70 61 72 65 6e | 74 2e 66 72 61 6d 65 73 |...paren|t.frames|
|00002c90| 28 22 4d 61 69 6e 22 29 | 2e 6c 6f 63 61 74 69 6f |("Main")|.locatio|
|00002ca0| 6e 2e 68 72 65 66 20 3d | 33 44 20 75 72 6c 31 0d |n.href =|3D url1.|
|00002cb0| 0a 09 09 09 09 3d 30 39 | 0d 0a 09 09 09 09 43 61 |.....=09|......Ca|
|00002cc0| 73 65 20 22 4d 61 70 22 | 0d 0a 09 09 09 09 09 69 |se "Map"|.......i|
|00002cd0| 53 74 72 65 65 74 20 3d | 33 44 20 72 41 63 63 6f |Street =|3D rAcco|
|00002ce0| 75 6e 74 2e 47 65 74 43 | 6f 6c 75 6d 6e 49 6e 64 |unt.GetC|olumnInd|
|00002cf0| 65 78 28 22 41 64 64 72 | 65 73 73 22 2c 30 29 0d |ex("Addr|ess",0).|
|00002d00| 0a 09 09 09 09 09 69 43 | 69 74 79 20 3d 33 44 20 |......iC|ity =3D |
|00002d10| 72 41 63 63 6f 75 6e 74 | 2e 47 65 74 43 6f 6c 75 |rAccount|.GetColu|
|00002d20| 6d 6e 49 6e 64 65 78 28 | 22 43 69 74 79 22 2c 30 |mnIndex(|"City",0|
|00002d30| 29 0d 0a 09 09 09 09 09 | 69 53 74 61 74 65 20 3d |).......|iState =|
|00002d40| 33 44 20 72 41 63 63 6f | 75 6e 74 2e 47 65 74 43 |3D rAcco|unt.GetC|
|00002d50| 6f 6c 75 6d 6e 49 6e 64 | 65 78 28 22 73 74 61 74 |olumnInd|ex("stat|
|00002d60| 65 50 72 6f 76 69 6e 63 | 65 22 2c 30 29 0d 0a 09 |eProvinc|e",0)...|
|00002d70| 09 09 09 09 69 5a 69 70 | 20 3d 33 44 20 72 41 63 |....iZip| =3D rAc|
|00002d80| 63 6f 75 6e 74 2e 47 65 | 74 43 6f 6c 75 6d 6e 49 |count.Ge|tColumnI|
|00002d90| 6e 64 65 78 28 22 7a 69 | 70 50 6f 73 74 61 6c 22 |ndex("zi|pPostal"|
|00002da0| 2c 30 29 0d 0a 09 09 09 | 09 09 69 43 6f 75 6e 74 |,0).....|..iCount|
|00002db0| 72 79 20 3d 33 44 20 72 | 41 63 63 6f 75 6e 74 2e |ry =3D r|Account.|
|00002dc0| 47 65 74 43 6f 6c 75 6d | 6e 49 6e 64 65 78 28 22 |GetColum|nIndex("|
|00002dd0| 43 6f 75 6e 74 72 79 22 | 2c 30 29 0d 0a 09 09 09 |Country"|,0).....|
|00002de0| 09 09 46 6f 72 20 69 20 | 3d 33 44 20 31 20 74 6f |..For i |=3D 1 to|
|00002df0| 20 6e 41 63 63 6f 75 6e | 74 0d 0a 09 09 09 09 09 | nAccoun|t.......|
|00002e00| 09 73 53 74 72 65 65 74 | 20 3d 33 44 20 72 41 63 |.sStreet| =3D rAc|
|00002e10| 63 6f 75 6e 74 2e 47 65 | 74 52 6f 77 56 61 6c 75 |count.Ge|tRowValu|
|00002e20| 65 28 69 2d 31 2c 69 53 | 74 72 65 65 74 2c 30 29 |e(i-1,iS|treet,0)|
|00002e30| 0d 0a 09 09 09 09 09 09 | 73 43 69 74 79 20 3d 33 |........|sCity =3|
|00002e40| 44 20 72 41 63 63 6f 75 | 6e 74 2e 47 65 74 52 6f |D rAccou|nt.GetRo|
|00002e50| 77 56 61 6c 75 65 28 69 | 2d 31 2c 69 43 69 74 79 |wValue(i|-1,iCity|
|00002e60| 2c 30 29 0d 0a 09 09 09 | 09 09 09 73 53 74 61 74 |,0).....|...sStat|
|00002e70| 65 20 3d 33 44 20 72 41 | 63 63 6f 75 6e 74 2e 47 |e =3D rA|ccount.G|
|00002e80| 65 74 52 6f 77 56 61 6c | 75 65 28 69 2d 31 2c 69 |etRowVal|ue(i-1,i|
|00002e90| 53 74 61 74 65 2c 30 29 | 0d 0a 09 09 09 09 09 09 |State,0)|........|
|00002ea0| 73 5a 69 70 20 3d 33 44 | 20 72 41 63 63 6f 75 6e |sZip =3D| rAccoun|
|00002eb0| 74 2e 47 65 74 52 6f 77 | 56 61 6c 75 65 28 69 2d |t.GetRow|Value(i-|
|00002ec0| 31 2c 69 5a 69 70 2c 30 | 29 0d 0a 09 09 09 09 09 |1,iZip,0|).......|
|00002ed0| 09 73 43 6f 75 6e 74 72 | 79 20 3d 33 44 20 72 41 |.sCountr|y =3D rA|
|00002ee0| 63 63 6f 75 6e 74 2e 47 | 65 74 52 6f 77 56 61 6c |ccount.G|etRowVal|
|00002ef0| 75 65 28 69 2d 31 2c 69 | 43 6f 75 6e 74 72 79 2c |ue(i-1,i|Country,|
|00002f00| 30 29 0d 0a 09 09 09 09 | 09 4e 65 78 74 0d 0a 09 |0)......|.Next...|
|00002f10| 09 09 09 09 75 72 6c 31 | 20 3d 33 44 20 77 63 2e |....url1| =3D wc.|
|00002f20| 47 65 74 4d 61 70 28 73 | 53 74 72 65 65 74 2c 73 |GetMap(s|Street,s|
|00002f30| 43 69 74 79 2c 73 53 74 | 61 74 65 2c 73 5a 69 70 |City,sSt|ate,sZip|
|00002f40| 2c 73 43 6f 75 6e 74 72 | 79 29 0d 0a 09 09 09 09 |,sCountr|y)......|
|00002f50| 09 70 61 72 65 6e 74 2e | 66 72 61 6d 65 73 28 22 |.parent.|frames("|
|00002f60| 4d 61 69 6e 22 29 2e 6c | 6f 63 61 74 69 6f 6e 2e |Main").l|ocation.|
|00002f70| 68 72 65 66 20 3d 33 44 | 20 75 72 6c 31 0d 0a 09 |href =3D| url1...|
|00002f80| 09 09 09 3d 30 39 0d 0a | 09 09 09 09 43 61 73 65 |...=09..|....Case|
|00002f90| 20 22 44 69 72 65 63 74 | 69 6f 6e 73 22 0d 0a 09 | "Direct|ions"...|
|00002fa0| 09 09 09 09 69 53 74 72 | 65 65 74 20 3d 33 44 20 |....iStr|eet =3D |
|00002fb0| 72 41 63 63 6f 75 6e 74 | 2e 47 65 74 43 6f 6c 75 |rAccount|.GetColu|
|00002fc0| 6d 6e 49 6e 64 65 78 28 | 22 41 64 64 72 65 73 73 |mnIndex(|"Address|
|00002fd0| 22 2c 30 29 0d 0a 09 09 | 09 09 09 69 43 69 74 79 |",0)....|...iCity|
|00002fe0| 20 3d 33 44 20 72 41 63 | 63 6f 75 6e 74 2e 47 65 | =3D rAc|count.Ge|
|00002ff0| 74 43 6f 6c 75 6d 6e 49 | 6e 64 65 78 28 22 43 69 |tColumnI|ndex("Ci|
|00003000| 74 79 22 2c 30 29 0d 0a | 09 09 09 09 09 69 53 74 |ty",0)..|.....iSt|
|00003010| 61 74 65 20 3d 33 44 20 | 72 41 63 63 6f 75 6e 74 |ate =3D |rAccount|
|00003020| 2e 47 65 74 43 6f 6c 75 | 6d 6e 49 6e 64 65 78 28 |.GetColu|mnIndex(|
|00003030| 22 73 74 61 74 65 50 72 | 6f 76 69 6e 63 65 22 2c |"statePr|ovince",|
|00003040| 30 29 0d 0a 09 09 09 09 | 09 69 5a 69 70 20 3d 33 |0)......|.iZip =3|
|00003050| 44 20 72 41 63 63 6f 75 | 6e 74 2e 47 65 74 43 6f |D rAccou|nt.GetCo|
|00003060| 6c 75 6d 6e 49 6e 64 65 | 78 28 22 7a 69 70 50 6f |lumnInde|x("zipPo|
|00003070| 73 74 61 6c 22 2c 30 29 | 0d 0a 09 09 09 09 09 69 |stal",0)|.......i|
|00003080| 43 6f 75 6e 74 72 79 20 | 3d 33 44 20 72 41 63 63 |Country |=3D rAcc|
|00003090| 6f 75 6e 74 2e 47 65 74 | 43 6f 6c 75 6d 6e 49 6e |ount.Get|ColumnIn|
|000030a0| 64 65 78 28 22 43 6f 75 | 6e 74 72 79 22 2c 30 29 |dex("Cou|ntry",0)|
|000030b0| 0d 0a 09 09 09 09 09 46 | 6f 72 20 69 20 3d 33 44 |.......F|or i =3D|
|000030c0| 20 31 20 74 6f 20 6e 41 | 63 63 6f 75 6e 74 0d 0a | 1 to nA|ccount..|
|000030d0| 09 09 09 09 09 09 73 53 | 74 72 65 65 74 20 3d 33 |......sS|treet =3|
|000030e0| 44 20 72 41 63 63 6f 75 | 6e 74 2e 47 65 74 52 6f |D rAccou|nt.GetRo|
|000030f0| 77 56 61 6c 75 65 28 69 | 2d 31 2c 69 53 74 72 65 |wValue(i|-1,iStre|
|00003100| 65 74 2c 30 29 0d 0a 09 | 09 09 09 09 09 73 43 69 |et,0)...|.....sCi|
|00003110| 74 79 20 3d 33 44 20 72 | 41 63 63 6f 75 6e 74 2e |ty =3D r|Account.|
|00003120| 47 65 74 52 6f 77 56 61 | 6c 75 65 28 69 2d 31 2c |GetRowVa|lue(i-1,|
|00003130| 69 43 69 74 79 2c 30 29 | 0d 0a 09 09 09 09 09 09 |iCity,0)|........|
|00003140| 73 53 74 61 74 65 20 3d | 33 44 20 72 41 63 63 6f |sState =|3D rAcco|
|00003150| 75 6e 74 2e 47 65 74 52 | 6f 77 56 61 6c 75 65 28 |unt.GetR|owValue(|
|00003160| 69 2d 31 2c 69 53 74 61 | 74 65 2c 30 29 0d 0a 09 |i-1,iSta|te,0)...|
|00003170| 09 09 09 09 09 73 5a 69 | 70 20 3d 33 44 20 72 41 |.....sZi|p =3D rA|
|00003180| 63 63 6f 75 6e 74 2e 47 | 65 74 52 6f 77 56 61 6c |ccount.G|etRowVal|
|00003190| 75 65 28 69 2d 31 2c 69 | 5a 69 70 2c 30 29 0d 0a |ue(i-1,i|Zip,0)..|
|000031a0| 09 09 09 09 09 09 73 43 | 6f 75 6e 74 72 79 20 3d |......sC|ountry =|
|000031b0| 33 44 20 72 41 63 63 6f | 75 6e 74 2e 47 65 74 52 |3D rAcco|unt.GetR|
|000031c0| 6f 77 56 61 6c 75 65 28 | 69 2d 31 2c 69 43 6f 75 |owValue(|i-1,iCou|
|000031d0| 6e 74 72 79 2c 30 29 0d | 0a 09 09 09 09 09 4e 65 |ntry,0).|......Ne|
|000031e0| 78 74 0d 0a 09 09 09 09 | 3d 30 39 0d 0a 09 09 09 |xt......|=09.....|
|000031f0| 09 09 27 47 65 74 20 74 | 68 65 20 4d 65 20 69 74 |..'Get t|he Me it|
|00003200| 65 6d 20 20 20 3d 32 30 | 0d 0a 0d 0a 09 09 09 09 |em =20|........|
|00003210| 20 20 20 20 66 6c 61 67 | 32 20 3d 33 44 20 47 65 | flag|2 =3D Ge|
|00003220| 74 4d 65 49 74 65 6d 28 | 63 75 72 32 29 0d 0a 09 |tMeItem(|cur2)...|
|00003230| 09 09 09 20 20 20 20 27 | 20 64 69 64 20 77 65 20 |... '| did we |
|00003240| 67 65 74 20 69 6e 66 6f | 20 61 62 6f 75 74 20 74 |get info| about t|
|00003250| 68 65 20 61 63 74 69 76 | 65 20 22 43 6f 6e 74 61 |he activ|e "Conta|
|00003260| 63 74 22 20 69 74 65 6d | 3f 0d 0a 09 09 09 09 20 |ct" item|?...... |
|00003270| 20 20 20 49 66 20 4e 6f | 74 20 66 6c 61 67 32 20 | If No|t flag2 |
|00003280| 54 68 65 6e 0d 0a 09 09 | 09 09 20 20 20 20 20 20 |Then....|.. |
|00003290| 20 20 4d 73 67 42 6f 78 | 20 22 50 6c 65 61 73 65 | MsgBox| "Please|
|000032a0| 20 43 6f 6e 66 69 67 75 | 72 65 20 20 2d 4d 65 2d | Configu|re -Me-|
|000032b0| 20 69 74 65 6d 20 69 6e | 20 43 6f 6d 6d 65 6e 63 | item in| Commenc|
|000032c0| 65 2e 22 0d 0a 09 09 09 | 09 20 20 20 20 20 20 20 |e.".....|. |
|000032d0| 20 45 78 69 74 20 53 75 | 62 0d 0a 09 09 09 09 20 | Exit Su|b...... |
|000032e0| 20 20 20 65 6e 64 20 69 | 66 20 20 20 3d 32 30 0d | end i|f =20.|
|000032f0| 0a 09 09 09 09 20 20 20 | 20 27 20 65 6c 73 65 20 |..... | ' else |
|00003300| 77 65 20 67 6f 74 20 74 | 68 65 20 4d 65 20 69 74 |we got t|he Me it|
|00003310| 65 6d 0d 0a 09 09 09 09 | 20 20 20 3d 32 30 0d 0a |em......| =20..|
|00003320| 0d 0a 09 09 09 09 20 20 | 20 20 63 75 72 32 2e 53 |...... | cur2.S|
|00003330| 65 65 6b 52 6f 77 20 30 | 2c 20 30 0d 0a 09 09 09 |eekRow 0|, 0.....|
|00003340| 09 20 20 20 20 53 65 74 | 20 71 72 73 32 20 3d 33 |. Set| qrs2 =3|
|00003350| 44 20 63 75 72 32 2e 47 | 65 74 51 75 65 72 79 52 |D cur2.G|etQueryR|
|00003360| 6f 77 53 65 74 28 31 2c | 20 30 29 0d 0a 09 09 09 |owSet(1,| 0).....|
|00003370| 09 20 20 20 3d 32 30 0d | 0a 09 09 09 09 09 20 20 |. =20.|...... |
|00003380| 20 0d 0a 09 09 09 09 09 | 27 67 65 74 20 74 68 65 | .......|'get the|
|00003390| 20 66 69 65 6c 64 20 76 | 61 6c 75 65 73 20 72 65 | field v|alues re|
|000033a0| 71 75 69 72 65 64 20 62 | 79 20 77 2f 63 0d 0a 09 |quired b|y w/c...|
|000033b0| 09 09 09 09 73 41 64 64 | 72 65 73 73 4d 65 20 3d |....sAdd|ressMe =|
|000033c0| 33 44 20 47 65 74 41 64 | 64 72 65 73 73 56 61 6c |3D GetAd|dressVal|
|000033d0| 75 65 4d 45 28 71 72 73 | 32 29 0d 0a 09 09 09 09 |ueME(qrs|2)......|
|000033e0| 09 73 43 69 74 79 4d 65 | 20 3d 33 44 20 47 65 74 |.sCityMe| =3D Get|
|000033f0| 43 69 74 79 56 61 6c 75 | 65 4d 45 28 71 72 73 32 |CityValu|eME(qrs2|
|00003400| 29 0d 0a 09 09 09 09 09 | 73 53 74 61 74 65 4d 65 |).......|sStateMe|
|00003410| 20 3d 33 44 20 47 65 74 | 53 74 61 74 65 56 61 6c | =3D Get|StateVal|
|00003420| 75 65 4d 45 28 71 72 73 | 32 29 0d 0a 09 09 09 09 |ueME(qrs|2)......|
|00003430| 09 73 5a 69 70 4d 65 20 | 3d 33 44 20 47 65 74 5a |.sZipMe |=3D GetZ|
|00003440| 69 70 56 61 6c 75 65 4d | 45 28 71 72 73 32 29 0d |ipValueM|E(qrs2).|
|00003450| 0a 09 09 09 09 09 73 43 | 6f 75 6e 74 72 79 4d 65 |......sC|ountryMe|
|00003460| 20 3d 33 44 20 20 47 65 | 74 43 6f 75 6e 74 72 79 | =3D Ge|tCountry|
|00003470| 56 61 6c 75 65 4d 45 28 | 71 72 73 32 29 0d 0a 09 |ValueME(|qrs2)...|
|00003480| 09 09 09 09 3d 30 39 0d | 0a 09 09 09 09 09 75 72 |....=09.|......ur|
|00003490| 6c 31 20 20 3d 33 44 20 | 77 63 2e 47 65 74 44 69 |l1 =3D |wc.GetDi|
|000034a0| 72 65 63 74 69 6f 6e 73 | 28 73 41 64 64 72 65 73 |rections|(sAddres|
|000034b0| 73 4d 65 2c 73 43 69 74 | 79 4d 65 2c 73 53 74 61 |sMe,sCit|yMe,sSta|
|000034c0| 74 65 4d 65 2c 73 5a 69 | 70 4d 65 2c 73 43 6f 75 |teMe,sZi|pMe,sCou|
|000034d0| 6e 74 72 79 4d 65 2c 73 | 53 74 72 65 65 74 2c 73 |ntryMe,s|Street,s|
|000034e0| 43 69 74 79 2c 73 53 74 | 61 74 65 2c 73 5a 69 70 |City,sSt|ate,sZip|
|000034f0| 2c 73 43 6f 75 6e 74 72 | 79 29 0d 0a 09 09 09 09 |,sCountr|y)......|
|00003500| 09 0d 0a 09 09 09 09 09 | 70 61 72 65 6e 74 2e 66 |........|parent.f|
|00003510| 72 61 6d 65 73 28 22 4d | 61 69 6e 22 29 2e 6c 6f |rames("M|ain").lo|
|00003520| 63 61 74 69 6f 6e 2e 68 | 72 65 66 20 3d 33 44 20 |cation.h|ref =3D |
|00003530| 75 72 6c 31 3d 30 39 0d | 0a 09 09 09 3d 30 39 0d |url1=09.|....=09.|
|00003540| 0a 09 09 09 09 27 43 61 | 73 65 20 22 4e 65 77 73 |.....'Ca|se "News|
|00003550| 22 0d 0a 09 09 09 09 43 | 61 73 65 20 22 54 72 61 |"......C|ase "Tra|
|00003560| 76 65 6c 22 0d 0a 09 09 | 09 09 09 69 53 74 72 65 |vel"....|...iStre|
|00003570| 65 74 20 3d 33 44 20 72 | 41 63 63 6f 75 6e 74 2e |et =3D r|Account.|
|00003580| 47 65 74 43 6f 6c 75 6d | 6e 49 6e 64 65 78 28 22 |GetColum|nIndex("|
|00003590| 41 64 64 72 65 73 73 22 | 2c 30 29 0d 0a 09 09 09 |Address"|,0).....|
|000035a0| 09 09 69 43 69 74 79 20 | 3d 33 44 20 72 41 63 63 |..iCity |=3D rAcc|
|000035b0| 6f 75 6e 74 2e 47 65 74 | 43 6f 6c 75 6d 6e 49 6e |ount.Get|ColumnIn|
|000035c0| 64 65 78 28 22 43 69 74 | 79 22 2c 30 29 0d 0a 09 |dex("Cit|y",0)...|
|000035d0| 09 09 09 09 69 53 74 61 | 74 65 20 3d 33 44 20 72 |....iSta|te =3D r|
|000035e0| 41 63 63 6f 75 6e 74 2e | 47 65 74 43 6f 6c 75 6d |Account.|GetColum|
|000035f0| 6e 49 6e 64 65 78 28 22 | 73 74 61 74 65 50 72 6f |nIndex("|statePro|
|00003600| 76 69 6e 63 65 22 2c 30 | 29 0d 0a 09 09 09 09 09 |vince",0|).......|
|00003610| 69 5a 69 70 20 3d 33 44 | 20 72 41 63 63 6f 75 6e |iZip =3D| rAccoun|
|00003620| 74 2e 47 65 74 43 6f 6c | 75 6d 6e 49 6e 64 65 78 |t.GetCol|umnIndex|
|00003630| 28 22 7a 69 70 50 6f 73 | 74 61 6c 22 2c 30 29 0d |("zipPos|tal",0).|
|00003640| 0a 09 09 09 09 09 69 43 | 6f 75 6e 74 72 79 20 3d |......iC|ountry =|
|00003650| 33 44 20 72 41 63 63 6f | 75 6e 74 2e 47 65 74 43 |3D rAcco|unt.GetC|
|00003660| 6f 6c 75 6d 6e 49 6e 64 | 65 78 28 22 43 6f 75 6e |olumnInd|ex("Coun|
|00003670| 74 72 79 22 2c 30 29 0d | 0a 09 09 09 09 09 46 6f |try",0).|......Fo|
|00003680| 72 20 69 20 3d 33 44 20 | 31 20 74 6f 20 6e 41 63 |r i =3D |1 to nAc|
|00003690| 63 6f 75 6e 74 0d 0a 09 | 09 09 09 09 09 73 53 74 |count...|.....sSt|
|000036a0| 72 65 65 74 20 3d 33 44 | 20 72 41 63 63 6f 75 6e |reet =3D| rAccoun|
|000036b0| 74 2e 47 65 74 52 6f 77 | 56 61 6c 75 65 28 69 2d |t.GetRow|Value(i-|
|000036c0| 31 2c 69 53 74 72 65 65 | 74 2c 30 29 0d 0a 09 09 |1,iStree|t,0)....|
|000036d0| 09 09 09 09 73 43 69 74 | 79 20 3d 33 44 20 72 41 |....sCit|y =3D rA|
|000036e0| 63 63 6f 75 6e 74 2e 47 | 65 74 52 6f 77 56 61 6c |ccount.G|etRowVal|
|000036f0| 75 65 28 69 2d 31 2c 69 | 43 69 74 79 2c 30 29 0d |ue(i-1,i|City,0).|
|00003700| 0a 09 09 09 09 09 09 73 | 53 74 61 74 65 20 3d 33 |.......s|State =3|
|00003710| 44 20 72 41 63 63 6f 75 | 6e 74 2e 47 65 74 52 6f |D rAccou|nt.GetRo|
|00003720| 77 56 61 6c 75 65 28 69 | 2d 31 2c 69 53 74 61 74 |wValue(i|-1,iStat|
|00003730| 65 2c 30 29 0d 0a 09 09 | 09 09 09 09 73 5a 69 70 |e,0)....|....sZip|
|00003740| 20 3d 33 44 20 72 41 63 | 63 6f 75 6e 74 2e 47 65 | =3D rAc|count.Ge|
|00003750| 74 52 6f 77 56 61 6c 75 | 65 28 69 2d 31 2c 69 5a |tRowValu|e(i-1,iZ|
|00003760| 69 70 2c 30 29 0d 0a 09 | 09 09 09 09 09 73 43 6f |ip,0)...|.....sCo|
|00003770| 75 6e 74 72 79 20 3d 33 | 44 20 72 41 63 63 6f 75 |untry =3|D rAccou|
|00003780| 6e 74 2e 47 65 74 52 6f | 77 56 61 6c 75 65 28 69 |nt.GetRo|wValue(i|
|00003790| 2d 31 2c 69 43 6f 75 6e | 74 72 79 2c 30 29 0d 0a |-1,iCoun|try,0)..|
|000037a0| 09 09 09 09 09 4e 65 78 | 74 0d 0a 09 09 09 09 0d |.....Nex|t.......|
|000037b0| 0a 09 09 09 09 09 27 69 | 41 63 63 6f 75 6e 74 20 |......'i|Account |
|000037c0| 3d 33 44 20 72 41 63 63 | 6f 75 6e 74 2e 47 65 74 |=3D rAcc|ount.Get|
|000037d0| 43 6f 6c 75 6d 6e 49 6e | 64 65 78 28 22 61 63 63 |ColumnIn|dex("acc|
|000037e0| 6f 75 6e 74 4b 65 79 22 | 2c 30 29 0d 0a 09 09 09 |ountKey"|,0).....|
|000037f0| 09 09 27 46 6f 72 20 69 | 20 3d 33 44 20 31 20 74 |..'For i| =3D 1 t|
|00003800| 6f 20 6e 41 63 63 6f 75 | 6e 74 0d 0a 09 09 09 09 |o nAccou|nt......|
|00003810| 09 27 09 73 41 63 63 6f | 75 6e 74 20 3d 33 44 20 |.'.sAcco|unt =3D |
|00003820| 72 41 63 63 6f 75 6e 74 | 2e 47 65 74 52 6f 77 56 |rAccount|.GetRowV|
|00003830| 61 6c 75 65 28 69 2d 31 | 2c 69 41 63 63 6f 75 6e |alue(i-1|,iAccoun|
|00003840| 74 2c 30 29 0d 0a 09 09 | 09 09 09 27 09 4e 65 78 |t,0)....|...'.Nex|
|00003850| 74 0d 0a 09 09 09 09 09 | 27 75 72 6c 31 20 3d 33 |t.......|'url1 =3|
|00003860| 44 20 77 63 2e 53 65 61 | 72 63 68 4e 65 77 73 28 |D wc.Sea|rchNews(|
|00003870| 73 41 63 63 6f 75 6e 74 | 29 0d 0a 09 09 09 09 09 |sAccount|).......|
|00003880| 27 75 72 6c 31 20 3d 33 | 44 20 77 63 2e 47 65 74 |'url1 =3|D wc.Get|
|00003890| 46 6c 69 67 68 74 49 6e | 66 6f 72 6d 61 74 69 6f |FlightIn|formatio|
|000038a0| 6e 28 29 0d 0a 0d 0a 09 | 09 09 09 09 0d 0a 09 09 |n().....|........|
|000038b0| 09 09 09 27 47 65 74 20 | 74 68 65 20 4d 65 20 69 |...'Get |the Me i|
|000038c0| 74 65 6d 20 20 20 3d 32 | 30 0d 0a 0d 0a 09 09 09 |tem =2|0.......|
|000038d0| 09 09 20 20 20 20 66 6c | 61 67 32 20 3d 33 44 20 |.. fl|ag2 =3D |
|000038e0| 47 65 74 4d 65 49 74 65 | 6d 28 63 75 72 32 29 0d |GetMeIte|m(cur2).|
|000038f0| 0a 09 09 09 09 09 20 20 | 20 20 27 20 64 69 64 20 |...... | ' did |
|00003900| 77 65 20 67 65 74 20 69 | 6e 66 6f 20 61 62 6f 75 |we get i|nfo abou|
|00003910| 74 20 74 68 65 20 61 63 | 74 69 76 65 20 22 43 6f |t the ac|tive "Co|
|00003920| 6e 74 61 63 74 22 20 69 | 74 65 6d 3f 0d 0a 09 09 |ntact" i|tem?....|
|00003930| 09 09 09 20 20 20 20 49 | 66 20 4e 6f 74 20 66 6c |... I|f Not fl|
|00003940| 61 67 32 20 54 68 65 6e | 0d 0a 09 09 09 09 09 20 |ag2 Then|....... |
|00003950| 20 20 20 20 20 20 20 4d | 73 67 42 6f 78 20 22 50 | M|sgBox "P|
|00003960| 6c 65 61 73 65 20 43 6f | 6e 66 69 67 75 72 65 20 |lease Co|nfigure |
|00003970| 20 2d 4d 65 2d 20 69 74 | 65 6d 20 69 6e 20 43 6f | -Me- it|em in Co|
|00003980| 6d 6d 65 6e 63 65 2e 22 | 0d 0a 09 09 09 09 09 20 |mmence."|....... |
|00003990| 20 20 20 20 20 20 20 45 | 78 69 74 20 53 75 62 0d | E|xit Sub.|
|000039a0| 0a 09 09 09 09 09 20 20 | 20 20 65 6e 64 20 69 66 |...... | end if|
|000039b0| 20 20 20 3d 32 30 0d 0a | 09 09 09 09 09 20 20 20 | =20..|..... |
|000039c0| 20 27 20 65 6c 73 65 20 | 77 65 20 67 6f 74 20 74 | ' else |we got t|
|000039d0| 68 65 20 4d 65 20 69 74 | 65 6d 0d 0a 09 09 09 09 |he Me it|em......|
|000039e0| 09 20 20 20 3d 32 30 0d | 0a 0d 0a 09 09 09 09 09 |. =20.|........|
|000039f0| 20 20 20 20 63 75 72 32 | 2e 53 65 65 6b 52 6f 77 | cur2|.SeekRow|
|00003a00| 20 30 2c 20 30 0d 0a 09 | 09 09 09 09 20 20 20 20 | 0, 0...|.... |
|00003a10| 53 65 74 20 71 72 73 32 | 20 3d 33 44 20 63 75 72 |Set qrs2| =3D cur|
|00003a20| 32 2e 47 65 74 51 75 65 | 72 79 52 6f 77 53 65 74 |2.GetQue|ryRowSet|
|00003a30| 28 31 2c 20 30 29 0d 0a | 09 09 09 09 09 20 20 20 |(1, 0)..|..... |
|00003a40| 3d 32 30 0d 0a 09 09 09 | 09 09 09 27 67 65 74 20 |=20.....|...'get |
|00003a50| 74 68 65 20 66 69 65 6c | 64 20 76 61 6c 75 65 73 |the fiel|d values|
|00003a60| 20 72 65 71 75 69 72 65 | 64 20 62 79 20 77 2f 63 | require|d by w/c|
|00003a70| 0d 0a 09 09 09 09 09 09 | 73 44 65 70 41 69 72 70 |........|sDepAirp|
|00003a80| 4e 61 6d 65 20 3d 33 44 | 20 47 65 74 43 69 74 79 |Name =3D| GetCity|
|00003a90| 56 61 6c 75 65 4d 45 28 | 71 72 73 32 29 20 26 20 |ValueME(|qrs2) & |
|00003aa0| 22 2c 20 22 20 26 20 20 | 47 65 74 53 74 61 74 65 |", " & |GetState|
|00003ab0| 56 61 6c 75 65 4d 45 28 | 71 72 73 32 29 20 26 20 |ValueME(|qrs2) & |
|00003ac0| 3d 0d 0a 09 09 09 09 09 | 22 2c 20 22 20 26 20 47 |=.......|", " & G|
|00003ad0| 65 74 5a 69 70 56 61 6c | 75 65 4d 45 28 71 72 73 |etZipVal|ueME(qrs|
|00003ae0| 32 29 0d 0a 09 09 09 09 | 09 09 73 44 65 73 74 41 |2)......|..sDestA|
|00003af0| 69 72 70 4e 61 6d 65 20 | 3d 33 44 20 73 43 69 74 |irpName |=3D sCit|
|00003b00| 79 20 26 20 22 2c 20 22 | 20 26 20 20 73 53 74 61 |y & ", "| & sSta|
|00003b10| 74 65 20 26 20 22 2c 20 | 22 20 3d 0d 0a 09 09 09 |te & ", |" =.....|
|00003b20| 09 09 26 20 73 5a 69 70 | 0d 0a 09 09 09 09 09 09 |..& sZip|........|
|00003b30| 73 44 65 70 44 61 74 65 | 20 3d 33 44 20 44 61 74 |sDepDate| =3D Dat|
|00003b40| 65 56 61 6c 0d 0a 09 09 | 09 09 09 09 27 73 65 74 |eVal....|....'set|
|00003b50| 20 74 68 65 20 72 65 74 | 75 72 6e 20 64 61 74 65 | the ret|urn date|
|00003b60| 20 61 73 20 74 6f 6d 6f | 72 72 6f 77 0d 0a 09 09 | as tomo|rrow....|
|00003b70| 09 09 09 09 73 52 65 74 | 75 72 6e 44 61 74 65 20 |....sRet|urnDate |
|00003b80| 3d 33 44 20 44 61 74 65 | 41 64 64 28 22 64 22 2c |=3D Date|Add("d",|
|00003b90| 31 2c 20 44 61 74 65 56 | 61 6c 29 0d 0a 09 09 09 |1, DateV|al).....|
|00003ba0| 09 09 3d 30 39 0d 0a 0d | 0a 09 09 09 09 09 20 20 |..=09...|...... |
|00003bb0| 75 72 6c 31 20 3d 33 44 | 20 77 63 2e 47 65 74 46 |url1 =3D| wc.GetF|
|00003bc0| 6c 69 67 68 74 57 69 7a | 61 72 64 28 73 44 65 70 |lightWiz|ard(sDep|
|00003bd0| 41 69 72 70 4e 61 6d 65 | 2c 20 73 44 65 73 74 41 |AirpName|, sDestA|
|00003be0| 69 72 70 4e 61 6d 65 2c | 20 73 44 65 70 44 61 74 |irpName,| sDepDat|
|00003bf0| 65 2c 20 3d 0d 0a 09 09 | 09 09 09 73 52 65 74 75 |e, =....|...sRetu|
|00003c00| 72 6e 44 61 74 65 29 0d | 0a 09 09 09 09 09 20 20 |rnDate).|...... |
|00003c10| 20 3d 32 30 0d 0a 0d 0a | 09 09 09 09 09 0d 0a 09 | =20....|........|
|00003c20| 09 09 09 09 70 61 72 65 | 6e 74 2e 66 72 61 6d 65 |....pare|nt.frame|
|00003c30| 73 28 22 4d 61 69 6e 22 | 29 2e 6c 6f 63 61 74 69 |s("Main"|).locati|
|00003c40| 6f 6e 2e 68 72 65 66 20 | 3d 33 44 20 75 72 6c 31 |on.href |=3D url1|
|00003c50| 3d 30 39 0d 0a 09 09 09 | 09 3d 30 39 0d 0a 09 09 |=09.....|.=09....|
|00003c60| 09 09 43 61 73 65 20 22 | 57 65 62 22 0d 0a 09 09 |..Case "|Web"....|
|00003c70| 09 09 09 27 69 41 63 63 | 6f 75 6e 74 20 3d 33 44 |...'iAcc|ount =3D|
|00003c80| 20 72 41 63 63 6f 75 6e | 74 2e 47 65 74 43 6f 6c | rAccoun|t.GetCol|
|00003c90| 75 6d 6e 49 6e 64 65 78 | 28 22 61 63 63 6f 75 6e |umnIndex|("accoun|
|00003ca0| 74 4b 65 79 22 2c 30 29 | 0d 0a 09 09 09 09 09 69 |tKey",0)|.......i|
|00003cb0| 43 69 74 79 20 3d 33 44 | 20 72 41 63 63 6f 75 6e |City =3D| rAccoun|
|00003cc0| 74 2e 47 65 74 43 6f 6c | 75 6d 6e 49 6e 64 65 78 |t.GetCol|umnIndex|
|00003cd0| 28 22 43 69 74 79 22 2c | 30 29 0d 0a 09 09 09 09 |("City",|0)......|
|00003ce0| 09 69 53 74 61 74 65 20 | 3d 33 44 20 72 41 63 63 |.iState |=3D rAcc|
|00003cf0| 6f 75 6e 74 2e 47 65 74 | 43 6f 6c 75 6d 6e 49 6e |ount.Get|ColumnIn|
|00003d00| 64 65 78 28 22 73 74 61 | 74 65 50 72 6f 76 69 6e |dex("sta|teProvin|
|00003d10| 63 65 22 2c 30 29 0d 0a | 0d 0a 09 09 09 09 09 46 |ce",0)..|.......F|
|00003d20| 6f 72 20 69 20 3d 33 44 | 20 31 20 74 6f 20 6e 41 |or i =3D| 1 to nA|
|00003d30| 63 63 6f 75 6e 74 0d 0a | 09 09 09 09 09 09 27 73 |ccount..|......'s|
|00003d40| 41 63 63 6f 75 6e 74 20 | 3d 33 44 20 72 41 63 63 |Account |=3D rAcc|
|00003d50| 6f 75 6e 74 2e 47 65 74 | 52 6f 77 56 61 6c 75 65 |ount.Get|RowValue|
|00003d60| 28 69 2d 31 2c 69 41 63 | 63 6f 75 6e 74 2c 30 29 |(i-1,iAc|count,0)|
|00003d70| 0d 0a 09 09 09 09 09 09 | 73 43 69 74 79 20 3d 33 |........|sCity =3|
|00003d80| 44 20 72 41 63 63 6f 75 | 6e 74 2e 47 65 74 52 6f |D rAccou|nt.GetRo|
|00003d90| 77 56 61 6c 75 65 28 69 | 2d 31 2c 69 43 69 74 79 |wValue(i|-1,iCity|
|00003da0| 2c 30 29 0d 0a 09 09 09 | 09 09 09 73 53 74 61 74 |,0).....|...sStat|
|00003db0| 65 20 3d 33 44 20 72 41 | 63 63 6f 75 6e 74 2e 47 |e =3D rA|ccount.G|
|00003dc0| 65 74 52 6f 77 56 61 6c | 75 65 28 69 2d 31 2c 69 |etRowVal|ue(i-1,i|
|00003dd0| 53 74 61 74 65 2c 30 29 | 0d 0a 09 09 09 09 09 4e |State,0)|.......N|
|00003de0| 65 78 74 0d 0a 09 09 09 | 09 09 27 75 72 6c 31 20 |ext.....|..'url1 |
|00003df0| 3d 33 44 20 77 63 2e 53 | 65 61 72 63 68 54 65 78 |=3D wc.S|earchTex|
|00003e00| 74 28 73 41 63 63 6f 75 | 6e 74 29 0d 0a 09 09 09 |t(sAccou|nt).....|
|00003e10| 09 09 75 72 6c 31 20 3d | 33 44 20 77 63 2e 44 69 |..url1 =|3D wc.Di|
|00003e20| 72 65 63 74 6f 72 79 43 | 6f 6d 70 61 6e 79 20 28 |rectoryC|ompany (|
|00003e30| 22 22 2c 20 73 43 69 74 | 79 2c 20 73 53 74 61 74 |"", sCit|y, sStat|
|00003e40| 65 29 0d 0a 09 09 09 09 | 09 70 61 72 65 6e 74 2e |e)......|.parent.|
|00003e50| 66 72 61 6d 65 73 28 22 | 4d 61 69 6e 22 29 2e 6c |frames("|Main").l|
|00003e60| 6f 63 61 74 69 6f 6e 2e | 68 72 65 66 20 3d 33 44 |ocation.|href =3D|
|00003e70| 20 75 72 6c 31 09 3d 30 | 39 0d 0a 09 09 09 3d 30 | url1.=0|9.....=0|
|00003e80| 39 0d 0a 09 09 09 09 43 | 61 73 65 20 22 57 65 62 |9......C|ase "Web|
|00003e90| 73 69 74 65 22 3d 30 39 | 0d 0a 09 09 09 09 09 69 |site"=09|.......i|
|00003ea0| 57 65 62 73 69 74 65 20 | 3d 33 44 20 72 41 63 63 |Website |=3D rAcc|
|00003eb0| 6f 75 6e 74 2e 47 65 74 | 43 6f 6c 75 6d 6e 49 6e |ount.Get|ColumnIn|
|00003ec0| 64 65 78 28 22 57 65 62 | 73 69 74 65 22 2c 30 29 |dex("Web|site",0)|
|00003ed0| 0d 0a 09 09 09 09 09 46 | 6f 72 20 69 20 3d 33 44 |.......F|or i =3D|
|00003ee0| 20 31 20 74 6f 20 6e 41 | 63 63 6f 75 6e 74 0d 0a | 1 to nA|ccount..|
|00003ef0| 09 09 09 09 09 09 73 57 | 65 62 73 69 74 65 20 3d |......sW|ebsite =|
|00003f00| 33 44 20 72 41 63 63 6f | 75 6e 74 2e 47 65 74 52 |3D rAcco|unt.GetR|
|00003f10| 6f 77 56 61 6c 75 65 28 | 69 2d 31 2c 69 57 65 62 |owValue(|i-1,iWeb|
|00003f20| 73 69 74 65 2c 30 29 0d | 0a 09 09 09 09 09 09 49 |site,0).|.......I|
|00003f30| 66 20 4c 65 66 74 28 73 | 57 65 62 73 69 74 65 2c |f Left(s|Website,|
|00003f40| 37 29 20 3c 3e 20 22 68 | 74 74 70 3a 2f 2f 22 20 |7) <> "h|ttp://" |
|00003f50| 54 68 65 6e 0d 0a 09 09 | 09 09 09 09 09 73 57 65 |Then....|.....sWe|
|00003f60| 62 73 69 74 65 20 3d 33 | 44 20 22 68 74 74 70 3a |bsite =3|D "http:|
|00003f70| 2f 2f 22 20 26 20 73 57 | 65 62 73 69 74 65 0d 0a |//" & sW|ebsite..|
|00003f80| 09 09 09 09 09 09 45 6e | 64 20 69 66 0d 0a 09 09 |......En|d if....|
|00003f90| 09 09 09 4e 65 78 74 0d | 0a 09 09 09 09 09 70 61 |...Next.|......pa|
|00003fa0| 72 65 6e 74 2e 66 72 61 | 6d 65 73 28 22 4d 61 69 |rent.fra|mes("Mai|
|00003fb0| 6e 22 29 2e 6c 6f 63 61 | 74 69 6f 6e 2e 68 72 65 |n").loca|tion.hre|
|00003fc0| 66 20 3d 33 44 20 73 57 | 65 62 73 69 74 65 09 09 |f =3D sW|ebsite..|
|00003fd0| 09 09 09 09 09 09 09 09 | 09 09 09 09 09 3d 30 39 |........|.....=09|
|00003fe0| 0d 0a 09 09 3d 30 39 0d | 0a 09 09 09 45 6e 64 20 |....=09.|....End |
|00003ff0| 53 65 6c 65 63 74 09 3d | 30 39 0d 0a 09 09 3d 30 |Select.=|09....=0|
|00004000| 39 0d 0a 09 09 43 61 73 | 65 20 22 43 6f 6d 6d 65 |9....Cas|e "Comme|
|00004010| 6e 63 65 20 52 4d 20 57 | 65 62 20 53 65 61 72 63 |nce RM W|eb Searc|
|00004020| 68 20 4c 65 61 64 73 22 | 0d 0a 09 09 09 75 20 3d |h Leads"|.....u =|
|00004030| 33 44 20 46 69 6e 64 49 | 74 65 6d 28 22 4c 65 61 |3D FindI|tem("Lea|
|00004040| 64 73 20 52 65 76 69 65 | 77 22 29 0d 0a 09 09 3d |ds Revie|w")....=|
|00004050| 30 39 0d 0a 09 09 09 27 | 20 73 6f 20 6c 65 74 27 |09.....'| so let'|
|00004060| 73 20 66 69 6e 64 20 74 | 68 65 20 74 69 63 6b 65 |s find t|he ticke|
|00004070| 72 20 73 79 6d 62 6f 6c | 20 75 73 69 6e 67 20 74 |r symbol| using t|
|00004080| 68 65 20 41 50 49 0d 0a | 09 09 09 53 65 74 20 63 |he API..|...Set c|
|00004090| 41 63 63 6f 75 6e 74 20 | 3d 33 44 20 43 6f 6d 6d |Account |=3D Comm|
|000040a0| 65 6e 63 65 44 42 2e 47 | 65 74 43 75 72 73 6f 72 |enceDB.G|etCursor|
|000040b0| 28 30 2c 22 41 63 63 6f | 75 6e 74 22 2c 30 29 0d |(0,"Acco|unt",0).|
|000040c0| 0a 09 09 09 3d 30 39 0d | 0a 09 09 09 63 41 63 63 |....=09.|....cAcc|
|000040d0| 6f 75 6e 74 2e 53 65 74 | 46 69 6c 74 65 72 20 22 |ount.Set|Filter "|
|000040e0| 5b 56 69 65 77 46 69 6c | 74 65 72 28 31 2c 46 2c |[ViewFil|ter(1,F,|
|000040f0| 2c 22 22 61 63 63 6f 75 | 6e 74 4b 65 79 22 22 2c |,""accou|ntKey"",|
|00004100| 45 71 75 61 6c 20 3d 0d | 0a 74 6f 2c 22 22 22 2b |Equal =.|.to,"""+|
|00004110| 54 72 69 6d 28 75 28 30 | 29 29 2b 22 22 22 2c 29 |Trim(u(0|))+""",)|
|00004120| 5d 22 2c 30 0d 0a 09 09 | 09 63 41 63 63 6f 75 6e |]",0....|.cAccoun|
|00004130| 74 2e 53 65 74 46 69 6c | 74 65 72 20 22 5b 56 69 |t.SetFil|ter "[Vi|
|00004140| 65 77 46 69 6c 74 65 72 | 28 32 2c 46 2c 2c 22 22 |ewFilter|(2,F,,""|
|00004150| 62 75 73 69 6e 65 73 73 | 4e 75 6d 62 65 72 22 22 |business|Number""|
|00004160| 2c 45 71 75 61 6c 20 3d | 0d 0a 74 6f 2c 22 22 22 |,Equal =|..to,"""|
|00004170| 2b 54 72 69 6d 28 75 28 | 31 29 29 2b 22 22 22 2c |+Trim(u(|1))+""",|
|00004180| 29 5d 22 2c 30 0d 0a 0d | 0a 09 09 09 6e 41 63 63 |)]",0...|....nAcc|
|00004190| 6f 75 6e 74 20 3d 33 44 | 20 63 41 63 63 6f 75 6e |ount =3D| cAccoun|
|000041a0| 74 2e 52 6f 77 43 6f 75 | 6e 74 0d 0a 0d 0a 09 09 |t.RowCou|nt......|
|000041b0| 09 53 65 74 20 72 41 63 | 63 6f 75 6e 74 20 3d 33 |.Set rAc|count =3|
|000041c0| 44 20 63 41 63 63 6f 75 | 6e 74 2e 47 65 74 45 64 |D cAccou|nt.GetEd|
|000041d0| 69 74 52 6f 77 53 65 74 | 28 6e 41 63 63 6f 75 6e |itRowSet|(nAccoun|
|000041e0| 74 2c 30 29 0d 0a 0d 0a | 09 09 09 53 65 6c 65 63 |t,0)....|...Selec|
|000041f0| 74 20 43 61 73 65 20 76 | 54 79 70 65 0d 0a 09 09 |t Case v|Type....|
|00004200| 09 09 43 61 73 65 20 22 | 53 74 6f 63 6b 22 0d 0a |..Case "|Stock"..|
|00004210| 09 09 09 09 09 69 54 69 | 63 6b 65 72 20 3d 33 44 |.....iTi|cker =3D|
|00004220| 20 72 41 63 63 6f 75 6e | 74 2e 47 65 74 43 6f 6c | rAccoun|t.GetCol|
|00004230| 75 6d 6e 49 6e 64 65 78 | 28 22 54 69 63 6b 65 72 |umnIndex|("Ticker|
|00004240| 22 2c 30 29 0d 0a 09 09 | 09 09 09 46 6f 72 20 69 |",0)....|...For i|
|00004250| 20 3d 33 44 20 31 20 74 | 6f 20 6e 41 63 63 6f 75 | =3D 1 t|o nAccou|
|00004260| 6e 74 0d 0a 09 09 09 09 | 09 09 73 54 69 63 6b 65 |nt......|..sTicke|
|00004270| 72 20 3d 33 44 20 72 41 | 63 63 6f 75 6e 74 2e 47 |r =3D rA|ccount.G|
|00004280| 65 74 52 6f 77 56 61 6c | 75 65 28 69 2d 31 2c 69 |etRowVal|ue(i-1,i|
|00004290| 54 69 63 6b 65 72 2c 30 | 29 0d 0a 09 09 09 09 09 |Ticker,0|).......|
|000042a0| 4e 65 78 74 0d 0a 09 09 | 09 09 09 75 72 6c 31 20 |Next....|...url1 |
|000042b0| 3d 33 44 20 77 63 2e 47 | 65 74 53 74 6f 63 6b 51 |=3D wc.G|etStockQ|
|000042c0| 75 6f 74 65 28 73 54 69 | 63 6b 65 72 29 0d 0a 09 |uote(sTi|cker)...|
|000042d0| 09 09 09 09 70 61 72 65 | 6e 74 2e 66 72 61 6d 65 |....pare|nt.frame|
|000042e0| 73 28 22 4d 61 69 6e 22 | 29 2e 6c 6f 63 61 74 69 |s("Main"|).locati|
|000042f0| 6f 6e 2e 68 72 65 66 20 | 3d 33 44 20 75 72 6c 31 |on.href |=3D url1|
|00004300| 0d 0a 09 09 09 09 3d 30 | 39 0d 0a 09 09 09 09 43 |......=0|9......C|
|00004310| 61 73 65 20 22 57 65 61 | 74 68 65 72 22 0d 0a 09 |ase "Wea|ther"...|
|00004320| 09 09 09 09 69 5a 69 70 | 20 3d 33 44 20 72 41 63 |....iZip| =3D rAc|
|00004330| 63 6f 75 6e 74 2e 47 65 | 74 43 6f 6c 75 6d 6e 49 |count.Ge|tColumnI|
|00004340| 6e 64 65 78 28 22 7a 69 | 70 50 6f 73 74 61 6c 22 |ndex("zi|pPostal"|
|00004350| 2c 30 29 0d 0a 09 09 09 | 09 09 46 6f 72 20 69 20 |,0).....|..For i |
|00004360| 3d 33 44 20 31 20 74 6f | 20 6e 41 63 63 6f 75 6e |=3D 1 to| nAccoun|
|00004370| 74 0d 0a 09 09 09 09 09 | 09 73 5a 69 70 20 3d 33 |t.......|.sZip =3|
|00004380| 44 20 72 41 63 63 6f 75 | 6e 74 2e 47 65 74 52 6f |D rAccou|nt.GetRo|
|00004390| 77 56 61 6c 75 65 28 69 | 2d 31 2c 69 5a 69 70 2c |wValue(i|-1,iZip,|
|000043a0| 30 29 0d 0a 09 09 09 09 | 09 4e 65 78 74 0d 0a 09 |0)......|.Next...|
|000043b0| 09 09 09 09 75 72 6c 31 | 20 3d 33 44 20 77 63 2e |....url1| =3D wc.|
|000043c0| 47 65 74 57 65 61 74 68 | 65 72 28 73 5a 69 70 29 |GetWeath|er(sZip)|
|000043d0| 0d 0a 09 09 09 09 09 70 | 61 72 65 6e 74 2e 66 72 |.......p|arent.fr|
|000043e0| 61 6d 65 73 28 22 4d 61 | 69 6e 22 29 2e 6c 6f 63 |ames("Ma|in").loc|
|000043f0| 61 74 69 6f 6e 2e 68 72 | 65 66 20 3d 33 44 20 75 |ation.hr|ef =3D u|
|00004400| 72 6c 31 0d 0a 09 09 09 | 09 3d 30 39 0d 0a 09 09 |rl1.....|.=09....|
|00004410| 09 09 43 61 73 65 20 22 | 4d 61 70 22 0d 0a 09 09 |..Case "|Map"....|
|00004420| 09 09 09 69 53 74 72 65 | 65 74 20 3d 33 44 20 72 |...iStre|et =3D r|
|00004430| 41 63 63 6f 75 6e 74 2e | 47 65 74 43 6f 6c 75 6d |Account.|GetColum|
|00004440| 6e 49 6e 64 65 78 28 22 | 41 64 64 72 65 73 73 22 |nIndex("|Address"|
|00004450| 2c 30 29 0d 0a 09 09 09 | 09 09 69 43 69 74 79 20 |,0).....|..iCity |
|00004460| 3d 33 44 20 72 41 63 63 | 6f 75 6e 74 2e 47 65 74 |=3D rAcc|ount.Get|
|00004470| 43 6f 6c 75 6d 6e 49 6e | 64 65 78 28 22 43 69 74 |ColumnIn|dex("Cit|
|00004480| 79 22 2c 30 29 0d 0a 09 | 09 09 09 09 69 53 74 61 |y",0)...|....iSta|
|00004490| 74 65 20 3d 33 44 20 72 | 41 63 63 6f 75 6e 74 2e |te =3D r|Account.|
|000044a0| 47 65 74 43 6f 6c 75 6d | 6e 49 6e 64 65 78 28 22 |GetColum|nIndex("|
|000044b0| 73 74 61 74 65 50 72 6f | 76 69 6e 63 65 22 2c 30 |statePro|vince",0|
|000044c0| 29 0d 0a 09 09 09 09 09 | 69 5a 69 70 20 3d 33 44 |).......|iZip =3D|
|000044d0| 20 72 41 63 63 6f 75 6e | 74 2e 47 65 74 43 6f 6c | rAccoun|t.GetCol|
|000044e0| 75 6d 6e 49 6e 64 65 78 | 28 22 7a 69 70 50 6f 73 |umnIndex|("zipPos|
|000044f0| 74 61 6c 22 2c 30 29 0d | 0a 09 09 09 09 09 69 43 |tal",0).|......iC|
|00004500| 6f 75 6e 74 72 79 20 3d | 33 44 20 72 41 63 63 6f |ountry =|3D rAcco|
|00004510| 75 6e 74 2e 47 65 74 43 | 6f 6c 75 6d 6e 49 6e 64 |unt.GetC|olumnInd|
|00004520| 65 78 28 22 43 6f 75 6e | 74 72 79 22 2c 30 29 0d |ex("Coun|try",0).|
|00004530| 0a 09 09 09 09 09 46 6f | 72 20 69 20 3d 33 44 20 |......Fo|r i =3D |
|00004540| 31 20 74 6f 20 6e 41 63 | 63 6f 75 6e 74 0d 0a 09 |1 to nAc|count...|
|00004550| 09 09 09 09 09 73 53 74 | 72 65 65 74 20 3d 33 44 |.....sSt|reet =3D|
|00004560| 20 72 41 63 63 6f 75 6e | 74 2e 47 65 74 52 6f 77 | rAccoun|t.GetRow|
|00004570| 56 61 6c 75 65 28 69 2d | 31 2c 69 53 74 72 65 65 |Value(i-|1,iStree|
|00004580| 74 2c 30 29 0d 0a 09 09 | 09 09 09 09 73 43 69 74 |t,0)....|....sCit|
|00004590| 79 20 3d 33 44 20 72 41 | 63 63 6f 75 6e 74 2e 47 |y =3D rA|ccount.G|
|000045a0| 65 74 52 6f 77 56 61 6c | 75 65 28 69 2d 31 2c 69 |etRowVal|ue(i-1,i|
|000045b0| 43 69 74 79 2c 30 29 0d | 0a 09 09 09 09 09 09 73 |City,0).|.......s|
|000045c0| 53 74 61 74 65 20 3d 33 | 44 20 72 41 63 63 6f 75 |State =3|D rAccou|
|000045d0| 6e 74 2e 47 65 74 52 6f | 77 56 61 6c 75 65 28 69 |nt.GetRo|wValue(i|
|000045e0| 2d 31 2c 69 53 74 61 74 | 65 2c 30 29 0d 0a 09 09 |-1,iStat|e,0)....|
|000045f0| 09 09 09 09 73 5a 69 70 | 20 3d 33 44 20 72 41 63 |....sZip| =3D rAc|
|00004600| 63 6f 75 6e 74 2e 47 65 | 74 52 6f 77 56 61 6c 75 |count.Ge|tRowValu|
|00004610| 65 28 69 2d 31 2c 69 5a | 69 70 2c 30 29 0d 0a 09 |e(i-1,iZ|ip,0)...|
|00004620| 09 09 09 09 09 73 43 6f | 75 6e 74 72 79 20 3d 33 |.....sCo|untry =3|
|00004630| 44 20 72 41 63 63 6f 75 | 6e 74 2e 47 65 74 52 6f |D rAccou|nt.GetRo|
|00004640| 77 56 61 6c 75 65 28 69 | 2d 31 2c 69 43 6f 75 6e |wValue(i|-1,iCoun|
|00004650| 74 72 79 2c 30 29 0d 0a | 09 09 09 09 09 4e 65 78 |try,0)..|.....Nex|
|00004660| 74 0d 0a 09 09 09 09 09 | 75 72 6c 31 20 3d 33 44 |t.......|url1 =3D|
|00004670| 20 77 63 2e 47 65 74 4d | 61 70 28 73 53 74 72 65 | wc.GetM|ap(sStre|
|00004680| 65 74 2c 73 43 69 74 79 | 2c 73 53 74 61 74 65 2c |et,sCity|,sState,|
|00004690| 73 5a 69 70 2c 73 43 6f | 75 6e 74 72 79 29 0d 0a |sZip,sCo|untry)..|
|000046a0| 09 09 09 09 09 70 61 72 | 65 6e 74 2e 66 72 61 6d |.....par|ent.fram|
|000046b0| 65 73 28 22 4d 61 69 6e | 22 29 2e 6c 6f 63 61 74 |es("Main|").locat|
|000046c0| 69 6f 6e 2e 68 72 65 66 | 20 3d 33 44 20 75 72 6c |ion.href| =3D url|
|000046d0| 31 0d 0a 09 09 09 09 3d | 30 39 0d 0a 09 09 09 09 |1......=|09......|
|000046e0| 43 61 73 65 20 22 44 69 | 72 65 63 74 69 6f 6e 73 |Case "Di|rections|
|000046f0| 22 0d 0a 09 09 09 09 09 | 69 53 74 72 65 65 74 20 |".......|iStreet |
|00004700| 3d 33 44 20 72 41 63 63 | 6f 75 6e 74 2e 47 65 74 |=3D rAcc|ount.Get|
|00004710| 43 6f 6c 75 6d 6e 49 6e | 64 65 78 28 22 41 64 64 |ColumnIn|dex("Add|
|00004720| 72 65 73 73 22 2c 30 29 | 0d 0a 09 09 09 09 09 69 |ress",0)|.......i|
|00004730| 43 69 74 79 20 3d 33 44 | 20 72 41 63 63 6f 75 6e |City =3D| rAccoun|
|00004740| 74 2e 47 65 74 43 6f 6c | 75 6d 6e 49 6e 64 65 78 |t.GetCol|umnIndex|
|00004750| 28 22 43 69 74 79 22 2c | 30 29 0d 0a 09 09 09 09 |("City",|0)......|
|00004760| 09 69 53 74 61 74 65 20 | 3d 33 44 20 72 41 63 63 |.iState |=3D rAcc|
|00004770| 6f 75 6e 74 2e 47 65 74 | 43 6f 6c 75 6d 6e 49 6e |ount.Get|ColumnIn|
|00004780| 64 65 78 28 22 73 74 61 | 74 65 50 72 6f 76 69 6e |dex("sta|teProvin|
|00004790| 63 65 22 2c 30 29 0d 0a | 09 09 09 09 09 69 5a 69 |ce",0)..|.....iZi|
|000047a0| 70 20 3d 33 44 20 72 41 | 63 63 6f 75 6e 74 2e 47 |p =3D rA|ccount.G|
|000047b0| 65 74 43 6f 6c 75 6d 6e | 49 6e 64 65 78 28 22 7a |etColumn|Index("z|
|000047c0| 69 70 50 6f 73 74 61 6c | 22 2c 30 29 0d 0a 09 09 |ipPostal|",0)....|
|000047d0| 09 09 09 69 43 6f 75 6e | 74 72 79 20 3d 33 44 20 |...iCoun|try =3D |
|000047e0| 72 41 63 63 6f 75 6e 74 | 2e 47 65 74 43 6f 6c 75 |rAccount|.GetColu|
|000047f0| 6d 6e 49 6e 64 65 78 28 | 22 43 6f 75 6e 74 72 79 |mnIndex(|"Country|
|00004800| 22 2c 30 29 0d 0a 09 09 | 09 09 09 46 6f 72 20 69 |",0)....|...For i|
|00004810| 20 3d 33 44 20 31 20 74 | 6f 20 6e 41 63 63 6f 75 | =3D 1 t|o nAccou|
|00004820| 6e 74 0d 0a 09 09 09 09 | 09 09 73 53 74 72 65 65 |nt......|..sStree|
|00004830| 74 20 3d 33 44 20 72 41 | 63 63 6f 75 6e 74 2e 47 |t =3D rA|ccount.G|
|00004840| 65 74 52 6f 77 56 61 6c | 75 65 28 69 2d 31 2c 69 |etRowVal|ue(i-1,i|
|00004850| 53 74 72 65 65 74 2c 30 | 29 0d 0a 09 09 09 09 09 |Street,0|).......|
|00004860| 09 73 43 69 74 79 20 3d | 33 44 20 72 41 63 63 6f |.sCity =|3D rAcco|
|00004870| 75 6e 74 2e 47 65 74 52 | 6f 77 56 61 6c 75 65 28 |unt.GetR|owValue(|
|00004880| 69 2d 31 2c 69 43 69 74 | 79 2c 30 29 0d 0a 09 09 |i-1,iCit|y,0)....|
|00004890| 09 09 09 09 73 53 74 61 | 74 65 20 3d 33 44 20 72 |....sSta|te =3D r|
|000048a0| 41 63 63 6f 75 6e 74 2e | 47 65 74 52 6f 77 56 61 |Account.|GetRowVa|
|000048b0| 6c 75 65 28 69 2d 31 2c | 69 53 74 61 74 65 2c 30 |lue(i-1,|iState,0|
|000048c0| 29 0d 0a 09 09 09 09 09 | 09 73 5a 69 70 20 3d 33 |).......|.sZip =3|
|000048d0| 44 20 72 41 63 63 6f 75 | 6e 74 2e 47 65 74 52 6f |D rAccou|nt.GetRo|
|000048e0| 77 56 61 6c 75 65 28 69 | 2d 31 2c 69 5a 69 70 2c |wValue(i|-1,iZip,|
|000048f0| 30 29 0d 0a 09 09 09 09 | 09 09 73 43 6f 75 6e 74 |0)......|..sCount|
|00004900| 72 79 20 3d 33 44 20 72 | 41 63 63 6f 75 6e 74 2e |ry =3D r|Account.|
|00004910| 47 65 74 52 6f 77 56 61 | 6c 75 65 28 69 2d 31 2c |GetRowVa|lue(i-1,|
|00004920| 69 43 6f 75 6e 74 72 79 | 2c 30 29 0d 0a 09 09 09 |iCountry|,0).....|
|00004930| 09 09 4e 65 78 74 0d 0a | 09 09 09 09 3d 30 39 0d |..Next..|....=09.|
|00004940| 0a 09 09 09 09 09 27 47 | 65 74 20 74 68 65 20 4d |......'G|et the M|
|00004950| 65 20 69 74 65 6d 20 20 | 20 3d 32 30 0d 0a 0d 0a |e item | =20....|
|00004960| 09 09 09 09 20 20 20 20 | 66 6c 61 67 32 20 3d 33 |.... |flag2 =3|
|00004970| 44 20 47 65 74 4d 65 49 | 74 65 6d 28 63 75 72 32 |D GetMeI|tem(cur2|
|00004980| 29 0d 0a 09 09 09 09 20 | 20 20 20 27 20 64 69 64 |)...... | ' did|
|00004990| 20 77 65 20 67 65 74 20 | 69 6e 66 6f 20 61 62 6f | we get |info abo|
|000049a0| 75 74 20 74 68 65 20 61 | 63 74 69 76 65 20 22 43 |ut the a|ctive "C|
|000049b0| 6f 6e 74 61 63 74 22 20 | 69 74 65 6d 3f 0d 0a 09 |ontact" |item?...|
|000049c0| 09 09 09 20 20 20 20 49 | 66 20 4e 6f 74 20 66 6c |... I|f Not fl|
|000049d0| 61 67 32 20 54 68 65 6e | 0d 0a 09 09 09 09 20 20 |ag2 Then|...... |
|000049e0| 20 20 20 20 20 20 4d 73 | 67 42 6f 78 20 22 50 6c | Ms|gBox "Pl|
|000049f0| 65 61 73 65 20 43 6f 6e | 66 69 67 75 72 65 20 20 |ease Con|figure |
|00004a00| 2d 4d 65 2d 20 69 74 65 | 6d 20 69 6e 20 43 6f 6d |-Me- ite|m in Com|
|00004a10| 6d 65 6e 63 65 2e 22 0d | 0a 09 09 09 09 20 20 20 |mence.".|..... |
|00004a20| 20 20 20 20 20 45 78 69 | 74 20 53 75 62 0d 0a 09 | Exi|t Sub...|
|00004a30| 09 09 09 20 20 20 20 65 | 6e 64 20 69 66 20 20 20 |... e|nd if |
|00004a40| 3d 32 30 0d 0a 09 09 09 | 09 20 20 20 20 27 20 65 |=20.....|. ' e|
|00004a50| 6c 73 65 20 77 65 20 67 | 6f 74 20 74 68 65 20 4d |lse we g|ot the M|
|00004a60| 65 20 69 74 65 6d 0d 0a | 09 09 09 09 20 20 20 3d |e item..|.... =|
|00004a70| 32 30 0d 0a 0d 0a 09 09 | 09 09 20 20 20 20 63 75 |20......|.. cu|
|00004a80| 72 32 2e 53 65 65 6b 52 | 6f 77 20 30 2c 20 30 0d |r2.SeekR|ow 0, 0.|
|00004a90| 0a 09 09 09 09 20 20 20 | 20 53 65 74 20 71 72 73 |..... | Set qrs|
|00004aa0| 32 20 3d 33 44 20 63 75 | 72 32 2e 47 65 74 51 75 |2 =3D cu|r2.GetQu|
|00004ab0| 65 72 79 52 6f 77 53 65 | 74 28 31 2c 20 30 29 0d |eryRowSe|t(1, 0).|
|00004ac0| 0a 09 09 09 09 20 20 20 | 3d 32 30 0d 0a 09 09 09 |..... |=20.....|
|00004ad0| 09 09 20 20 20 0d 0a 09 | 09 09 09 09 27 67 65 74 |.. ...|....'get|
|00004ae0| 20 74 68 65 20 66 69 65 | 6c 64 20 76 61 6c 75 65 | the fie|ld value|
|00004af0| 73 20 72 65 71 75 69 72 | 65 64 20 62 79 20 77 2f |s requir|ed by w/|
|00004b00| 63 0d 0a 09 09 09 09 09 | 73 41 64 64 72 65 73 73 |c.......|sAddress|
|00004b10| 4d 65 20 3d 33 44 20 47 | 65 74 41 64 64 72 65 73 |Me =3D G|etAddres|
|00004b20| 73 56 61 6c 75 65 4d 45 | 28 71 72 73 32 29 0d 0a |sValueME|(qrs2)..|
|00004b30| 09 09 09 09 09 73 43 69 | 74 79 4d 65 20 3d 33 44 |.....sCi|tyMe =3D|
|00004b40| 20 47 65 74 43 69 74 79 | 56 61 6c 75 65 4d 45 28 | GetCity|ValueME(|
|00004b50| 71 72 73 32 29 0d 0a 09 | 09 09 09 09 73 53 74 61 |qrs2)...|....sSta|
|00004b60| 74 65 4d 65 20 3d 33 44 | 20 47 65 74 53 74 61 74 |teMe =3D| GetStat|
|00004b70| 65 56 61 6c 75 65 4d 45 | 28 71 72 73 32 29 0d 0a |eValueME|(qrs2)..|
|00004b80| 09 09 09 09 09 73 5a 69 | 70 4d 65 20 3d 33 44 20 |.....sZi|pMe =3D |
|00004b90| 47 65 74 5a 69 70 56 61 | 6c 75 65 4d 45 28 71 72 |GetZipVa|lueME(qr|
|00004ba0| 73 32 29 0d 0a 09 09 09 | 09 09 73 43 6f 75 6e 74 |s2).....|..sCount|
|00004bb0| 72 79 4d 65 20 3d 33 44 | 20 20 47 65 74 43 6f 75 |ryMe =3D| GetCou|
|00004bc0| 6e 74 72 79 56 61 6c 75 | 65 4d 45 28 71 72 73 32 |ntryValu|eME(qrs2|
|00004bd0| 29 0d 0a 09 09 09 09 09 | 3d 30 39 0d 0a 09 09 09 |).......|=09.....|
|00004be0| 09 09 75 72 6c 31 20 20 | 3d 33 44 20 77 63 2e 47 |..url1 |=3D wc.G|
|00004bf0| 65 74 44 69 72 65 63 74 | 69 6f 6e 73 28 73 41 64 |etDirect|ions(sAd|
|00004c00| 64 72 65 73 73 4d 65 2c | 73 43 69 74 79 4d 65 2c |dressMe,|sCityMe,|
|00004c10| 73 53 74 61 74 65 4d 65 | 2c 73 5a 69 70 4d 65 2c |sStateMe|,sZipMe,|
|00004c20| 73 43 6f 75 6e 74 72 79 | 4d 65 2c 73 53 74 72 65 |sCountry|Me,sStre|
|00004c30| 65 74 2c 73 43 69 74 79 | 2c 73 53 74 61 74 65 2c |et,sCity|,sState,|
|00004c40| 73 5a 69 70 2c 73 43 6f | 75 6e 74 72 79 29 0d 0a |sZip,sCo|untry)..|
|00004c50| 09 09 09 09 09 0d 0a 09 | 09 09 0d 0a 09 09 09 09 |........|........|
|00004c60| 09 70 61 72 65 6e 74 2e | 66 72 61 6d 65 73 28 22 |.parent.|frames("|
|00004c70| 4d 61 69 6e 22 29 2e 6c | 6f 63 61 74 69 6f 6e 2e |Main").l|ocation.|
|00004c80| 68 72 65 66 20 3d 33 44 | 20 75 72 6c 31 3d 30 39 |href =3D| url1=09|
|00004c90| 0d 0a 09 09 09 3d 30 39 | 0d 0a 09 09 09 09 27 43 |.....=09|......'C|
|00004ca0| 61 73 65 20 22 4e 65 77 | 73 22 0d 0a 09 09 09 09 |ase "New|s"......|
|00004cb0| 43 61 73 65 20 22 54 72 | 61 76 65 6c 22 09 09 09 |Case "Tr|avel"...|
|00004cc0| 09 0d 0a 09 09 09 09 09 | 69 53 74 72 65 65 74 20 |........|iStreet |
|00004cd0| 3d 33 44 20 72 41 63 63 | 6f 75 6e 74 2e 47 65 74 |=3D rAcc|ount.Get|
|00004ce0| 43 6f 6c 75 6d 6e 49 6e | 64 65 78 28 22 41 64 64 |ColumnIn|dex("Add|
|00004cf0| 72 65 73 73 22 2c 30 29 | 0d 0a 09 09 09 09 09 69 |ress",0)|.......i|
|00004d00| 43 69 74 79 20 3d 33 44 | 20 72 41 63 63 6f 75 6e |City =3D| rAccoun|
|00004d10| 74 2e 47 65 74 43 6f 6c | 75 6d 6e 49 6e 64 65 78 |t.GetCol|umnIndex|
|00004d20| 28 22 43 69 74 79 22 2c | 30 29 0d 0a 09 09 09 09 |("City",|0)......|
|00004d30| 09 69 53 74 61 74 65 20 | 3d 33 44 20 72 41 63 63 |.iState |=3D rAcc|
|00004d40| 6f 75 6e 74 2e 47 65 74 | 43 6f 6c 75 6d 6e 49 6e |ount.Get|ColumnIn|
|00004d50| 64 65 78 28 22 73 74 61 | 74 65 50 72 6f 76 69 6e |dex("sta|teProvin|
|00004d60| 63 65 22 2c 30 29 0d 0a | 09 09 09 09 09 69 5a 69 |ce",0)..|.....iZi|
|00004d70| 70 20 3d 33 44 20 72 41 | 63 63 6f 75 6e 74 2e 47 |p =3D rA|ccount.G|
|00004d80| 65 74 43 6f 6c 75 6d 6e | 49 6e 64 65 78 28 22 7a |etColumn|Index("z|
|00004d90| 69 70 50 6f 73 74 61 6c | 22 2c 30 29 0d 0a 09 09 |ipPostal|",0)....|
|00004da0| 09 09 09 69 43 6f 75 6e | 74 72 79 20 3d 33 44 20 |...iCoun|try =3D |
|00004db0| 72 41 63 63 6f 75 6e 74 | 2e 47 65 74 43 6f 6c 75 |rAccount|.GetColu|
|00004dc0| 6d 6e 49 6e 64 65 78 28 | 22 43 6f 75 6e 74 72 79 |mnIndex(|"Country|
|00004dd0| 22 2c 30 29 0d 0a 09 09 | 09 09 09 46 6f 72 20 69 |",0)....|...For i|
|00004de0| 20 3d 33 44 20 31 20 74 | 6f 20 6e 41 63 63 6f 75 | =3D 1 t|o nAccou|
|00004df0| 6e 74 0d 0a 09 09 09 09 | 09 09 73 53 74 72 65 65 |nt......|..sStree|
|00004e00| 74 20 3d 33 44 20 72 41 | 63 63 6f 75 6e 74 2e 47 |t =3D rA|ccount.G|
|00004e10| 65 74 52 6f 77 56 61 6c | 75 65 28 69 2d 31 2c 69 |etRowVal|ue(i-1,i|
|00004e20| 53 74 72 65 65 74 2c 30 | 29 0d 0a 09 09 09 09 09 |Street,0|).......|
|00004e30| 09 73 43 69 74 79 20 3d | 33 44 20 72 41 63 63 6f |.sCity =|3D rAcco|
|00004e40| 75 6e 74 2e 47 65 74 52 | 6f 77 56 61 6c 75 65 28 |unt.GetR|owValue(|
|00004e50| 69 2d 31 2c 69 43 69 74 | 79 2c 30 29 0d 0a 09 09 |i-1,iCit|y,0)....|
|00004e60| 09 09 09 09 73 53 74 61 | 74 65 20 3d 33 44 20 72 |....sSta|te =3D r|
|00004e70| 41 63 63 6f 75 6e 74 2e | 47 65 74 52 6f 77 56 61 |Account.|GetRowVa|
|00004e80| 6c 75 65 28 69 2d 31 2c | 69 53 74 61 74 65 2c 30 |lue(i-1,|iState,0|
|00004e90| 29 0d 0a 09 09 09 09 09 | 09 73 5a 69 70 20 3d 33 |).......|.sZip =3|
|00004ea0| 44 20 72 41 63 63 6f 75 | 6e 74 2e 47 65 74 52 6f |D rAccou|nt.GetRo|
|00004eb0| 77 56 61 6c 75 65 28 69 | 2d 31 2c 69 5a 69 70 2c |wValue(i|-1,iZip,|
|00004ec0| 30 29 0d 0a 09 09 09 09 | 09 09 73 43 6f 75 6e 74 |0)......|..sCount|
|00004ed0| 72 79 20 3d 33 44 20 72 | 41 63 63 6f 75 6e 74 2e |ry =3D r|Account.|
|00004ee0| 47 65 74 52 6f 77 56 61 | 6c 75 65 28 69 2d 31 2c |GetRowVa|lue(i-1,|
|00004ef0| 69 43 6f 75 6e 74 72 79 | 2c 30 29 0d 0a 09 09 09 |iCountry|,0).....|
|00004f00| 09 09 4e 65 78 74 0d 0a | 09 09 09 09 0d 0a 09 09 |..Next..|........|
|00004f10| 09 09 09 27 69 41 63 63 | 6f 75 6e 74 20 3d 33 44 |...'iAcc|ount =3D|
|00004f20| 20 72 41 63 63 6f 75 6e | 74 2e 47 65 74 43 6f 6c | rAccoun|t.GetCol|
|00004f30| 75 6d 6e 49 6e 64 65 78 | 28 22 61 63 63 6f 75 6e |umnIndex|("accoun|
|00004f40| 74 4b 65 79 22 2c 30 29 | 0d 0a 09 09 09 09 09 27 |tKey",0)|.......'|
|00004f50| 46 6f 72 20 69 20 3d 33 | 44 20 31 20 74 6f 20 6e |For i =3|D 1 to n|
|00004f60| 41 63 63 6f 75 6e 74 0d | 0a 09 09 09 09 09 27 09 |Account.|......'.|
|00004f70| 73 41 63 63 6f 75 6e 74 | 20 3d 33 44 20 72 41 63 |sAccount| =3D rAc|
|00004f80| 63 6f 75 6e 74 2e 47 65 | 74 52 6f 77 56 61 6c 75 |count.Ge|tRowValu|
|00004f90| 65 28 69 2d 31 2c 69 41 | 63 63 6f 75 6e 74 2c 30 |e(i-1,iA|ccount,0|
|00004fa0| 29 0d 0a 09 09 09 09 09 | 27 09 4e 65 78 74 0d 0a |).......|'.Next..|
|00004fb0| 09 09 09 09 09 27 75 72 | 6c 31 20 3d 33 44 20 77 |.....'ur|l1 =3D w|
|00004fc0| 63 2e 53 65 61 72 63 68 | 4e 65 77 73 28 73 41 63 |c.Search|News(sAc|
|00004fd0| 63 6f 75 6e 74 29 0d 0a | 09 09 09 09 09 27 75 72 |count)..|.....'ur|
|00004fe0| 6c 31 20 3d 33 44 20 77 | 63 2e 47 65 74 46 6c 69 |l1 =3D w|c.GetFli|
|00004ff0| 67 68 74 49 6e 66 6f 72 | 6d 61 74 69 6f 6e 28 29 |ghtInfor|mation()|
|00005000| 0d 0a 0d 0a 09 09 09 09 | 09 0d 0a 09 09 09 09 09 |........|........|
|00005010| 27 47 65 74 20 74 68 65 | 20 4d 65 20 69 74 65 6d |'Get the| Me item|
|00005020| 20 20 20 3d 32 30 0d 0a | 0d 0a 09 09 09 09 09 20 | =20..|....... |
|00005030| 20 20 20 66 6c 61 67 32 | 20 3d 33 44 20 47 65 74 | flag2| =3D Get|
|00005040| 4d 65 49 74 65 6d 28 63 | 75 72 32 29 0d 0a 09 09 |MeItem(c|ur2)....|
|00005050| 09 09 09 20 20 20 20 27 | 20 64 69 64 20 77 65 20 |... '| did we |
|00005060| 67 65 74 20 69 6e 66 6f | 20 61 62 6f 75 74 20 74 |get info| about t|
|00005070| 68 65 20 61 63 74 69 76 | 65 20 22 43 6f 6e 74 61 |he activ|e "Conta|
|00005080| 63 74 22 20 69 74 65 6d | 3f 0d 0a 09 09 09 09 09 |ct" item|?.......|
|00005090| 20 20 20 20 49 66 20 4e | 6f 74 20 66 6c 61 67 32 | If N|ot flag2|
|000050a0| 20 54 68 65 6e 0d 0a 09 | 09 09 09 09 20 20 20 20 | Then...|.... |
|000050b0| 20 20 20 20 4d 73 67 42 | 6f 78 20 22 50 6c 65 61 | MsgB|ox "Plea|
|000050c0| 73 65 20 43 6f 6e 66 69 | 67 75 72 65 20 20 2d 4d |se Confi|gure -M|
|000050d0| 65 2d 20 69 74 65 6d 20 | 69 6e 20 43 6f 6d 6d 65 |e- item |in Comme|
|000050e0| 6e 63 65 2e 22 0d 0a 09 | 09 09 09 09 20 20 20 20 |nce."...|.... |
|000050f0| 20 20 20 20 45 78 69 74 | 20 53 75 62 0d 0a 09 09 | Exit| Sub....|
|00005100| 09 09 09 20 20 20 20 65 | 6e 64 20 69 66 20 20 20 |... e|nd if |
|00005110| 3d 32 30 0d 0a 09 09 09 | 09 09 20 20 20 20 27 20 |=20.....|.. ' |
|00005120| 65 6c 73 65 20 77 65 20 | 67 6f 74 20 74 68 65 20 |else we |got the |
|00005130| 4d 65 20 69 74 65 6d 0d | 0a 09 09 09 09 09 20 20 |Me item.|...... |
|00005140| 20 3d 32 30 0d 0a 0d 0a | 09 09 09 09 09 20 20 20 | =20....|..... |
|00005150| 20 63 75 72 32 2e 53 65 | 65 6b 52 6f 77 20 30 2c | cur2.Se|ekRow 0,|
|00005160| 20 30 0d 0a 09 09 09 09 | 09 20 20 20 20 53 65 74 | 0......|. Set|
|00005170| 20 71 72 73 32 20 3d 33 | 44 20 63 75 72 32 2e 47 | qrs2 =3|D cur2.G|
|00005180| 65 74 51 75 65 72 79 52 | 6f 77 53 65 74 28 31 2c |etQueryR|owSet(1,|
|00005190| 20 30 29 0d 0a 09 09 09 | 09 09 20 20 20 3d 32 30 | 0).....|.. =20|
|000051a0| 0d 0a 09 09 09 09 09 09 | 27 67 65 74 20 74 68 65 |........|'get the|
|000051b0| 20 66 69 65 6c 64 20 76 | 61 6c 75 65 73 20 72 65 | field v|alues re|
|000051c0| 71 75 69 72 65 64 20 62 | 79 20 77 2f 63 0d 0a 09 |quired b|y w/c...|
|000051d0| 09 09 09 09 09 73 44 65 | 70 41 69 72 70 4e 61 6d |.....sDe|pAirpNam|
|000051e0| 65 20 3d 33 44 20 47 65 | 74 43 69 74 79 56 61 6c |e =3D Ge|tCityVal|
|000051f0| 75 65 4d 45 28 71 72 73 | 32 29 20 26 20 22 2c 20 |ueME(qrs|2) & ", |
|00005200| 22 20 26 20 20 47 65 74 | 53 74 61 74 65 56 61 6c |" & Get|StateVal|
|00005210| 75 65 4d 45 28 71 72 73 | 32 29 20 26 20 3d 0d 0a |ueME(qrs|2) & =..|
|00005220| 09 09 09 09 09 22 2c 20 | 22 20 26 20 47 65 74 5a |.....", |" & GetZ|
|00005230| 69 70 56 61 6c 75 65 4d | 45 28 71 72 73 32 29 0d |ipValueM|E(qrs2).|
|00005240| 0a 09 09 09 09 09 09 73 | 44 65 73 74 41 69 72 70 |.......s|DestAirp|
|00005250| 4e 61 6d 65 20 3d 33 44 | 20 73 43 69 74 79 20 26 |Name =3D| sCity &|
|00005260| 20 22 2c 20 22 20 26 20 | 20 73 53 74 61 74 65 20 | ", " & | sState |
|00005270| 26 20 22 2c 20 22 20 3d | 0d 0a 09 09 09 09 09 26 |& ", " =|.......&|
|00005280| 20 73 5a 69 70 0d 0a 09 | 09 09 09 09 09 73 44 65 | sZip...|.....sDe|
|00005290| 70 44 61 74 65 20 3d 33 | 44 20 44 61 74 65 56 61 |pDate =3|D DateVa|
|000052a0| 6c 0d 0a 09 09 09 09 09 | 09 27 73 65 74 20 74 68 |l.......|.'set th|
|000052b0| 65 20 72 65 74 75 72 6e | 20 64 61 74 65 20 61 73 |e return| date as|
|000052c0| 20 74 6f 6d 6f 72 72 6f | 77 0d 0a 09 09 09 09 09 | tomorro|w.......|
|000052d0| 09 73 52 65 74 75 72 6e | 44 61 74 65 20 3d 33 44 |.sReturn|Date =3D|
|000052e0| 20 44 61 74 65 41 64 64 | 28 22 64 22 2c 31 2c 20 | DateAdd|("d",1, |
|000052f0| 44 61 74 65 56 61 6c 29 | 0d 0a 09 09 09 09 09 3d |DateVal)|.......=|
|00005300| 30 39 0d 0a 09 09 09 09 | 09 20 20 0d 0a 09 09 09 |09......|. .....|
|00005310| 09 09 20 20 75 72 6c 31 | 20 3d 33 44 20 77 63 2e |.. url1| =3D wc.|
|00005320| 47 65 74 46 6c 69 67 68 | 74 57 69 7a 61 72 64 28 |GetFligh|tWizard(|
|00005330| 73 44 65 70 41 69 72 70 | 4e 61 6d 65 2c 20 73 44 |sDepAirp|Name, sD|
|00005340| 65 73 74 41 69 72 70 4e | 61 6d 65 2c 20 73 44 65 |estAirpN|ame, sDe|
|00005350| 70 44 61 74 65 2c 20 3d | 0d 0a 09 09 09 09 09 73 |pDate, =|.......s|
|00005360| 52 65 74 75 72 6e 44 61 | 74 65 29 0d 0a 09 09 09 |ReturnDa|te).....|
|00005370| 09 09 20 20 20 3d 32 30 | 0d 0a 0d 0a 09 09 09 09 |.. =20|........|
|00005380| 09 70 61 72 65 6e 74 2e | 66 72 61 6d 65 73 28 22 |.parent.|frames("|
|00005390| 4d 61 69 6e 22 29 2e 6c | 6f 63 61 74 69 6f 6e 2e |Main").l|ocation.|
|000053a0| 68 72 65 66 20 3d 33 44 | 20 75 72 6c 31 3d 30 39 |href =3D| url1=09|
|000053b0| 0d 0a 09 09 09 09 3d 30 | 39 0d 0a 09 09 09 09 43 |......=0|9......C|
|000053c0| 61 73 65 20 22 57 65 62 | 22 0d 0a 09 09 09 09 09 |ase "Web|".......|
|000053d0| 27 69 41 63 63 6f 75 6e | 74 20 3d 33 44 20 72 41 |'iAccoun|t =3D rA|
|000053e0| 63 63 6f 75 6e 74 2e 47 | 65 74 43 6f 6c 75 6d 6e |ccount.G|etColumn|
|000053f0| 49 6e 64 65 78 28 22 61 | 63 63 6f 75 6e 74 4b 65 |Index("a|ccountKe|
|00005400| 79 22 2c 30 29 0d 0a 09 | 09 09 09 09 69 43 69 74 |y",0)...|....iCit|
|00005410| 79 20 3d 33 44 20 72 41 | 63 63 6f 75 6e 74 2e 47 |y =3D rA|ccount.G|
|00005420| 65 74 43 6f 6c 75 6d 6e | 49 6e 64 65 78 28 22 43 |etColumn|Index("C|
|00005430| 69 74 79 22 2c 30 29 0d | 0a 09 09 09 09 09 69 53 |ity",0).|......iS|
|00005440| 74 61 74 65 20 3d 33 44 | 20 72 41 63 63 6f 75 6e |tate =3D| rAccoun|
|00005450| 74 2e 47 65 74 43 6f 6c | 75 6d 6e 49 6e 64 65 78 |t.GetCol|umnIndex|
|00005460| 28 22 73 74 61 74 65 50 | 72 6f 76 69 6e 63 65 22 |("stateP|rovince"|
|00005470| 2c 30 29 0d 0a 0d 0a 09 | 09 09 09 09 46 6f 72 20 |,0).....|....For |
|00005480| 69 20 3d 33 44 20 31 20 | 74 6f 20 6e 41 63 63 6f |i =3D 1 |to nAcco|
|00005490| 75 6e 74 0d 0a 09 09 09 | 09 09 09 27 73 41 63 63 |unt.....|...'sAcc|
|000054a0| 6f 75 6e 74 20 3d 33 44 | 20 72 41 63 63 6f 75 6e |ount =3D| rAccoun|
|000054b0| 74 2e 47 65 74 52 6f 77 | 56 61 6c 75 65 28 69 2d |t.GetRow|Value(i-|
|000054c0| 31 2c 69 41 63 63 6f 75 | 6e 74 2c 30 29 0d 0a 09 |1,iAccou|nt,0)...|
|000054d0| 09 09 09 09 09 73 43 69 | 74 79 20 3d 33 44 20 72 |.....sCi|ty =3D r|
|000054e0| 41 63 63 6f 75 6e 74 2e | 47 65 74 52 6f 77 56 61 |Account.|GetRowVa|
|000054f0| 6c 75 65 28 69 2d 31 2c | 69 43 69 74 79 2c 30 29 |lue(i-1,|iCity,0)|
|00005500| 0d 0a 09 09 09 09 09 09 | 73 53 74 61 74 65 20 3d |........|sState =|
|00005510| 33 44 20 72 41 63 63 6f | 75 6e 74 2e 47 65 74 52 |3D rAcco|unt.GetR|
|00005520| 6f 77 56 61 6c 75 65 28 | 69 2d 31 2c 69 53 74 61 |owValue(|i-1,iSta|
|00005530| 74 65 2c 30 29 0d 0a 09 | 09 09 09 09 4e 65 78 74 |te,0)...|....Next|
|00005540| 0d 0a 09 09 09 09 09 27 | 75 72 6c 31 20 3d 33 44 |.......'|url1 =3D|
|00005550| 20 77 63 2e 53 65 61 72 | 63 68 54 65 78 74 28 73 | wc.Sear|chText(s|
|00005560| 41 63 63 6f 75 6e 74 29 | 0d 0a 09 09 09 09 09 75 |Account)|.......u|
|00005570| 72 6c 31 20 3d 33 44 20 | 77 63 2e 44 69 72 65 63 |rl1 =3D |wc.Direc|
|00005580| 74 6f 72 79 43 6f 6d 70 | 61 6e 79 20 28 22 22 2c |toryComp|any ("",|
|00005590| 20 73 43 69 74 79 2c 20 | 73 53 74 61 74 65 29 0d | sCity, |sState).|
|000055a0| 0a 09 09 09 09 09 70 61 | 72 65 6e 74 2e 66 72 61 |......pa|rent.fra|
|000055b0| 6d 65 73 28 22 4d 61 69 | 6e 22 29 2e 6c 6f 63 61 |mes("Mai|n").loca|
|000055c0| 74 69 6f 6e 2e 68 72 65 | 66 20 3d 33 44 20 75 72 |tion.hre|f =3D ur|
|000055d0| 6c 31 09 3d 30 39 0d 0a | 09 09 09 3d 30 39 0d 0a |l1.=09..|...=09..|
|000055e0| 09 09 09 09 43 61 73 65 | 20 22 57 65 62 73 69 74 |....Case| "Websit|
|000055f0| 65 22 3d 30 39 0d 0a 09 | 09 09 09 09 69 57 65 62 |e"=09...|....iWeb|
|00005600| 73 69 74 65 20 3d 33 44 | 20 72 41 63 63 6f 75 6e |site =3D| rAccoun|
|00005610| 74 2e 47 65 74 43 6f 6c | 75 6d 6e 49 6e 64 65 78 |t.GetCol|umnIndex|
|00005620| 28 22 57 65 62 73 69 74 | 65 22 2c 30 29 0d 0a 09 |("Websit|e",0)...|
|00005630| 09 09 09 09 46 6f 72 20 | 69 20 3d 33 44 20 31 20 |....For |i =3D 1 |
|00005640| 74 6f 20 6e 41 63 63 6f | 75 6e 74 0d 0a 09 09 09 |to nAcco|unt.....|
|00005650| 09 09 09 73 57 65 62 73 | 69 74 65 20 3d 33 44 20 |...sWebs|ite =3D |
|00005660| 72 41 63 63 6f 75 6e 74 | 2e 47 65 74 52 6f 77 56 |rAccount|.GetRowV|
|00005670| 61 6c 75 65 28 69 2d 31 | 2c 69 57 65 62 73 69 74 |alue(i-1|,iWebsit|
|00005680| 65 2c 30 29 0d 0a 09 09 | 09 09 09 09 49 66 20 4c |e,0)....|....If L|
|00005690| 65 66 74 28 73 57 65 62 | 73 69 74 65 2c 37 29 20 |eft(sWeb|site,7) |
|000056a0| 3c 3e 20 22 68 74 74 70 | 3a 2f 2f 22 20 54 68 65 |<> "http|://" The|
|000056b0| 6e 0d 0a 09 09 09 09 09 | 09 09 73 57 65 62 73 69 |n.......|..sWebsi|
|000056c0| 74 65 20 3d 33 44 20 22 | 68 74 74 70 3a 2f 2f 22 |te =3D "|http://"|
|000056d0| 20 26 20 73 57 65 62 73 | 69 74 65 0d 0a 09 09 09 | & sWebs|ite.....|
|000056e0| 09 09 09 45 6e 64 20 69 | 66 0d 0a 09 09 09 09 09 |...End i|f.......|
|000056f0| 4e 65 78 74 0d 0a 09 09 | 09 09 09 70 61 72 65 6e |Next....|...paren|
|00005700| 74 2e 66 72 61 6d 65 73 | 28 22 4d 61 69 6e 22 29 |t.frames|("Main")|
|00005710| 2e 6c 6f 63 61 74 69 6f | 6e 2e 68 72 65 66 20 3d |.locatio|n.href =|
|00005720| 33 44 20 73 57 65 62 73 | 69 74 65 09 09 09 09 09 |3D sWebs|ite.....|
|00005730| 09 09 09 09 09 09 09 09 | 09 09 3d 30 39 0d 0a 09 |........|..=09...|
|00005740| 09 3d 30 39 0d 0a 09 09 | 09 45 6e 64 20 53 65 6c |.=09....|.End Sel|
|00005750| 65 63 74 3d 30 39 0d 0a | 09 09 3d 30 39 0d 0a 09 |ect=09..|..=09...|
|00005760| 09 43 61 73 65 20 22 43 | 6f 6d 6d 65 6e 63 65 20 |.Case "C|ommence |
|00005770| 52 4d 20 57 65 62 20 53 | 65 61 72 63 68 20 4d 79 |RM Web S|earch My|
|00005780| 4c 65 61 64 73 22 0d 0a | 09 09 09 75 20 3d 33 44 |Leads"..|...u =3D|
|00005790| 20 46 69 6e 64 49 74 65 | 6d 28 22 4d 79 20 4c 65 | FindIte|m("My Le|
|000057a0| 61 64 73 20 52 65 76 69 | 65 77 22 29 0d 0a 09 09 |ads Revi|ew")....|
|000057b0| 3d 30 39 0d 0a 09 09 09 | 27 20 73 6f 20 6c 65 74 |=09.....|' so let|
|000057c0| 27 73 20 66 69 6e 64 20 | 74 68 65 20 74 69 63 6b |'s find |the tick|
|000057d0| 65 72 20 73 79 6d 62 6f | 6c 20 75 73 69 6e 67 20 |er symbo|l using |
|000057e0| 74 68 65 20 41 50 49 0d | 0a 09 09 09 53 65 74 20 |the API.|....Set |
|000057f0| 63 41 63 63 6f 75 6e 74 | 20 3d 33 44 20 43 6f 6d |cAccount| =3D Com|
|00005800| 6d 65 6e 63 65 44 42 2e | 47 65 74 43 75 72 73 6f |menceDB.|GetCurso|
|00005810| 72 28 30 2c 22 41 63 63 | 6f 75 6e 74 22 2c 30 29 |r(0,"Acc|ount",0)|
|00005820| 0d 0a 09 09 09 3d 30 39 | 0d 0a 09 09 09 63 41 63 |.....=09|.....cAc|
|00005830| 63 6f 75 6e 74 2e 53 65 | 74 46 69 6c 74 65 72 20 |count.Se|tFilter |
|00005840| 22 5b 56 69 65 77 46 69 | 6c 74 65 72 28 31 2c 46 |"[ViewFi|lter(1,F|
|00005850| 2c 2c 22 22 61 63 63 6f | 75 6e 74 4b 65 79 22 22 |,,""acco|untKey""|
|00005860| 2c 45 71 75 61 6c 20 3d | 0d 0a 74 6f 2c 22 22 22 |,Equal =|..to,"""|
|00005870| 2b 54 72 69 6d 28 75 28 | 30 29 29 2b 22 22 22 2c |+Trim(u(|0))+""",|
|00005880| 29 5d 22 2c 30 0d 0a 09 | 09 09 63 41 63 63 6f 75 |)]",0...|..cAccou|
|00005890| 6e 74 2e 53 65 74 46 69 | 6c 74 65 72 20 22 5b 56 |nt.SetFi|lter "[V|
|000058a0| 69 65 77 46 69 6c 74 65 | 72 28 32 2c 46 2c 2c 22 |iewFilte|r(2,F,,"|
|000058b0| 22 62 75 73 69 6e 65 73 | 73 4e 75 6d 62 65 72 22 |"busines|sNumber"|
|000058c0| 22 2c 45 71 75 61 6c 20 | 3d 0d 0a 74 6f 2c 22 22 |",Equal |=..to,""|
|000058d0| 22 2b 54 72 69 6d 28 75 | 28 31 29 29 2b 22 22 22 |"+Trim(u|(1))+"""|
|000058e0| 2c 29 5d 22 2c 30 0d 0a | 0d 0a 09 09 09 6e 41 63 |,)]",0..|.....nAc|
|000058f0| 63 6f 75 6e 74 20 3d 33 | 44 20 63 41 63 63 6f 75 |count =3|D cAccou|
|00005900| 6e 74 2e 52 6f 77 43 6f | 75 6e 74 0d 0a 0d 0a 09 |nt.RowCo|unt.....|
|00005910| 09 09 53 65 74 20 72 41 | 63 63 6f 75 6e 74 20 3d |..Set rA|ccount =|
|00005920| 33 44 20 63 41 63 63 6f | 75 6e 74 2e 47 65 74 45 |3D cAcco|unt.GetE|
|00005930| 64 69 74 52 6f 77 53 65 | 74 28 6e 41 63 63 6f 75 |ditRowSe|t(nAccou|
|00005940| 6e 74 2c 30 29 0d 0a 0d | 0a 09 09 09 53 65 6c 65 |nt,0)...|....Sele|
|00005950| 63 74 20 43 61 73 65 20 | 76 54 79 70 65 0d 0a 09 |ct Case |vType...|
|00005960| 09 09 09 43 61 73 65 20 | 22 53 74 6f 63 6b 22 0d |...Case |"Stock".|
|00005970| 0a 09 09 09 09 09 69 54 | 69 63 6b 65 72 20 3d 33 |......iT|icker =3|
|00005980| 44 20 72 41 63 63 6f 75 | 6e 74 2e 47 65 74 43 6f |D rAccou|nt.GetCo|
|00005990| 6c 75 6d 6e 49 6e 64 65 | 78 28 22 54 69 63 6b 65 |lumnInde|x("Ticke|
|000059a0| 72 22 2c 30 29 0d 0a 09 | 09 09 09 09 46 6f 72 20 |r",0)...|....For |
|000059b0| 69 20 3d 33 44 20 31 20 | 74 6f 20 6e 41 63 63 6f |i =3D 1 |to nAcco|
|000059c0| 75 6e 74 0d 0a 09 09 09 | 09 09 09 73 54 69 63 6b |unt.....|...sTick|
|000059d0| 65 72 20 3d 33 44 20 72 | 41 63 63 6f 75 6e 74 2e |er =3D r|Account.|
|000059e0| 47 65 74 52 6f 77 56 61 | 6c 75 65 28 69 2d 31 2c |GetRowVa|lue(i-1,|
|000059f0| 69 54 69 63 6b 65 72 2c | 30 29 0d 0a 09 09 09 09 |iTicker,|0)......|
|00005a00| 09 4e 65 78 74 0d 0a 09 | 09 09 09 09 75 72 6c 31 |.Next...|....url1|
|00005a10| 20 3d 33 44 20 77 63 2e | 47 65 74 53 74 6f 63 6b | =3D wc.|GetStock|
|00005a20| 51 75 6f 74 65 28 73 54 | 69 63 6b 65 72 29 0d 0a |Quote(sT|icker)..|
|00005a30| 09 09 09 09 09 70 61 72 | 65 6e 74 2e 66 72 61 6d |.....par|ent.fram|
|00005a40| 65 73 28 22 4d 61 69 6e | 22 29 2e 6c 6f 63 61 74 |es("Main|").locat|
|00005a50| 69 6f 6e 2e 68 72 65 66 | 20 3d 33 44 20 75 72 6c |ion.href| =3D url|
|00005a60| 31 0d 0a 09 09 09 09 3d | 30 39 0d 0a 09 09 09 09 |1......=|09......|
|00005a70| 43 61 73 65 20 22 57 65 | 61 74 68 65 72 22 0d 0a |Case "We|ather"..|
|00005a80| 09 09 09 09 09 69 5a 69 | 70 20 3d 33 44 20 72 41 |.....iZi|p =3D rA|
|00005a90| 63 63 6f 75 6e 74 2e 47 | 65 74 43 6f 6c 75 6d 6e |ccount.G|etColumn|
|00005aa0| 49 6e 64 65 78 28 22 7a | 69 70 50 6f 73 74 61 6c |Index("z|ipPostal|
|00005ab0| 22 2c 30 29 0d 0a 09 09 | 09 09 09 46 6f 72 20 69 |",0)....|...For i|
|00005ac0| 20 3d 33 44 20 31 20 74 | 6f 20 6e 41 63 63 6f 75 | =3D 1 t|o nAccou|
|00005ad0| 6e 74 0d 0a 09 09 09 09 | 09 09 73 5a 69 70 20 3d |nt......|..sZip =|
|00005ae0| 33 44 20 72 41 63 63 6f | 75 6e 74 2e 47 65 74 52 |3D rAcco|unt.GetR|
|00005af0| 6f 77 56 61 6c 75 65 28 | 69 2d 31 2c 69 5a 69 70 |owValue(|i-1,iZip|
|00005b00| 2c 30 29 0d 0a 09 09 09 | 09 09 4e 65 78 74 0d 0a |,0).....|..Next..|
|00005b10| 09 09 09 09 09 75 72 6c | 31 20 3d 33 44 20 77 63 |.....url|1 =3D wc|
|00005b20| 2e 47 65 74 57 65 61 74 | 68 65 72 28 73 5a 69 70 |.GetWeat|her(sZip|
|00005b30| 29 0d 0a 09 09 09 09 09 | 70 61 72 65 6e 74 2e 66 |).......|parent.f|
|00005b40| 72 61 6d 65 73 28 22 4d | 61 69 6e 22 29 2e 6c 6f |rames("M|ain").lo|
|00005b50| 63 61 74 69 6f 6e 2e 68 | 72 65 66 20 3d 33 44 20 |cation.h|ref =3D |
|00005b60| 75 72 6c 31 0d 0a 09 09 | 09 09 3d 30 39 0d 0a 09 |url1....|..=09...|
|00005b70| 09 09 09 43 61 73 65 20 | 22 4d 61 70 22 0d 0a 09 |...Case |"Map"...|
|00005b80| 09 09 09 09 69 53 74 72 | 65 65 74 20 3d 33 44 20 |....iStr|eet =3D |
|00005b90| 72 41 63 63 6f 75 6e 74 | 2e 47 65 74 43 6f 6c 75 |rAccount|.GetColu|
|00005ba0| 6d 6e 49 6e 64 65 78 28 | 22 41 64 64 72 65 73 73 |mnIndex(|"Address|
|00005bb0| 22 2c 30 29 0d 0a 09 09 | 09 09 09 69 43 69 74 79 |",0)....|...iCity|
|00005bc0| 20 3d 33 44 20 72 41 63 | 63 6f 75 6e 74 2e 47 65 | =3D rAc|count.Ge|
|00005bd0| 74 43 6f 6c 75 6d 6e 49 | 6e 64 65 78 28 22 43 69 |tColumnI|ndex("Ci|
|00005be0| 74 79 22 2c 30 29 0d 0a | 09 09 09 09 09 69 53 74 |ty",0)..|.....iSt|
|00005bf0| 61 74 65 20 3d 33 44 20 | 72 41 63 63 6f 75 6e 74 |ate =3D |rAccount|
|00005c00| 2e 47 65 74 43 6f 6c 75 | 6d 6e 49 6e 64 65 78 28 |.GetColu|mnIndex(|
|00005c10| 22 73 74 61 74 65 50 72 | 6f 76 69 6e 63 65 22 2c |"statePr|ovince",|
|00005c20| 30 29 0d 0a 09 09 09 09 | 09 69 5a 69 70 20 3d 33 |0)......|.iZip =3|
|00005c30| 44 20 72 41 63 63 6f 75 | 6e 74 2e 47 65 74 43 6f |D rAccou|nt.GetCo|
|00005c40| 6c 75 6d 6e 49 6e 64 65 | 78 28 22 7a 69 70 50 6f |lumnInde|x("zipPo|
|00005c50| 73 74 61 6c 22 2c 30 29 | 0d 0a 09 09 09 09 09 69 |stal",0)|.......i|
|00005c60| 43 6f 75 6e 74 72 79 20 | 3d 33 44 20 72 41 63 63 |Country |=3D rAcc|
|00005c70| 6f 75 6e 74 2e 47 65 74 | 43 6f 6c 75 6d 6e 49 6e |ount.Get|ColumnIn|
|00005c80| 64 65 78 28 22 43 6f 75 | 6e 74 72 79 22 2c 30 29 |dex("Cou|ntry",0)|
|00005c90| 0d 0a 09 09 09 09 09 46 | 6f 72 20 69 20 3d 33 44 |.......F|or i =3D|
|00005ca0| 20 31 20 74 6f 20 6e 41 | 63 63 6f 75 6e 74 0d 0a | 1 to nA|ccount..|
|00005cb0| 09 09 09 09 09 09 73 53 | 74 72 65 65 74 20 3d 33 |......sS|treet =3|
|00005cc0| 44 20 72 41 63 63 6f 75 | 6e 74 2e 47 65 74 52 6f |D rAccou|nt.GetRo|
|00005cd0| 77 56 61 6c 75 65 28 69 | 2d 31 2c 69 53 74 72 65 |wValue(i|-1,iStre|
|00005ce0| 65 74 2c 30 29 0d 0a 09 | 09 09 09 09 09 73 43 69 |et,0)...|.....sCi|
|00005cf0| 74 79 20 3d 33 44 20 72 | 41 63 63 6f 75 6e 74 2e |ty =3D r|Account.|
|00005d00| 47 65 74 52 6f 77 56 61 | 6c 75 65 28 69 2d 31 2c |GetRowVa|lue(i-1,|
|00005d10| 69 43 69 74 79 2c 30 29 | 0d 0a 09 09 09 09 09 09 |iCity,0)|........|
|00005d20| 73 53 74 61 74 65 20 3d | 33 44 20 72 41 63 63 6f |sState =|3D rAcco|
|00005d30| 75 6e 74 2e 47 65 74 52 | 6f 77 56 61 6c 75 65 28 |unt.GetR|owValue(|
|00005d40| 69 2d 31 2c 69 53 74 61 | 74 65 2c 30 29 0d 0a 09 |i-1,iSta|te,0)...|
|00005d50| 09 09 09 09 09 73 5a 69 | 70 20 3d 33 44 20 72 41 |.....sZi|p =3D rA|
|00005d60| 63 63 6f 75 6e 74 2e 47 | 65 74 52 6f 77 56 61 6c |ccount.G|etRowVal|
|00005d70| 75 65 28 69 2d 31 2c 69 | 5a 69 70 2c 30 29 0d 0a |ue(i-1,i|Zip,0)..|
|00005d80| 09 09 09 09 09 09 73 43 | 6f 75 6e 74 72 79 20 3d |......sC|ountry =|
|00005d90| 33 44 20 72 41 63 63 6f | 75 6e 74 2e 47 65 74 52 |3D rAcco|unt.GetR|
|00005da0| 6f 77 56 61 6c 75 65 28 | 69 2d 31 2c 69 43 6f 75 |owValue(|i-1,iCou|
|00005db0| 6e 74 72 79 2c 30 29 0d | 0a 09 09 09 09 09 4e 65 |ntry,0).|......Ne|
|00005dc0| 78 74 0d 0a 09 09 09 09 | 09 75 72 6c 31 20 3d 33 |xt......|.url1 =3|
|00005dd0| 44 20 77 63 2e 47 65 74 | 4d 61 70 28 73 53 74 72 |D wc.Get|Map(sStr|
|00005de0| 65 65 74 2c 73 43 69 74 | 79 2c 73 53 74 61 74 65 |eet,sCit|y,sState|
|00005df0| 2c 73 5a 69 70 2c 73 43 | 6f 75 6e 74 72 79 29 0d |,sZip,sC|ountry).|
|00005e00| 0a 09 09 09 09 09 70 61 | 72 65 6e 74 2e 66 72 61 |......pa|rent.fra|
|00005e10| 6d 65 73 28 22 4d 61 69 | 6e 22 29 2e 6c 6f 63 61 |mes("Mai|n").loca|
|00005e20| 74 69 6f 6e 2e 68 72 65 | 66 20 3d 33 44 20 75 72 |tion.hre|f =3D ur|
|00005e30| 6c 31 0d 0a 09 09 09 09 | 3d 30 39 0d 0a 09 09 09 |l1......|=09.....|
|00005e40| 09 43 61 73 65 20 22 44 | 69 72 65 63 74 69 6f 6e |.Case "D|irection|
|00005e50| 73 22 0d 0a 09 09 09 09 | 09 69 53 74 72 65 65 74 |s"......|.iStreet|
|00005e60| 20 3d 33 44 20 72 41 63 | 63 6f 75 6e 74 2e 47 65 | =3D rAc|count.Ge|
|00005e70| 74 43 6f 6c 75 6d 6e 49 | 6e 64 65 78 28 22 41 64 |tColumnI|ndex("Ad|
|00005e80| 64 72 65 73 73 22 2c 30 | 29 0d 0a 09 09 09 09 09 |dress",0|).......|
|00005e90| 69 43 69 74 79 20 3d 33 | 44 20 72 41 63 63 6f 75 |iCity =3|D rAccou|
|00005ea0| 6e 74 2e 47 65 74 43 6f | 6c 75 6d 6e 49 6e 64 65 |nt.GetCo|lumnInde|
|00005eb0| 78 28 22 43 69 74 79 22 | 2c 30 29 0d 0a 09 09 09 |x("City"|,0).....|
|00005ec0| 09 09 69 53 74 61 74 65 | 20 3d 33 44 20 72 41 63 |..iState| =3D rAc|
|00005ed0| 63 6f 75 6e 74 2e 47 65 | 74 43 6f 6c 75 6d 6e 49 |count.Ge|tColumnI|
|00005ee0| 6e 64 65 78 28 22 73 74 | 61 74 65 50 72 6f 76 69 |ndex("st|ateProvi|
|00005ef0| 6e 63 65 22 2c 30 29 0d | 0a 09 09 09 09 09 69 5a |nce",0).|......iZ|
|00005f00| 69 70 20 3d 33 44 20 72 | 41 63 63 6f 75 6e 74 2e |ip =3D r|Account.|
|00005f10| 47 65 74 43 6f 6c 75 6d | 6e 49 6e 64 65 78 28 22 |GetColum|nIndex("|
|00005f20| 7a 69 70 50 6f 73 74 61 | 6c 22 2c 30 29 0d 0a 09 |zipPosta|l",0)...|
|00005f30| 09 09 09 09 69 43 6f 75 | 6e 74 72 79 20 3d 33 44 |....iCou|ntry =3D|
|00005f40| 20 72 41 63 63 6f 75 6e | 74 2e 47 65 74 43 6f 6c | rAccoun|t.GetCol|
|00005f50| 75 6d 6e 49 6e 64 65 78 | 28 22 43 6f 75 6e 74 72 |umnIndex|("Countr|
|00005f60| 79 22 2c 30 29 0d 0a 09 | 09 09 09 09 46 6f 72 20 |y",0)...|....For |
|00005f70| 69 20 3d 33 44 20 31 20 | 74 6f 20 6e 41 63 63 6f |i =3D 1 |to nAcco|
|00005f80| 75 6e 74 0d 0a 09 09 09 | 09 09 09 73 53 74 72 65 |unt.....|...sStre|
|00005f90| 65 74 20 3d 33 44 20 72 | 41 63 63 6f 75 6e 74 2e |et =3D r|Account.|
|00005fa0| 47 65 74 52 6f 77 56 61 | 6c 75 65 28 69 2d 31 2c |GetRowVa|lue(i-1,|
|00005fb0| 69 53 74 72 65 65 74 2c | 30 29 0d 0a 09 09 09 09 |iStreet,|0)......|
|00005fc0| 09 09 73 43 69 74 79 20 | 3d 33 44 20 72 41 63 63 |..sCity |=3D rAcc|
|00005fd0| 6f 75 6e 74 2e 47 65 74 | 52 6f 77 56 61 6c 75 65 |ount.Get|RowValue|
|00005fe0| 28 69 2d 31 2c 69 43 69 | 74 79 2c 30 29 0d 0a 09 |(i-1,iCi|ty,0)...|
|00005ff0| 09 09 09 09 09 73 53 74 | 61 74 65 20 3d 33 44 20 |.....sSt|ate =3D |
|00006000| 72 41 63 63 6f 75 6e 74 | 2e 47 65 74 52 6f 77 56 |rAccount|.GetRowV|
|00006010| 61 6c 75 65 28 69 2d 31 | 2c 69 53 74 61 74 65 2c |alue(i-1|,iState,|
|00006020| 30 29 0d 0a 09 09 09 09 | 09 09 73 5a 69 70 20 3d |0)......|..sZip =|
|00006030| 33 44 20 72 41 63 63 6f | 75 6e 74 2e 47 65 74 52 |3D rAcco|unt.GetR|
|00006040| 6f 77 56 61 6c 75 65 28 | 69 2d 31 2c 69 5a 69 70 |owValue(|i-1,iZip|
|00006050| 2c 30 29 0d 0a 09 09 09 | 09 09 09 73 43 6f 75 6e |,0).....|...sCoun|
|00006060| 74 72 79 20 3d 33 44 20 | 72 41 63 63 6f 75 6e 74 |try =3D |rAccount|
|00006070| 2e 47 65 74 52 6f 77 56 | 61 6c 75 65 28 69 2d 31 |.GetRowV|alue(i-1|
|00006080| 2c 69 43 6f 75 6e 74 72 | 79 2c 30 29 0d 0a 09 09 |,iCountr|y,0)....|
|00006090| 09 09 09 4e 65 78 74 0d | 0a 09 09 09 09 3d 30 39 |...Next.|.....=09|
|000060a0| 0d 0a 09 09 09 09 09 27 | 47 65 74 20 74 68 65 20 |.......'|Get the |
|000060b0| 4d 65 20 69 74 65 6d 20 | 20 20 3d 32 30 0d 0a 0d |Me item | =20...|
|000060c0| 0a 09 09 09 09 20 20 20 | 20 66 6c 61 67 32 20 3d |..... | flag2 =|
|000060d0| 33 44 20 47 65 74 4d 65 | 49 74 65 6d 28 63 75 72 |3D GetMe|Item(cur|
|000060e0| 32 29 0d 0a 09 09 09 09 | 20 20 20 20 27 20 64 69 |2)......| ' di|
|000060f0| 64 20 77 65 20 67 65 74 | 20 69 6e 66 6f 20 61 62 |d we get| info ab|
|00006100| 6f 75 74 20 74 68 65 20 | 61 63 74 69 76 65 20 22 |out the |active "|
|00006110| 43 6f 6e 74 61 63 74 22 | 20 69 74 65 6d 3f 0d 0a |Contact"| item?..|
|00006120| 09 09 09 09 20 20 20 20 | 49 66 20 4e 6f 74 20 66 |.... |If Not f|
|00006130| 6c 61 67 32 20 54 68 65 | 6e 0d 0a 09 09 09 09 20 |lag2 The|n...... |
|00006140| 20 20 20 20 20 20 20 4d | 73 67 42 6f 78 20 22 50 | M|sgBox "P|
|00006150| 6c 65 61 73 65 20 43 6f | 6e 66 69 67 75 72 65 20 |lease Co|nfigure |
|00006160| 20 2d 4d 65 2d 20 69 74 | 65 6d 20 69 6e 20 43 6f | -Me- it|em in Co|
|00006170| 6d 6d 65 6e 63 65 2e 22 | 0d 0a 09 09 09 09 20 20 |mmence."|...... |
|00006180| 20 20 20 20 20 20 45 78 | 69 74 20 53 75 62 0d 0a | Ex|it Sub..|
|00006190| 09 09 09 09 20 20 20 20 | 65 6e 64 20 69 66 20 20 |.... |end if |
|000061a0| 20 3d 32 30 0d 0a 09 09 | 09 09 20 20 20 20 27 20 | =20....|.. ' |
|000061b0| 65 6c 73 65 20 77 65 20 | 67 6f 74 20 74 68 65 20 |else we |got the |
|000061c0| 4d 65 20 69 74 65 6d 0d | 0a 09 09 09 09 20 20 20 |Me item.|..... |
|000061d0| 3d 32 30 0d 0a 0d 0a 09 | 09 09 09 20 20 20 20 63 |=20.....|... c|
|000061e0| 75 72 32 2e 53 65 65 6b | 52 6f 77 20 30 2c 20 30 |ur2.Seek|Row 0, 0|
|000061f0| 0d 0a 09 09 09 09 20 20 | 20 20 53 65 74 20 71 72 |...... | Set qr|
|00006200| 73 32 20 3d 33 44 20 63 | 75 72 32 2e 47 65 74 51 |s2 =3D c|ur2.GetQ|
|00006210| 75 65 72 79 52 6f 77 53 | 65 74 28 31 2c 20 30 29 |ueryRowS|et(1, 0)|
|00006220| 0d 0a 09 09 09 09 20 20 | 20 3d 32 30 0d 0a 09 09 |...... | =20....|
|00006230| 09 09 09 20 20 20 0d 0a | 09 09 09 09 09 27 67 65 |... ..|.....'ge|
|00006240| 74 20 74 68 65 20 66 69 | 65 6c 64 20 76 61 6c 75 |t the fi|eld valu|
|00006250| 65 73 20 72 65 71 75 69 | 72 65 64 20 62 79 20 77 |es requi|red by w|
|00006260| 2f 63 0d 0a 09 09 09 09 | 09 73 41 64 64 72 65 73 |/c......|.sAddres|
|00006270| 73 4d 65 20 3d 33 44 20 | 47 65 74 41 64 64 72 65 |sMe =3D |GetAddre|
|00006280| 73 73 56 61 6c 75 65 4d | 45 28 71 72 73 32 29 0d |ssValueM|E(qrs2).|
|00006290| 0a 09 09 09 09 09 73 43 | 69 74 79 4d 65 20 3d 33 |......sC|ityMe =3|
|000062a0| 44 20 47 65 74 43 69 74 | 79 56 61 6c 75 65 4d 45 |D GetCit|yValueME|
|000062b0| 28 71 72 73 32 29 0d 0a | 09 09 09 09 09 73 53 74 |(qrs2)..|.....sSt|
|000062c0| 61 74 65 4d 65 20 3d 33 | 44 20 47 65 74 53 74 61 |ateMe =3|D GetSta|
|000062d0| 74 65 56 61 6c 75 65 4d | 45 28 71 72 73 32 29 0d |teValueM|E(qrs2).|
|000062e0| 0a 09 09 09 09 09 73 5a | 69 70 4d 65 20 3d 33 44 |......sZ|ipMe =3D|
|000062f0| 20 47 65 74 5a 69 70 56 | 61 6c 75 65 4d 45 28 71 | GetZipV|alueME(q|
|00006300| 72 73 32 29 0d 0a 09 09 | 09 09 09 73 43 6f 75 6e |rs2)....|...sCoun|
|00006310| 74 72 79 4d 65 20 3d 33 | 44 20 20 47 65 74 43 6f |tryMe =3|D GetCo|
|00006320| 75 6e 74 72 79 56 61 6c | 75 65 4d 45 28 71 72 73 |untryVal|ueME(qrs|
|00006330| 32 29 0d 0a 09 09 09 09 | 09 3d 30 39 0d 0a 09 09 |2)......|.=09....|
|00006340| 09 09 09 75 72 6c 31 20 | 20 3d 33 44 20 77 63 2e |...url1 | =3D wc.|
|00006350| 47 65 74 44 69 72 65 63 | 74 69 6f 6e 73 28 73 41 |GetDirec|tions(sA|
|00006360| 64 64 72 65 73 73 4d 65 | 2c 73 43 69 74 79 4d 65 |ddressMe|,sCityMe|
|00006370| 2c 73 53 74 61 74 65 4d | 65 2c 73 5a 69 70 4d 65 |,sStateM|e,sZipMe|
|00006380| 2c 73 43 6f 75 6e 74 72 | 79 4d 65 2c 73 53 74 72 |,sCountr|yMe,sStr|
|00006390| 65 65 74 2c 73 43 69 74 | 79 2c 73 53 74 61 74 65 |eet,sCit|y,sState|
|000063a0| 2c 73 5a 69 70 2c 73 43 | 6f 75 6e 74 72 79 29 0d |,sZip,sC|ountry).|
|000063b0| 0a 09 09 09 09 09 0d 0a | 09 09 09 09 09 70 61 72 |........|.....par|
|000063c0| 65 6e 74 2e 66 72 61 6d | 65 73 28 22 4d 61 69 6e |ent.fram|es("Main|
|000063d0| 22 29 2e 6c 6f 63 61 74 | 69 6f 6e 2e 68 72 65 66 |").locat|ion.href|
|000063e0| 20 3d 33 44 20 75 72 6c | 31 3d 30 39 0d 0a 09 09 | =3D url|1=09....|
|000063f0| 09 3d 30 39 0d 0a 09 09 | 09 09 27 43 61 73 65 20 |.=09....|..'Case |
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.
