home *** CD-ROM | disk | FTP | other *** search
Unknown | 1998-10-05 | 1.3 KB |
open in:
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was not able to be converted.
This format is not currently supported by dexvert.
Confidence | Program | Detection | Match Type | Support
|
---|
100%
| file
| data
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 13 00 00 00 43 72 65 61 | 74 65 4d 6f 6e 74 68 44 |....Crea|teMonthD|
|00000010| 72 6f 70 44 6f 77 6e 13 | 00 00 00 43 72 65 61 74 |ropDown.|...Creat|
|00000020| 65 4d 6f 6e 74 68 44 72 | 6f 70 44 6f 77 6e 08 00 |eMonthDr|opDown..|
|00000030| 00 00 56 42 53 63 72 69 | 70 74 2b 00 00 00 44 69 |..VBScri|pt+...Di|
|00000040| 73 70 6c 61 79 73 20 63 | 61 6c 65 6e 64 61 72 20 |splays c|alendar |
|00000050| 6d 6f 6e 74 68 73 20 69 | 6e 20 61 20 64 72 6f 70 |months i|n a drop|
|00000060| 20 64 6f 77 6e 20 62 6f | 78 b2 04 00 00 27 3d 3d | down bo|x....'==|
|00000070| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000080| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000090| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000000a0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000000b0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 0d 0a 27 20 50 52 4f |========|=..' PRO|
|000000c0| 43 45 44 55 52 45 3a 09 | 43 72 65 61 74 65 4d 6f |CEDURE:.|CreateMo|
|000000d0| 6e 74 68 44 72 6f 70 44 | 6f 77 6e 0d 0a 0d 0a 27 |nthDropD|own....'|
|000000e0| 20 49 4e 50 55 54 3a 09 | 09 09 63 74 72 6c 6e 61 | INPUT:.|..ctrlna|
|000000f0| 6d 65 20 28 73 74 72 69 | 6e 67 29 09 09 2d 20 74 |me (stri|ng)..- t|
|00000100| 68 65 20 6e 61 6d 65 20 | 6f 66 20 74 68 65 20 66 |he name |of the f|
|00000110| 6f 72 6d 20 65 6c 65 6d | 65 6e 74 0d 0a 27 09 09 |orm elem|ent..'..|
|00000120| 09 09 09 63 74 72 6c 73 | 69 7a 65 20 28 6e 75 6d |...ctrls|ize (num|
|00000130| 62 65 72 29 09 09 2d 20 | 74 68 65 20 73 69 7a 65 |ber)..- |the size|
|00000140| 20 6f 66 20 74 68 65 20 | 66 6f 72 6d 20 65 6c 65 | of the |form ele|
|00000150| 6d 65 6e 74 0d 0a 27 09 | 09 09 09 09 63 74 72 6c |ment..'.|....ctrl|
|00000160| 64 65 66 61 75 6c 74 20 | 28 73 74 72 69 6e 67 29 |default |(string)|
|00000170| 09 2d 20 74 68 65 20 64 | 65 66 61 75 6c 74 20 76 |.- the d|efault v|
|00000180| 61 6c 75 65 0d 0a 27 20 | 44 45 53 43 3a 09 09 09 |alue..' |DESC:...|
|00000190| 54 68 69 73 20 70 72 6f | 63 65 64 75 72 65 20 64 |This pro|cedure d|
|000001a0| 69 73 70 6c 61 79 73 20 | 63 61 6c 65 6e 64 61 72 |isplays |calendar|
|000001b0| 20 6d 6f 6e 74 68 73 20 | 69 6e 20 61 20 64 72 6f | months |in a dro|
|000001c0| 70 20 64 6f 77 6e 20 62 | 6f 78 0d 0a 27 09 09 09 |p down b|ox..'...|
|000001d0| 09 09 62 65 67 69 6e 6e | 69 6e 67 20 77 69 74 68 |..beginn|ing with|
|000001e0| 20 4a 61 6e 75 61 72 79 | 20 61 6e 64 20 65 6e 64 | January| and end|
|000001f0| 69 6e 67 20 77 69 74 68 | 20 44 65 63 65 6d 62 65 |ing with| Decembe|
|00000200| 72 2e 20 54 68 65 20 6d | 6f 6e 74 68 0d 0a 27 09 |r. The m|onth..'.|
|00000210| 09 09 09 09 6e 61 6d 65 | 20 69 73 20 64 69 73 70 |....name| is disp|
|00000220| 6c 61 79 65 64 20 74 6f | 20 74 68 65 20 75 73 65 |layed to| the use|
|00000230| 72 20 77 68 69 6c 65 20 | 74 68 65 20 6d 6f 6e 74 |r while |the mont|
|00000240| 68 20 6e 75 6d 62 65 72 | 20 69 73 20 73 65 74 0d |h number| is set.|
|00000250| 0a 27 09 09 09 09 09 61 | 73 20 74 68 65 20 6f 70 |.'.....a|s the op|
|00000260| 74 69 6f 6e 20 76 61 6c | 75 65 2e 0d 0a 27 3d 3d |tion val|ue...'==|
|00000270| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000280| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000290| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000002a0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000002b0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 0d 0a 53 75 62 20 43 |========|=..Sub C|
|000002c0| 72 65 61 74 65 4d 6f 6e | 74 68 44 72 6f 70 44 6f |reateMon|thDropDo|
|000002d0| 77 6e 28 63 74 72 6c 6e | 61 6d 65 2c 20 63 74 72 |wn(ctrln|ame, ctr|
|000002e0| 6c 73 69 7a 65 2c 20 63 | 74 72 6c 64 65 66 61 75 |lsize, c|trldefau|
|000002f0| 6c 74 29 0d 0a 09 44 69 | 6d 20 73 74 72 2c 20 6d |lt)...Di|m str, m|
|00000300| 74 68 6e 61 6d 65 2c 20 | 69 0d 0a 09 09 27 20 57 |thname, |i....' W|
|00000310| 72 69 74 65 20 6f 75 74 | 20 73 65 6c 65 63 74 20 |rite out| select |
|00000320| 68 65 61 64 65 72 0d 0a | 09 73 74 72 20 3d 20 22 |header..|.str = "|
|00000330| 3c 73 65 6c 65 63 74 20 | 6e 61 6d 65 3d 22 20 26 |<select |name=" &|
|00000340| 20 43 68 72 28 33 34 29 | 20 26 20 63 74 72 6c 6e | Chr(34)| & ctrln|
|00000350| 61 6d 65 20 26 20 43 68 | 72 28 33 34 29 20 26 20 |ame & Ch|r(34) & |
|00000360| 22 20 73 69 7a 65 3d 22 | 20 26 20 43 68 72 28 33 |" size="| & Chr(3|
|00000370| 34 29 20 26 20 63 74 72 | 6c 73 69 7a 65 20 26 20 |4) & ctr|lsize & |
|00000380| 43 68 72 28 33 34 29 0d | 0a 09 73 74 72 20 3d 20 |Chr(34).|..str = |
|00000390| 73 74 72 20 26 20 22 3e | 22 0d 0a 09 52 65 73 70 |str & ">|"...Resp|
|000003a0| 6f 6e 73 65 2e 57 72 69 | 74 65 20 73 74 72 0d 0a |onse.Wri|te str..|
|000003b0| 09 0d 0a 09 27 20 50 6f | 70 75 6c 61 74 65 20 64 |....' Po|pulate d|
|000003c0| 72 6f 70 20 64 6f 77 6e | 20 6c 69 73 74 0d 0a 09 |rop down| list...|
|000003d0| 46 6f 72 20 69 20 3d 20 | 31 20 74 6f 20 31 32 0d |For i = |1 to 12.|
|000003e0| 0a 09 09 6d 74 68 6e 61 | 6d 65 20 3d 20 4d 6f 6e |...mthna|me = Mon|
|000003f0| 74 68 4e 61 6d 65 28 69 | 29 0d 0a 09 09 49 66 20 |thName(i|)....If |
|00000400| 43 49 6e 74 28 69 29 20 | 3d 20 43 49 6e 74 28 63 |CInt(i) |= CInt(c|
|00000410| 74 72 6c 64 65 66 61 75 | 6c 74 29 20 54 68 65 6e |trldefau|lt) Then|
|00000420| 0d 0a 09 09 09 73 74 72 | 20 3d 20 22 3c 6f 70 74 |.....str| = "<opt|
|00000430| 69 6f 6e 20 73 65 6c 65 | 63 74 65 64 20 76 61 6c |ion sele|cted val|
|00000440| 75 65 3d 22 20 26 20 43 | 68 72 28 33 34 29 0d 0a |ue=" & C|hr(34)..|
|00000450| 09 09 65 6c 73 65 0d 0a | 09 09 09 73 74 72 20 3d |..else..|...str =|
|00000460| 20 22 3c 6f 70 74 69 6f | 6e 20 76 61 6c 75 65 3d | "<optio|n value=|
|00000470| 22 20 26 20 43 68 72 28 | 33 34 29 0d 0a 09 09 45 |" & Chr(|34)....E|
|00000480| 6e 64 20 49 66 0d 0a 09 | 09 73 74 72 20 3d 20 73 |nd If...|.str = s|
|00000490| 74 72 20 26 20 69 20 26 | 20 43 68 72 28 33 34 29 |tr & i &| Chr(34)|
|000004a0| 20 26 20 22 3e 22 20 26 | 20 6d 74 68 6e 61 6d 65 | & ">" &| mthname|
|000004b0| 20 26 20 22 3c 2f 6f 70 | 74 69 6f 6e 3e 22 0d 0a | & "</op|tion>"..|
|000004c0| 09 09 09 52 65 73 70 6f | 6e 73 65 2e 57 72 69 74 |...Respo|nse.Writ|
|000004d0| 65 20 73 74 72 0d 0a 09 | 4e 65 78 74 0d 0a 09 09 |e str...|Next....|
|000004e0| 27 20 57 72 69 74 65 20 | 6f 75 74 20 73 65 6c 65 |' Write |out sele|
|000004f0| 63 74 20 66 6f 6f 74 65 | 72 0d 0a 09 52 65 73 70 |ct foote|r...Resp|
|00000500| 6f 6e 73 65 2e 57 72 69 | 74 65 20 22 3c 2f 73 65 |onse.Wri|te "</se|
|00000510| 6c 65 63 74 3e 22 0d 0a | 45 6e 64 20 53 75 62 0b |lect>"..|End Sub.|
|00000520| 00 00 00 55 6e 73 75 70 | 70 6f 72 74 65 64 0f 00 |...Unsup|ported..|
|00000530| 00 00 33 2e 30 32 20 61 | 6e 64 20 68 69 67 68 65 |..3.02 a|nd highe|
|00000540| 72 | |r | |
+--------+-------------------------+-------------------------+--------+--------+