<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
'软件名称：龙品软件会议室网上预约系统W10.0
'源码作者：岑品雄
'官方网站：http://www.wzcen.com
'联系方式：QQ：295011549　邮箱：lxzx2488@163.com 手机号:18277450676　（只收短信，不接来电）
'请勿修改下列任何代码,以保证程序正常运行

Dim MDMDDM,MDMDMD,MDMDMM,MDMMDD,MDMMDM
Set MDMDMM=Response:Set MDMDMD=Request:Set MDMMDM=Session:Set MDMDDM=Application:Set MDMMDD=Server
If Date > CDate(MDMMMD("a_`f\`\`")) Then MDMDMM.Write MDMMMD("寴@丈@赲@，,朧@罌@竔@糶@绚@佺@産@朾@陋@巭@迂@朚@！,欝@迉@质@乫@歞@弊@牃@，,電@襼@诲@聏@糶@""""：,ahd_``dch ,邩@箬@：,=IKIacggo`eb]4@> ,扆@朵@：,`gaffcd_efe"):MDMDMM.End
dim MMDDDM
MMDDDM=MDMMMD("52E232D6^;<89C8ERgh5]>53")
dim MMDDMD
dim MMDDMM
dim MMDMDD
dim MMDMDM
dim MMDMMD
dim MMDMMM
dim MMMDDD
dim MMMDDM
dim MMMDMD
dim MMMDMM
dim MMMMDD
dim MMMMDM
dim MMMMMD
dim MMMMMM
dim MDDDDDD
dim MDDDDDM
dim MDDDDMD
dim MDDDDMM
dim MDDDMDD
dim MDDDMDM
dim MDDDMMD
MMDDMD=MDMMMD("sq""l")+MDMMDD.MapPath(MMDDDM)+MDMMMD("js672F=Es:Cljs#x't#lL|:4C@D@7E ,p446DD ,sC:G6C ,WY]>53XN")
set MDDMDMM=MDMMDD.CreateObject(MDMMMD("ps~sq]r@??64E:@?"))
MDDMDMM.open MMDDMD
MMDDMM=MDMMMD("D6=64E ,Y ,7C@> ,DJDE6>")
on error resume next
set MMDMDD=MDMMDD.CreateObject(MDMMMD("p5@53]C64@C5D6E"))
MMDMDD.open MMDDMM,MDDMDMM,1,1
MMDMDM=MMDMDD(MDMMMD("4H=IKI"))
MMDMMD=MMDMDD(MDMMMD("D49@@="))
MMDMMM=MMDMDD(MDMMMD("H63D:E6"))
MMMDDD=MMDMDD(MDMMMD("=@8@"))
MMMDDM=MMDMDD(MDMMMD("?2>6"))
MMMDMD=MMDMDD(MDMMMD("6>2:="))
MMMDMM=MMDMDD(MDMMMD("25C6DD"))
MMMMDD=MMDMDD(MDMMMD("E6="))
MMMMDM=MMDMDD(MDMMMD("3@EE@>"))
MMMMMD=MMDMDD(MDMMMD("FD6CE;"))
MMMMMM=MMDMDD(MDMMMD("E@AC:8E"))
MDDDDDD=MMDMDD(MDMMMD("D9JIKAE"))
MDDDDDM=MMDMDD(MDMMMD("BB"))
MDDDDMD=MMDMDD(MDMMMD("46="))
MDDDDMM=MMDMDD(MDMMMD("A@H6C"))
MDDDMDD=MMDMDD(MDMMMD("?@E:462"))
MDDDMDM=MMDMDD(MDMMMD("?@E:463"))
MDDDMMD=MMDMDD(MDMMMD("?@E:46"))
MMDMDD.close
set MMDMDD=nothing
Sub MDMMMM()
MDDMMDD.close()
set MDDMMDD=nothing
End Sub
Sub MMDDDD()
MDDMDMM.close()
set MDDMDMM=nothing
End Sub
Set MDDMMDM = MDMMDD.CreateObject(MDMMMD("ps~sq]#64@C5D6E"))
MDDMMMD=MDMMMD("D6=64E ,Y ,7C@> ,DJDE6>0JF4K ,@C56C ,3J ,:5 ,p$r")
set MDDMMDM=MDDMDMM.execute(MDDMMMD)
set MDDMMMM = MDMMDD.createobject(MDMMMD("25@53]C64@C5D6E"))
MDMDDDD = MDMMMD("D6=64E ,Y ,7C@> ,DJDE6>0JF4K ,@C56C ,3J ,:5 ,p$r")
MDDMMMM.open MDMDDDD, MDDMDMM, 1, 3
MDDMMMM(MDMMMD("4IAI4>"))=MDDMMDM(MDMMMD("4IAI4>"))+ (51 * 88 - 4487)
if MDDMMDM(MDMMMD("4IAI4>"))<100 then
MDDMMMM(MDMMMD("3FD6>F5"))=month(date())
end if
MDDMMMM(MDMMMD("623E@A@3"))="62"
MDDMMMM.update
MDDMMMM.close
set MDDMMMM=nothing
dim MDDDMMM
randomize timer
MDDDMMM=Int((8999)*Rnd +1000)
MDMDMM.Write(vbCrLf)
MDMDMM.Write(MDMMMD("k9E>=m") & vbCrLf)
MDMDMM.Write(MDMMMD("k9625m") & vbCrLf)
MDMDMM.Write(MDMMMD("k>6E2 ,9EEA\6BF:GlQr@?E6?E\%JA6Q ,4@?E6?ElQE6IE^9E>=j ,492CD6El83ab`aQm") & vbCrLf)
MDMDMM.Write(MDMMMD("kE:E=6m"))
MDMDMM.Write MMDMMD
MDMDMM.Write(MDMMMD(" ,mm ,"))
MDMDMM.Write MMDMDM
MDMDMM.Write(MDMMMD(" ,mm ,産@戲@癶@陁@k^E:E=6m") & vbCrLf)
MDMDMM.Write(MDMMMD("k|t%p ,9EEA\6BF:Glr@?E6?E\%JA6 ,4@?E6?ElQE6IE^9E>=j ,492CD6El83ab`aQm") & vbCrLf)
MDMDMM.Write(MDMMMD("k=:?< ,9C67lQ:>286D^sC62>9@>60DEJ=6]4DDQ ,C6=lQDEJ=6D966EQ ,EJA6lQE6IE^4DDQm") & vbCrLf)
MDMDMM.Write(MDMMMD("k$%*{t ,EJA6lE6IE^4DDm , , , ,") & vbCrLf)
MDMDMM.Write(MDMMMD("q~s* ,L") & vbCrLf)
MDMDMM.Write(MDMMMD("	,|p#vx}i ,_AIj") & vbCrLf)
MDMDMM.Write(MDMMMD("	,324<8C@F?5\:>286i ,FC=W:>286D^8B032<_h`_]8:7Xj") & vbCrLf)
MDMDMM.Write(MDMMMD(" , , , ,N") & vbCrLf)
MDMDMM.Write(MDMMMD("	,]$%*{td ,L4@=@Ci ,RuuuuuuN") & vbCrLf)
MDMDMM.Write(MDMMMD("]DEJ=6g ,L") & vbCrLf)
MDMDMM.Write(MDMMMD("	,7@?E\D:K6i ,`cAIj") & vbCrLf)
MDMDMM.Write(MDMMMD("	,7@?E\72>:=Ji ,Q%:>6D ,}6H ,#@>2?Q[ ,%:>6D[ ,D6C:7j") & vbCrLf)
MDMDMM.Write(MDMMMD("	,4@=@Ci ,Ruuuu77j") & vbCrLf)
MDMDMM.Write(MDMMMD("N") & vbCrLf)
MDMDMM.Write(MDMMMD("]K9H6?8 ,L") & vbCrLf)
MDMDMM.Write(MDMMMD("	,7@?E\D:K6i ,`cAIj") & vbCrLf)
MDMDMM.Write(MDMMMD("	,=:?6\96:89Ei ,`a_Tj") & vbCrLf)
MDMDMM.Write(MDMMMD("	,4@=@Ci ,R______j") & vbCrLf)
MDMDMM.Write(MDMMMD("	,E6IE\564@C2E:@?i ,?@?6j") & vbCrLf)
MDMDMM.Write(MDMMMD("	,E6IE\2=:8?i ,=67Ej") & vbCrLf)
MDMDMM.Write(MDMMMD("	,G6CE:42=\2=:8?i ,3@EE@>j") & vbCrLf)
MDMDMM.Write(MDMMMD("	,96:89Ei ,2FE@j") & vbCrLf)
MDMDMM.Write(MDMMMD("	,4FCD@Ci ,H\C6D:K6j") & vbCrLf)
MDMDMM.Write(MDMMMD("	,7@?E\72>:=Ji ,Q宆@低@Qj") & vbCrLf)
MDMDMM.Write(MDMMMD("	,E6IE\:?56?Ei ,aA4j") & vbCrLf)
MDMDMM.Write(MDMMMD("N") & vbCrLf)
MDMDMM.Write(MDMMMD("]DEJ=6aa ,L7@?E\D:K6i ,`cAIj ,7@?E\72>:=Ji ,Q%:>6D ,}6H ,#@>2?Q[ ,%:>6D[ ,D6C:7j ,4@=@Ci ,R______j ,N") & vbCrLf)
MDMDMM.Write(MDMMMD("3@5J[E5[E9 ,L") & vbCrLf)
MDMDMM.Write(MDMMMD("	,7@?E\72>:=Ji ,%:>6D ,}6H ,#@>2?[ ,%:>6D[ ,D6C:7j") & vbCrLf)
MDMDMM.Write(MDMMMD("	,7@?E\D:K6i ,`aAIj") & vbCrLf)
MDMDMM.Write(MDMMMD("	,4@=@Ci ,R______j") & vbCrLf)
MDMDMM.Write(MDMMMD("N") & vbCrLf)
MDMDMM.Write(MDMMMD("2 ,L") & vbCrLf)
MDMDMM.Write(MDMMMD("	,7@?E\72>:=Ji ,%:>6D ,}6H ,#@>2?[ ,%:>6D[ ,D6C:7j") & vbCrLf)
MDMDMM.Write(MDMMMD("	,7@?E\D:K6i ,`aAIj") & vbCrLf)
MDMDMM.Write(MDMMMD("N") & vbCrLf)
MDMDMM.Write(MDMMMD("2iG:D:E65 ,L") & vbCrLf)
MDMDMM.Write(MDMMMD("	,4@=@Ci ,R____uuj") & vbCrLf)
MDMDMM.Write(MDMMMD("N") & vbCrLf)
MDMDMM.Write(MDMMMD("2i24E:G6 ,L") & vbCrLf)
MDMDMM.Write(MDMMMD("	,4@=@Ci ,Ruu____j") & vbCrLf)
MDMDMM.Write(MDMMMD("N") & vbCrLf)
MDMDMM.Write(MDMMMD("]DEJ=6ac ,L") & vbCrLf)
MDMDMM.Write(MDMMMD("	,7@?E\D:K6i ,acAIj") & vbCrLf)
MDMDMM.Write(MDMMMD("	,4@=@Ci ,R____uuj") & vbCrLf)
MDMDMM.Write(MDMMMD("	,7@?E\H6:89Ei ,3@=5j") & vbCrLf)
MDMDMM.Write(MDMMMD("N") & vbCrLf)
MDMDMM.Write(MDMMMD("k^$%*{tm") & vbCrLf)
MDMDMM.Write(MDMMMD("k^DEJ=6m") & vbCrLf)
MDMDMM.Write(MDMMMD("kD4C:AE ,=2?8F286l;2G2D4C:AEm") & vbCrLf)
MDMDMM.Write(MDMMMD(" , ,7F?4E:@? ,II8WX") & vbCrLf)
MDMDMM.Write(MDMMMD(" , ,L") & vbCrLf)
MDMDMM.Write(MDMMMD(" , , , , , ,:7 ,W5@4F>6?E]7@C>`]FD6C?2>6]G2=F6llQQXL") & vbCrLf)
MDMDMM.Write(MDMMMD("	, , , , , , ,2=6CEWQ患@癿@姎@合@？,QX") & vbCrLf)
MDMDMM.Write(MDMMMD("	,	, , ,5@4F>6?E]7@C>`]FD6C?2>6]7@4FDWXj") & vbCrLf)
MDMDMM.Write(MDMMMD("	,	, , ,C6EFC? ,72=D6") & vbCrLf)
MDMDMM.Write(MDMMMD("	,	, , , , ,N") & vbCrLf)
MDMDMM.Write(MDMMMD("	, , ,:7 ,W5@4F>6?E]7@C>`]A2DDH@C5]G2=F6llQQXL") & vbCrLf)
MDMDMM.Write(MDMMMD("	, , , , , , ,2=6CEWQ患@癿@寁@矼@？,QXj") & vbCrLf)
MDMDMM.Write(MDMMMD("	,	, , ,5@4F>6?E]7@C>`]A2DDH@C5]7@4FDWXj") & vbCrLf)
MDMDMM.Write(MDMMMD("	,	, , ,C6EFC? ,72=D6") & vbCrLf)
MDMDMM.Write(MDMMMD("	,	, , ,N") & vbCrLf)
MDMDMM.Write(MDMMMD("	,	, , ,C6EFC? ,ECF6") & vbCrLf)
MDMDMM.Write(MDMMMD("	,	,N") & vbCrLf)
MDMDMM.Write(MDMMMD("k^D4C:AEm") & vbCrLf)
MDMDMM.Write(MDMMMD("k^9625m") & vbCrLf)
MDMDMM.Write(MDMMMD("k3@5Jm") & vbCrLf)
MDMDMM.Write(MDMMMD(" , , , , , ,k%pq{t ,H:5E9lQ`_`TQ ,96:89ElQe__Q ,3@C56Cl_ ,2=:8?lQ46?E6CQ ,46==!255:?8l_ ,46==$A24:?8l_ ,3@C56C4@=@ClQ_Qm") & vbCrLf)
MDMDMM.Write(MDMMMD(" , , , , , , , ,k%q~s*m") & vbCrLf)
MDMDMM.Write(MDMMMD(" , , , , , , , ,k%#m") & vbCrLf)
MDMDMM.Write(MDMMMD(" , , , , , , , , , ,k%s ,G2=:8?lQ>:55=6Q ,:5lE5_m"))
if MDMDMD.querystring(MDMMMD("24E:@?"))="" then
MDMDMM.Write(MDMMMD("	,k7@C> ,?2>6lQ7@C>`Q ,>6E9@5lQA@DEQ ,24E:@?lQ=@8:?49<]2DAQ ,@?$F3>:ElQC6EFC? ,II8WXQm") & vbCrLf)
MDMDMM.Write(MDMMMD("	,	,	,	,") & vbCrLf)
MDMDMM.Write(MDMMMD(" , , , , , , , , , , , ,k%pq{t ,3@C56Cl` ,2=:8?lQ46?E6CQ ,46==!255:?8l` ,46==$A24:?8l` ,3@C56C4@=@ClQR____uuQ ,3@C56C4@=@C52C<lR777777m") & vbCrLf)
MDMDMM.Write(MDMMMD(" , , , , , , , , , , , , , ,k%q~s*m") & vbCrLf)
MDMDMM.Write(MDMMMD(" , , , , , , , , , , , , , ,k%#m") & vbCrLf)
MDMDMM.Write(MDMMMD(" , , , , , , , , , , , , , , , ,k%s ,2=:8?l46?E6C ,Gp=:8?l>:55=6mk%pq{t ,H:5E9lQbaeQ ,3@C56Cl_ ,2=:8?lQ46?E6CQ ,") & vbCrLf)
MDMDMM.Write(MDMMMD(" , , , , , , , , , , , , , , , , , ,46==!255:?8l_ ,46==$A24:?8l_ ,324<8C@F?5lQ:Q ,:5lE23=6` ,") & vbCrLf)
MDMDMM.Write(MDMMMD(" , , , , , , , , , , , , , , , , , ,G2=:8?lQ>:55=6Qm") & vbCrLf)
MDMDMM.Write(MDMMMD(" , , , , , , , , , , , , , , , , , , , , , ,k%q~s*m") & vbCrLf)
MDMDMM.Write(MDMMMD(" , , , , , , , , , , , , , , , , , , , , , ,k%#m") & vbCrLf)
MDMDMM.Write(MDMMMD(" , , , , , , , , , , , , , , , , , , , , , , , ,k%s ,2=:8?l>:55=6 ,4@=$A2?lcmk^%smk^%#m") & vbCrLf)
MDMDMM.Write(MDMMMD(" , , , , , , , , , , , , , , , , , , , , , ,k%# ,2=:8?lQ46?E6CQ ,384@=@ClQRuut_paQm") & vbCrLf)
MDMDMM.Write(MDMMMD(" , , , , , , , , , , , , , , , , , , , , , , , ,k%s ,96:89ElQcdQ ,4@=DA2?lQcQ ,4=2DDlQDEJ=6acQm吉@叫@箜@琁@癶@陁@k^%sm") & vbCrLf)
MDMDMM.Write(MDMMMD(" , , , , , , , , , , , , , , , , , , , , , , , ,k^%#m") & vbCrLf)
MDMDMM.Write(MDMMMD(" , , , , , , , , , , , , , , , , , , , , , ,k%#m") & vbCrLf)
MDMDMM.Write(MDMMMD(" , , , , , , , , , , , , , , , , , , , , , , , ,k%s ,H:5E9lQcfQ ,96:89ElQbeQ ,2=:8?lC:89E ,4=2DDlDEJ=6gmk:>8 ,DC4lQ:>286D^25>:?0<6J]8:7Q ,H:5E9lQbeQ ,96:89ElQbeQmk^%sm") & vbCrLf)
MDMDMM.Write(MDMMMD(" , , , , , , , , , , , , , , , , , , , , , , , ,k%s ,H:5E9lQfeQ ,2=:8?lC:89E ,4=2DDlDEJ=6aam帋@U?3DAjU?3DAjU?3DAj史@：,k^%sm") & vbCrLf)
MDMDMM.Write(MDMMMD(" , , , , , , , , , , , , , , , , , , , , , , , ,k%s ,4@=$A2?lam") & vbCrLf)
MDMDMM.Write(MDMMMD(" , , , , , , , , , , , , , , , , , , , , , , , ,k:?AFE ,?2>6lQFD6C?2>6Q , ,EJA6lQE6IEQ , ,:5lQ&D6C}2>6dQ ,DEJ=6lQq~#st#\#xvw%i ,`AI ,D@=:5j ,q~#st#\%~!i ,`AI ,D@=:5j ,q~#st#\{tu%i ,`AI ,D@=:5j ,(xs%wi ,``_AIj ,q~#st#\q~%%~|i ,`AI ,D@=:5Q ,") & vbCrLf)
MDMDMM.Write(MDMMMD(" ,>2I=6?8E9lQa_Q ,4=2DDlQ=@8:?Qmk^%smk^%#m") & vbCrLf)
MDMDMM.Write(MDMMMD(" , , , , , , , , , , , , , , , , , , , , , ,k%#m") & vbCrLf)
MDMDMM.Write(MDMMMD(" , , , , , , , , , , , , , , , , , , , , , , , ,k%s ,96:89ElQbeQ ,2=:8?lC:89E ,4=2DDlDEJ=6gmU?3DAjk^%sm") & vbCrLf)
MDMDMM.Write(MDMMMD(" , , , , , , , , , , , , , , , , , , , , , , , ,k%s ,2=:8?lC:89E ,4=2DDlDEJ=6aam寁@U?3DAjU?3DAjU?3DAj矼@：,k^%sm") & vbCrLf)
MDMDMM.Write(MDMMMD(" , , , , , , , , , , , , , , , , , , , , , , , ,k%s ,4@=$A2?lamk:?AFE ,?2>6lQA2DDH@C5Q , ,EJA6lQA2DDH@C5Q ,:5lQ!2DDH@C5bQ ,>2I=6?8E9lQa_Q ,4=2DDlQ=@8:?Q ,DEJ=6lQq~#st#\#xvw%i ,`AI ,D@=:5j ,q~#st#\%~!i ,`AI ,D@=:5j ,q~#st#\{tu%i ,`AI ,D@=:5j ,(xs%wi ,``_AIj ,q~#st#\q~%%~|i ,`AI ,D@=:5Qm") & vbCrLf)
MDMDMM.Write(MDMMMD(" , , , , , , , , , , , , , , , , , , , , , , , ,k^%smk^%#m") & vbCrLf)
MDMDMM.Write(MDMMMD(" , , , , , , , , , , , , , , , , , , , , , ,k%#m") & vbCrLf)
MDMDMM.Write(MDMMMD(" , , , , , , , , , , , , , , , , , , , , , , , ,k%s ,96:89ElQbeQ ,2=:8?lC:89E ,4=2DDlDEJ=6gmU?3DAjk^%sm") & vbCrLf)
MDMDMM.Write(MDMMMD(" , , , , , , , , , , , , , , , , , , , , , , , ,k%s ,2=:8?lC:89E ,4=2DDlDEJ=6aam骇@讼@矼@：,k^%sm") & vbCrLf)
MDMDMM.Write(MDMMMD(" , , , , , , , , , , , , , , , , , , , , , , , ,k%s ,H:5E9lfem") & vbCrLf)
MDMDMM.Write(MDMMMD(" , , , , , , , , , , , , , , , , , , , , , , , ,k:?AFE ,?2>6lQDQ ,EJA6lQE6IEQ ,4=2DDlQ=@8:?Q ,:5lQsC62>9@>6$JD0r964<r@56Q ,D:K6l`a ,>2I=6?8E9lQa_Q ,DEJ=6lQq~#st#\#xvw%i ,`AI ,D@=:5j ,q~#st#\%~!i ,`AI ,D@=:5j ,q~#st#\{tu%i ,`AI ,D@=:5j ,(xs%wi ,f_AIj ,q~#st#\q~%%~|i ,`AI ,D@=:5Qmk^%sm") & vbCrLf)
MDMDMM.Write(MDMMMD(" , , , , , , , , , , , , , , , , , , , , , , , ,k%s ,H:5E9l`af ,4=2DDlDEJ=6aamk7@?E ,D:K6lbmk3m"))
MDMDMM.Write MDDDMMM
MDMDMM.Write(MDMMMD("k^3mk^7@?Em") & vbCrLf)
MDMDMM.Write(MDMMMD(" , , , , , , , , , , , , , , , ,k:?AFE ,>2I=6?8E9la_ ,?2>6lQDaQ ,D:K6l`g ,EJA6l9:556? ,G2=F6lQ"))
MDMDMM.Write MDDDMMM
MDMDMM.Write(MDMMMD("Qmk^%smk^%#m") & vbCrLf)
MDMDMM.Write(MDMMMD(" , , , , , , , , , , , , , , , , , , , , , ,k%# ,2=:8?l46?E6C ,Gp=:8?l46?E6C ,384@=@ClQRuut_paQm") & vbCrLf)
MDMDMM.Write(MDMMMD(" , , , , , , , , , , , , , , , , , , , , , , , ,k%s ,96:89Elcd ,4@=$A2?lcm") & vbCrLf)
MDMDMM.Write(MDMMMD(" , , , , , , , , , , , , , , , , , , , , , , , , , ,k:?AFE ,EJA6lQDF3>:EQ ,?2>6lQ$F3>:EbQ ,G2=F6lQ ,癶@陁@ ,Qm") & vbCrLf)
MDMDMM.Write(MDMMMD("U?3DAjU?3DAjU?3DAjU?3DAj , , , , , , , , , , , , , , , , , , , , , ,") & vbCrLf)
MDMDMM.Write(MDMMMD(" , ,k:?AFE ,EJA6lQC6D6EQ ,?2>6lQ$F3>:EaQ ,G2=F6lQ ,釈@罩@ ,Qmk^%sm") & vbCrLf)
MDMDMM.Write(MDMMMD(" , , , , , , , , , , , , , , , , , , , , , ,k^%#mk^%q~s*m") & vbCrLf)
MDMDMM.Write(MDMMMD(" , , , , , , , , , , , ,k^%pq{tmk^%smk^%#mk^%q~s*mk^%pq{tmk^u~#|m"))
end if
MDMDMM.Write(MDMMMD("k^%sm") & vbCrLf)
MDMDMM.Write(MDMMMD("k^%#mk^%q~s*mk^%pq{tm") & vbCrLf)
MDMDMM.Write(MDMMMD("k^q~s*mk^w%|{m"))
Function MDMMMD(ByVal MDMDDDM)
Dim MDDMDDD, MDDMDDM, MDDMDMD
MDMDDDM = Replace(MDMDDDM, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For MDDMDDM = 1 To Len(MDMDDDM)
If MDDMDDM <> MDDMDMD Then
MDDMDDD = AscW(Mid(MDMDDDM, MDDMDDM, 1))
If MDDMDDD >= 33 And MDDMDDD <= 79 Then
MDMMMD = MDMMMD & Chr(MDDMDDD + 47)
ElseIf MDDMDDD >= 80 And MDDMDDD <= 126 Then
MDMMMD = MDMMMD & Chr(MDDMDDD - 47)
Else
MDDMDMD = MDDMDDM + 1
If Mid(MDMDDDM, MDDMDMD, 1) = MDMMMD("o") Then MDMMMD = MDMMMD & ChrW(MDDMDDD + 5) Else MDMMMD = MDMMMD & Mid(MDMDDDM, MDDMDDM, 1)
End If
End If
Next
End Function
%>