After the February 11, 2021, the first day of the Spring Festival (the first) to the ASP code to the lunar calendar is the wrong, the following problems!!!!!
Microsoft VBScript runtime error error '800 a0009'

Subscript bounds: '100'

/nl (1921). The asp, line 257

Below is the ASP code, I studied the along while also didn't study, the great god to help me see

<%
MonthAdd dim WeekName (7), (11), NongliData (99), TianGan (9), DiZhi (11), ShuXiang (11), DayName (30), MonName (12)
Dim curTime curYear, curMonth curDay, curWeekday
Dim GongliStr WeekdayStr, NongliStr, NongliDayStr
Dim I, m, n, k, isEnd, bit, TheDate

'week name
WeekName (0)='*'
WeekName (1)="Sunday"
WeekName (2)="Monday"
WeekName (3)="Tuesday"
WeekName (4)="Wednesday"
WeekName (5)="Thursday"
WeekName (6)="Friday"
WeekName (7)="Saturday"

'the air-dried name
TianGan (0)="a"
TianGan (1)="b"
TianGan (2)="c"
TianGan (3)="ding"
TianGan (4)="e"
TianGan (5)="f"
TianGan (6)="g"
TianGan (7)="xin"
TianGan (8)="nonyl"
TianGan (9)="decyl"

'earthly branch name
DiZhi (0)="sub"
DiZhi (1)="ugly"
DiZhi (2)="Yin"
DiZhi (3)="sockets"
DiZhi (4)="Chen"
DiZhi (5)="third"
DiZhi (6)="noon"
DiZhi (7)="not"
DiZhi (8)="" "
DiZhi (9)="unitary"
DiZhi (10)="xu-gou ("
DiZhi (11)="hai"

'the name of the animal sign
ShuXiang (0)="rat"
ShuXiang (1)="cow"
ShuXiang (2)="tiger"
ShuXiang (3)="rabbit"
ShuXiang (4)="dragon"
ShuXiang (5)="snake"
ShuXiang (6)="horse"
ShuXiang (7)="sheep"
ShuXiang (8)="monkey"
ShuXiang (9)="chicken"
ShuXiang (10)="dog"
ShuXiang (11)="pig"

'lunar date name
DayName (0)='*'
DayName (1)="new moon"
DayName (2)="2"
DayName (3)="grade"
DayName (4)="4"
DayName (5)="fifth"
DayName (6)="which"
DayName (7)="month"
DayName (8)="8"
DayName (9)="double ninth"
DayName (10)="the 10th"
DayName (11)="11"
DayName (12)="12"
DayName (13)="13"
DayName (14)="14"
DayName (15)="15"
DayName (16)="16"
DayName (17)="17"
DayName (18)="18"
DayName (19)="19"
DayName (20)="20"
DayName (21)="21"
DayName (22)="22"
DayName (23)="23"
DayName (24)="24"
DayName (25)="25"
DayName (26)="26,"
DayName (27)="27"
DayName (28)="platoon"
Nuclear power: DayName (29)=""
DayName (30)="30"

'lunar month name
MonName (0)='*'
MonName (1)="is"
MonName (2)="2"
MonName (3)="three"
MonName (4)="4"
MonName (5)="5"
MonName (6)="6"
MonName (7)="7"
MonName (8)="eight"
MonName (9)="nine"
MonName (10)="ten"
MonName (11)="11"
MonName (12)="12"

The number of days' in front of the calendar month
MonthAdd (0)=0
MonthAdd=31 (1)
MonthAdd (2)=59
MonthAdd (3)=90
MonthAdd (4)=120
MonthAdd (5)=151
MonthAdd (6)=181
MonthAdd (7)=212
MonthAdd (8)=243
MonthAdd (9)=273
MonthAdd (10)=304
MonthAdd (11)=334

'the lunar data
NongliData (0)=2635
NongliData (1)=333387
NongliData (2)=1701
NongliData (3)=1748
NongliData (4)=267701
NongliData (5)=694
NongliData (6)=2391
NongliData (7)=133423
NongliData (8)=1175
NongliData (9)=396438
NongliData (10)=3402
NongliData (11)=3749
NongliData (12)=331177
NongliData (13)=1453
NongliData (14)=694
NongliData (15)=201326
NongliData (16)=2350
NongliData (17)=465197
NongliData (18)=3221
NongliData (19)=3402
NongliData (20)=400202
NongliData (21)=2901
NongliData (22)=1386
NongliData (23)=267611
NongliData (24)=605
NongliData (25)=2349
NongliData (26)=137515
NongliData (27)=2709
NongliData (28)=464533
NongliData (29)=1738
NongliData (30)=2901
NongliData (31)=330421
NongliData (32)=1242
NongliData (33)=2651
NongliData (34)=199255
NongliData (35)=1323
NongliData (36)=529706
NongliData (37)=3733
NongliData (38)=1706
NongliData (39)=398762
NongliData (40)=2741
NongliData (41)=1206
NongliData (42)=267438
NongliData (43)=2647
NongliData (44)=1318
NongliData (45)=204070
NongliData (46)=3477
NongliData (47)=461653
NongliData (48)=1386
NongliData (49)=2413
NongliData (50)=330077
NongliData (51)=1197
NongliData (52)=2637
NongliData (53)=268877
NongliData (54)=3365
NongliData (55)=531109
NongliData (56)=2900
NongliData (57)=2922
NongliData (58)=398042
NongliData (59)=2395
NongliData (60)=1179
NongliData (61)=267415
NongliData (62)=2635
NongliData (63)=661067
NongliData (64)=1701
NongliData (65)=1748
NongliData (66)=398772
NongliData (67)=2742
NongliData (68)=2391
NongliData (69)=330031
NongliData (70)=1175
NongliData (71)=1611
NongliData (72)=200010
NongliData (73)=3749
NongliData (74)=527717
NongliData (75)=1452
NongliData (76)=2742
nullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnull