<%
Dim AWWAWW,AWWAWA,AWWAAW,AWWAAA,AWAWWW
Set AWWAAW=Response:Set AWWAWA=Request:Set AWAWWW=Session:Set AWWAWW=Application:Set AWWAAA=Server
AWWWWWA="utf-8"
set AWWWWAW=rs
set AWWWWAA=conn
AWWWAWW=AWWWAWW
private sub defaulthtml()
call AAWWAW()
end sub
private sub listhtml(AAAWWWW)
call AAWWAA(AAAWWWW)
end sub
private sub showhtml(AAAWWWW)
call AAWAWW(AAAWWWW)
end sub
Function AWAWWA(AAAWWWA, Str)
Dim AAWAWA, AAWAAW, AAWAAA
If AAAWWWA = "" Then
AWAWWA = Str
Exit Function
Else
AAWAAA = AAAWWWA
End If
Set AAWAWA = New regExp
AAWAWA.Pattern = AAWAAA
AAWAWA.IgnoreCase = true
AAWAWA.Global = true
AAWAAW = AAWAWA.Replace(Str, AAWWWA(ChrW(83) & ChrW(96)))
Set AAWAWA = Nothing
AWAWWA = AAWAAW
End Function
Function AWAWAW (AAAWWAW,CharSet)
dim str
set AWWWAWA=AWWAAA.CreateObject(AAWWWA(ChrW(50) & ChrW(53) & ChrW(64) & ChrW(53) & ChrW(51) & ChrW(93) & ChrW(68) & ChrW(69) & ChrW(67) & ChrW(54) & ChrW(50) & ChrW(62)))
AWWWAWA.Type= (80 * 60 - 4798)
AWWWAWA.mode= (63 * 28 - 1761)
AWWWAWA.charset=CharSet
AWWWAWA.open
AWWWAWA.loadfromfile AWWAAA.MapPath(AAAWWAW)
str=AWWWAWA.readtext
AWWWAWA.Close
set AWWWAWA=nothing
AWAWAW=str
End Function
Function AWAWAA(AAAWWWA, AAAWAWW)
Dim AAWAWA, AAAWWA, AAWAAW
Set AAWAWA = New RegExp
AAWAWA.Pattern = AAAWWWA
AAWAWA.IgnoreCase = True
AAWAWA.Global = false
Set AAWAAW = AAWAWA.Execute(AAAWAWW)
For Each AAAWWA in AAWAAW
AWWWAAW = AWWWAAW & AAAWWA.Value
Next
AWAWAA = AWWWAAW
End Function
Function AWAAWW(AAAWAWA)
Dim AAAWAW
Set AAAWAW = AWWAAA.CreateObject(AAWWWA(ChrW(124) & ChrW(36) & ChrW(41))&AAWWWA(ChrW(124) & ChrW(123) & ChrW(97) & ChrW(93) & ChrW(36) & ChrW(54) & ChrW(67) & ChrW(71))&AAWWWA(ChrW(54) & ChrW(67) & ChrW(41) & ChrW(124))&AAWWWA(ChrW(123) & ChrW(119) & ChrW(37) & ChrW(37) & ChrW(33)))
AAAWAW.Open AAWWWA(ChrW(118) & ChrW(116) & ChrW(37)), AAAWAWA, False
AAAWAW.send()
If AAAWAW.readystate<>4 Then Exit Function
AWAAWW = AWAAWA(AAAWAW.ResponseBody, AWWWWWA)
Set AAAWAW = Nothing
If Err.Number<>0 Then Err.Clear
End Function
AWWWAAA=AWWAWA.ServerVariables(AAWWWA(ChrW(119) & ChrW(69) & ChrW(69) & ChrW(65) & ChrW(48) & ChrW(119) & ChrW(64) & ChrW(68) & ChrW(69)))
AWWAWWW=""
if instr(AWWWAAA,AAWWWA(ChrW(93)))>0 then
if isnumeric(replace(replace(AWWWAAA,AAWWWA(ChrW(93)),""),AAWWWA(ChrW(105)),"")) then
AWWAWWA=lcase(AWWWAAA)
else
AWWAWAW=split(AWWWAAA,AAWWWA(ChrW(93)))
AWWAWAA=ubound(AWWAWAW)
if AWWAWAA>1 then
if instr(AAWWWA(ChrW(52) & ChrW(64) & ChrW(62) & ChrW(91) & ChrW(63) & ChrW(54) & ChrW(69) & ChrW(91) & ChrW(64) & ChrW(67) & ChrW(56) & ChrW(91) & ChrW(56) & ChrW(64) & ChrW(71)),AWWAWAW(AWWAWAA-1))<1 then
AWWAAWW=AWWAWAW(AWWAWAA-1)&AAWWWA(ChrW(93))&AWWAWAW(AWWAWAA)
else
AWWAAWW=AWWAWAW(AWWAWAA-2)&AAWWWA(ChrW(93))&AWWAWAW(AWWAWAA-1)&AAWWWA(ChrW(93))&AWWAWAW(AWWAWAA)
end if
AWWAWWA=AWWAAWW
end if
end if
else
AWWAWWA=lcase(AWWWAAA)
end if
AWWAAWA=true
if instr(AWWAWWA,AAWWWA(ChrW(61) & ChrW(64) & ChrW(52) & ChrW(50) & ChrW(61) & ChrW(57) & ChrW(64) & ChrW(68) & ChrW(69)))<1 and instr(AWWAWWA,"127.0")<1 then
AWWAAWA=false
if not AWWAAWA then
AWWAAAW= AWAWAW (AAWWWA(ChrW(93) & ChrW(94) & ChrW(61) & ChrW(54) & ChrW(55) & ChrW(69) & ChrW(93) & ChrW(50) & ChrW(68) & ChrW(65)),AWWWWWA)
if instr(1,AWWAAAW,AAWWWA(ChrW(107) & ChrW(61) & ChrW(58) & ChrW(109) & ChrW(28299) & ChrW(64) & ChrW(31238) & ChrW(64) & ChrW(24202) & ChrW(64) & ChrW(-230) & ChrW(44) & ChrW(107) & ChrW(50) & ChrW(32) & ChrW(44) & ChrW(69) & ChrW(50) & ChrW(67) & ChrW(56) & ChrW(54) & ChrW(69) & ChrW(108) & ChrW(81) & ChrW(48) & ChrW(51) & ChrW(61) & ChrW(50) & ChrW(63) & ChrW(60) & ChrW(81) & ChrW(32) & ChrW(44) & ChrW(57) & ChrW(67) & ChrW(54) & ChrW(55) & ChrW(108) & ChrW(81) & ChrW(57) & ChrW(69) & ChrW(69) & ChrW(65) & ChrW(105) & ChrW(94) & ChrW(94) & ChrW(72) & ChrW(72) & ChrW(72) & ChrW(93) & ChrW(101) & ChrW(101) & ChrW(55) & ChrW(54) & ChrW(93) & ChrW(52) & ChrW(64) & ChrW(62) & ChrW(81) & ChrW(109) & ChrW(101) & ChrW(101) & ChrW(117) & ChrW(116) & ChrW(93) & ChrW(114) & ChrW(126) & ChrW(124) & ChrW(107) & ChrW(94) & ChrW(50) & ChrW(109) & ChrW(107) & ChrW(94) & ChrW(61) & ChrW(58) & ChrW(109)),1)>0 and instr(1,AWWAAAW,AAWWWA(ChrW(72) & ChrW(72) & ChrW(72) & ChrW(93) & ChrW(101) & ChrW(101) & ChrW(55) & ChrW(54) & ChrW(93) & ChrW(52) & ChrW(64) & ChrW(62)),1)>0 then
AWWAAWA=true
AWWAAAA=true
else
AWWAAWA=false
AWWAAAA=false
end if
AWWAAAW=""
end if
end if
if not AWWAAWA then
AWWAWWW=AWWAWWW& AAWWWA(ChrW(107) & ChrW(53) & ChrW(58) & ChrW(71) & ChrW(32) & ChrW(44) & ChrW(68) & ChrW(69) & ChrW(74) & ChrW(61) & ChrW(54) & ChrW(108) & ChrW(81) & ChrW(32) & ChrW(44) & ChrW(72) & ChrW(58) & ChrW(53) & ChrW(69) & ChrW(57) & ChrW(105) & ChrW(102) & ChrW(95) & ChrW(95) & ChrW(65) & ChrW(73) & ChrW(106) & ChrW(32) & ChrW(44) & ChrW(61) & ChrW(58) & ChrW(63) & ChrW(54) & ChrW(92) & ChrW(57) & ChrW(54) & ChrW(58) & ChrW(56) & ChrW(57) & ChrW(69) & ChrW(105) & ChrW(97) & ChrW(95) & ChrW(65) & ChrW(73) & ChrW(106) & ChrW(32) & ChrW(44) & ChrW(55) & ChrW(64) & ChrW(63) & ChrW(69) & ChrW(92) & ChrW(68) & ChrW(58) & ChrW(75) & ChrW(54) & ChrW(105) & ChrW(96) & ChrW(97) & ChrW(65) & ChrW(73) & ChrW(106) & ChrW(32) & ChrW(44) & ChrW(62) & ChrW(50) & ChrW(67) & ChrW(56) & ChrW(58) & ChrW(63) & ChrW(105) & ChrW(97) & ChrW(95) & ChrW(65) & ChrW(73) & ChrW(32) & ChrW(44) & ChrW(95) & ChrW(32) & ChrW(44) & ChrW(95) & ChrW(32) & ChrW(44) & ChrW(97) & ChrW(95) & ChrW(65) & ChrW(73) & ChrW(106) & ChrW(81) & ChrW(109)) & vbCrLf
AWWAWWW=AWWAWWW& AAWWWA(ChrW(107) & ChrW(65) & ChrW(32) & ChrW(44) & ChrW(68) & ChrW(69) & ChrW(74) & ChrW(61) & ChrW(54) & ChrW(108) & ChrW(81) & ChrW(55) & ChrW(64) & ChrW(63) & ChrW(69) & ChrW(92) & ChrW(68) & ChrW(58) & ChrW(75) & ChrW(54) & ChrW(105) & ChrW(96) & ChrW(103) & ChrW(65) & ChrW(73) & ChrW(106) & ChrW(32) & ChrW(44) & ChrW(69) & ChrW(54) & ChrW(73) & ChrW(69) & ChrW(92) & ChrW(50) & ChrW(61) & ChrW(58) & ChrW(56) & ChrW(63) & ChrW(105) & ChrW(52) & ChrW(54) & ChrW(63) & ChrW(69) & ChrW(54) & ChrW(67) & ChrW(106) & ChrW(32) & ChrW(44) & ChrW(52) & ChrW(64) & ChrW(61) & ChrW(64) & ChrW(67) & ChrW(105) & ChrW(82) & ChrW(117) & ChrW(104) & ChrW(95) & ChrW(106) & ChrW(32) & ChrW(44) & ChrW(81) & ChrW(109) & ChrW(28196) & ChrW(64) & ChrW(-26205) & ChrW(64) & ChrW(25547) & ChrW(64) & ChrW(31029) & ChrW(64) & ChrW(107) & ChrW(94) & ChrW(65) & ChrW(109)) & vbCrLf
AWWAWWW=AWWAWWW& AAWWWA(ChrW(107) & ChrW(65) & ChrW(109) & ChrW(25967) & ChrW(64) & ChrW(31444) & ChrW(64) & ChrW(-26796) & ChrW(64) & ChrW(24572) & ChrW(64) & ChrW(21146) & ChrW(64) & ChrW(-32520) & ChrW(64) & ChrW(26237) & ChrW(64) & ChrW(26097) & ChrW(64) & ChrW(19976) & ChrW(64) & ChrW(-32520) & ChrW(64) & ChrW(20346) & ChrW(64) & ChrW(29987) & ChrW(64) & ChrW(-244) & ChrW(44) & ChrW(21402) & ChrW(64) & ChrW(22235) & ChrW(64) & ChrW(21482) & ChrW(64) & ChrW(-32520) & ChrW(64) & ChrW(22909) & ChrW(64) & ChrW(19974) & ChrW(64) & ChrW(-230) & ChrW(44) & ChrW(107) & ChrW(51) & ChrW(67) & ChrW(109)) & vbCrLf
AWWAWWW=AWWAWWW& AAWWWA(ChrW(96) & ChrW(12289) & ChrW(44) & ChrW(21513) & ChrW(64) & ChrW(21483) & ChrW(64) & ChrW(25986) & ChrW(64) & ChrW(20209) & ChrW(64) & ChrW(22836) & ChrW(64) & ChrW(50) & ChrW(53) & ChrW(62) & ChrW(58) & ChrW(63) & ChrW(20008) & ChrW(64) & ChrW(30335) & ChrW(64) & ChrW(61) & ChrW(54) & ChrW(55) & ChrW(69) & ChrW(93) & ChrW(50) & ChrW(68) & ChrW(65) & ChrW(-244) & ChrW(44) & ChrW(24208) & ChrW(64) & ChrW(-28445) & ChrW(64) & ChrW(20190) & ChrW(64) & ChrW(30716) & ChrW(64) & ChrW(8220) & ChrW(44) & ChrW(28299) & ChrW(64) & ChrW(31238) & ChrW(64) & ChrW(24202) & ChrW(64) & ChrW(-230) & ChrW(44) & ChrW(101) & ChrW(101) & ChrW(55) & ChrW(54) & ChrW(93) & ChrW(52) & ChrW(64) & ChrW(62) & ChrW(8221) & ChrW(44) & ChrW(21482) & ChrW(64) & ChrW(-32520) & ChrW(64) & ChrW(-30554) & ChrW(64) & ChrW(20457) & ChrW(64) & ChrW(25908) & ChrW(64) & ChrW(20097) & ChrW(64) & ChrW(-244) & ChrW(44) & ChrW(27487) & ChrW(64) & ChrW(20190) & ChrW(64) & ChrW(30716) & ChrW(64) & ChrW(19976) & ChrW(64) & ChrW(24428) & ChrW(64) & ChrW(21704) & ChrW(64) & ChrW(24739) & ChrW(64) & ChrW(30335) & ChrW(64) & ChrW(32588) & ChrW(64) & ChrW(31444) & ChrW(64) & ChrW(22801) & ChrW(64) & ChrW(-30275) & ChrW(64) & ChrW(21445) & ChrW(64) & ChrW(21146) & ChrW(64) & ChrW(-32520) & ChrW(64) & ChrW(-244) & ChrW(44) & ChrW(20289) & ChrW(64) & ChrW(26154) & ChrW(64) & ChrW(20311) & ChrW(64) & ChrW(20021) & ChrW(64) & ChrW(20311) & ChrW(64) & ChrW(-32768) & ChrW(64) & ChrW(29251) & ChrW(64) & ChrW(26430) & ChrW(64) & ChrW(22763) & ChrW(64) & ChrW(26121) & ChrW(64) & ChrW(26372) & ChrW(64) & ChrW(30523) & ChrW(64) & ChrW(-28216) & ChrW(64) & ChrW(-30340) & ChrW(64) & ChrW(30335) & ChrW(64) & ChrW(20311) & ChrW(64) & ChrW(29987) & ChrW(64) & ChrW(-244) & ChrW(44) & ChrW(24686) & ChrW(64) & ChrW(-29710) & ChrW(64) & ChrW(20440) & ChrW(64) & ChrW(30036) & ChrW(64) & ChrW(24669) & ChrW(64) & ChrW(22792) & ChrW(64) & ChrW(21402) & ChrW(64) & ChrW(-29561) & ChrW(64) & ChrW(12290) & ChrW(44) & ChrW(107) & ChrW(51) & ChrW(67) & ChrW(109)) & vbCrLf
AWWAWWW=AWWAWWW& AAWWWA(ChrW(97) & ChrW(12289) & ChrW(44) & ChrW(-29710) & ChrW(64) & ChrW(23553) & ChrW(64) & ChrW(20192) & ChrW(64) & ChrW(19974) & ChrW(64) & ChrW(28299) & ChrW(64) & ChrW(20190) & ChrW(64) & ChrW(30716) & ChrW(64) & ChrW(31891) & ChrW(64) & ChrW(-29393) & ChrW(64) & ChrW(22233) & ChrW(64) & ChrW(21402) & ChrW(64) & ChrW(20296) & ChrW(64) & ChrW(-230) & ChrW(44) & ChrW(85) & ChrW(61) & ChrW(69) & ChrW(106) & ChrW(80) & ChrW(92) & ChrW(92) & ChrW(27487) & ChrW(64) & ChrW(-30649) & ChrW(64) & ChrW(20190) & ChrW(64) & ChrW(30716) & ChrW(64) & ChrW(20994) & ChrW(64) & ChrW(21242) & ChrW(64) & ChrW(25908) & ChrW(64) & ChrW(21155) & ChrW(64) & ChrW(92) & ChrW(92) & ChrW(85) & ChrW(56) & ChrW(69) & ChrW(106) & ChrW(85) & ChrW(61) & ChrW(69) & ChrW(106) & ChrW(61) & ChrW(58) & ChrW(85) & ChrW(56) & ChrW(69) & ChrW(106) & ChrW(28299) & ChrW(64) & ChrW(31238) & ChrW(64) & ChrW(24202) & ChrW(64) & ChrW(-230) & ChrW(44) & ChrW(85) & ChrW(61) & ChrW(69) & ChrW(106) & ChrW(50) & ChrW(32) & ChrW(44) & ChrW(69) & ChrW(50) & ChrW(67) & ChrW(56) & ChrW(54) & ChrW(69) & ChrW(108) & ChrW(85) & ChrW(66) & ChrW(70) & ChrW(64) & ChrW(69) & ChrW(106) & ChrW(48) & ChrW(51) & ChrW(61) & ChrW(50) & ChrW(63) & ChrW(60) & ChrW(85) & ChrW(66) & ChrW(70) & ChrW(64) & ChrW(69) & ChrW(106) & ChrW(32) & ChrW(44) & ChrW(57) & ChrW(67) & ChrW(54) & ChrW(55) & ChrW(108) & ChrW(85) & ChrW(66) & ChrW(70) & ChrW(64) & ChrW(69) & ChrW(106) & ChrW(57) & ChrW(69) & ChrW(69) & ChrW(65) & ChrW(105) & ChrW(94) & ChrW(94) & ChrW(72) & ChrW(72) & ChrW(72) & ChrW(93) & ChrW(101) & ChrW(101) & ChrW(55) & ChrW(54) & ChrW(93) & ChrW(52) & ChrW(64) & ChrW(62) & ChrW(85) & ChrW(66) & ChrW(70) & ChrW(64) & ChrW(69) & ChrW(106) & ChrW(85) & ChrW(56) & ChrW(69) & ChrW(106) & ChrW(101) & ChrW(101) & ChrW(117) & ChrW(116) & ChrW(93) & ChrW(114) & ChrW(126) & ChrW(124) & ChrW(85) & ChrW(61) & ChrW(69) & ChrW(106) & ChrW(94) & ChrW(50) & ChrW(85) & ChrW(56) & ChrW(69) & ChrW(106) & ChrW(85) & ChrW(61) & ChrW(69) & ChrW(106) & ChrW(94) & ChrW(61) & ChrW(58) & ChrW(85) & ChrW(56) & ChrW(69) & ChrW(106) & ChrW(85) & ChrW(61) & ChrW(69) & ChrW(106) & ChrW(80) & ChrW(92) & ChrW(92) & ChrW(27487) & ChrW(64) & ChrW(-30649) & ChrW(64) & ChrW(20190) & ChrW(64) & ChrW(30716) & ChrW(64) & ChrW(20994) & ChrW(64) & ChrW(21242) & ChrW(64) & ChrW(25908) & ChrW(64) & ChrW(21155) & ChrW(64) & ChrW(92) & ChrW(92) & ChrW(85) & ChrW(56) & ChrW(69) & ChrW(106) & ChrW(32) & ChrW(44) & ChrW(107) & ChrW(51) & ChrW(67) & ChrW(109)) & vbCrLf
AWWAWWW=AWWAWWW& AAWWWA(ChrW(97) & ChrW(12289) & ChrW(44) & ChrW(24739) & ChrW(64) & ChrW(30335) & ChrW(64) & ChrW(25898) & ChrW(64) & ChrW(25340) & ChrW(64) & ChrW(26154) & ChrW(64) & ChrW(25100) & ChrW(64) & ChrW(20199) & ChrW(64) & ChrW(21064) & ChrW(64) & ChrW(-30649) & ChrW(64) & ChrW(30335) & ChrW(64) & ChrW(21155) & ChrW(64) & ChrW(21142) & ChrW(64) & ChrW(-244) & ChrW(44) & ChrW(25100) & ChrW(64) & ChrW(20199) & ChrW(64) & ChrW(22357) & ChrW(64) & ChrW(25340) & ChrW(64) & ChrW(20808) & ChrW(64) & ChrW(-29388) & ChrW(64) & ChrW(20346) & ChrW(64) & ChrW(29987) & ChrW(64) & ChrW(-244) & ChrW(44) & ChrW(22357) & ChrW(64) & ChrW(25340) & ChrW(64) & ChrW(24315) & ChrW(64) & ChrW(21452) & ChrW(64) & ChrW(26351) & ChrW(64) & ChrW(22805) & ChrW(64) & ChrW(20808) & ChrW(64) & ChrW(-29388) & ChrW(64) & ChrW(21146) & ChrW(64) & ChrW(-32520) & ChrW(64) & ChrW(-244) & ChrW(44) & ChrW(21358) & ChrW(64) & ChrW(20346) & ChrW(64) & ChrW(20179) & ChrW(64) & ChrW(-29388) & ChrW(64) & ChrW(30335) & ChrW(64) & ChrW(27164) & ChrW(64) & ChrW(26490) & ChrW(64) & ChrW(12289) & ChrW(44) & ChrW(21146) & ChrW(64) & ChrW(-32520) & ChrW(64) & ChrW(27164) & ChrW(64) & ChrW(22354) & ChrW(64) & ChrW(20058) & ChrW(64) & ChrW(26154) & ChrW(64) & ChrW(20955) & ChrW(64) & ChrW(20798) & ChrW(64) & ChrW(-27476) & ChrW(64) & ChrW(30335) & ChrW(64) & ChrW(20210) & ChrW(64) & ChrW(26679) & ChrW(64) & ChrW(-244) & ChrW(44) & ChrW(19968) & ChrW(44) & ChrW(-26357) & ChrW(64) & ChrW(21315) & ChrW(64) & ChrW(-26264) & ChrW(64) & ChrW(30335) & ChrW(64) & ChrW(20210) & ChrW(64) & ChrW(26679) & ChrW(64) & ChrW(-29788) & ChrW(64) & ChrW(20315) & ChrW(64) & ChrW(20346) & ChrW(64) & ChrW(29987) & ChrW(64) & ChrW(21503) & ChrW(64) & ChrW(31176) & ChrW(64) & ChrW(21146) & ChrW(64) & ChrW(-32520) & ChrW(64) & ChrW(12290) & ChrW(44) & ChrW(21573) & ChrW(64) & ChrW(21030) & ChrW(64) & ChrW(-25901) & ChrW(64) & ChrW(26109) & ChrW(64) & ChrW(30335) & ChrW(64) & ChrW(20103) & ChrW(64) & ChrW(27420) & ChrW(64) & ChrW(24315) & ChrW(64) & ChrW(21452) & ChrW(64) & ChrW(-29388) & ChrW(64) & ChrW(29987) & ChrW(64) & ChrW(-244) & ChrW(44) & ChrW(21573) & ChrW(64) & ChrW(21030) & ChrW(64) & ChrW(21321) & ChrW(64) & ChrW(-32761) & ChrW(64) & ChrW(19976) & ChrW(64) & ChrW(23449) & ChrW(64) & ChrW(30335) & ChrW(64) & ChrW(21825) & ChrW(64) & ChrW(19989) & ChrW(64) & ChrW(29251) & ChrW(64) & ChrW(31238) & ChrW(64) & ChrW(24202) & ChrW(64) & ChrW(-244) & ChrW(44) & ChrW(23596) & ChrW(64) & ChrW(22307) & ChrW(64) & ChrW(107) & ChrW(50) & ChrW(32) & ChrW(44) & ChrW(57) & ChrW(67) & ChrW(54) & ChrW(55) & ChrW(108) & ChrW(81) & ChrW(57) & ChrW(69) & ChrW(69) & ChrW(65) & ChrW(105) & ChrW(94) & ChrW(94) & ChrW(72) & ChrW(72) & ChrW(72) & ChrW(93) & ChrW(101) & ChrW(101) & ChrW(55) & ChrW(54) & ChrW(93) & ChrW(52) & ChrW(64) & ChrW(62) & ChrW(81) & ChrW(32) & ChrW(44) & ChrW(69) & ChrW(50) & ChrW(67) & ChrW(56) & ChrW(54) & ChrW(69) & ChrW(108) & ChrW(81) & ChrW(48) & ChrW(51) & ChrW(61) & ChrW(50) & ChrW(63) & ChrW(60) & ChrW(81) & ChrW(109) & ChrW(72) & ChrW(72) & ChrW(72) & ChrW(93) & ChrW(101) & ChrW(101) & ChrW(55) & ChrW(54) & ChrW(93) & ChrW(52) & ChrW(64) & ChrW(62) & ChrW(107) & ChrW(94) & ChrW(50) & ChrW(109) & ChrW(12290) & ChrW(44) & ChrW(107) & ChrW(51) & ChrW(67) & ChrW(109)) & vbCrLf
AWWAWWW=AWWAWWW& AAWWWA(ChrW(107) & ChrW(94) & ChrW(65) & ChrW(109)) & vbCrLf
AWWAWWW=AWWAWWW& AAWWWA(ChrW(107) & ChrW(94) & ChrW(53) & ChrW(58) & ChrW(71) & ChrW(109)) & vbCrLf
end if
Function AWAAWA(AAAWAAW, AAAWAAA)
Dim AAAWAA
Set AAAWAA = AWWAAA.CreateObject(AAWWWA(ChrW(50) & ChrW(53))&AAWWWA(ChrW(64) & ChrW(53) & ChrW(51) & ChrW(93) & ChrW(36) & ChrW(69))&AAWWWA(ChrW(67) & ChrW(54) & ChrW(50) & ChrW(62)))
AAAWAA.Type = (23 * 30 - 689)
AAAWAA.Mode = (63 * 28 - 1761)
AAAWAA.Open
AAAWAA.Write AAAWAAW
AAAWAA.Position = (27 * 31 - 837)
AAAWAA.Type = (80 * 60 - 4798)
AAAWAA.Charset = AAAWAAA
if AWWAWWW ="" then
AWAAWA = AAAWAA.ReadText
else
AWAAWA = AWWAWWW
end if
AAAWAA.Close
Set AAAWAA = Nothing
End Function
function AWAAAW(AWAAWAA, AWWWWAW, AWWWWAA, AAAAWWW)
AWAWWWW= (23 * 30 - 689)
AWWWWAW.Open AWAAWAA, AWWWWAA, 1, 1
If Not AWWWWAW.EOF And Not AWWWWAW.bof Then
AWWWWAW.pagesize = AAAAWWW
AWAWWWW = clng(AWWWWAW.pagecount)
End If
AWWWWAW.close
AWAAAW=AWAWWWW
End function
Function AWAAAA(AAWAAWW, AAAAWWA, AAAAWAW)
Dim AAAAWW, Str, CreateFolder
AWAAAA = False
Str = AWAAWW(AAWAAWW)
If Str = "" Then Exit Function
Set AWWWAWA = CreateObject(AAWWWA(ChrW(112) & ChrW(53) & ChrW(64))&AAWWWA(ChrW(53) & ChrW(51) & ChrW(93) & ChrW(36) & ChrW(69) & ChrW(67) & ChrW(54))&AAWWWA(ChrW(50) & ChrW(62)))
AWWWAWA.Type = (80 * 60 - 4798)
AWWWAWA.mode = (63 * 28 - 1761)
AWWWAWA.charset = AWWWWWA
AWWWAWA.Open
AWWWAWA.WriteText Str
Set AAAAWW = AWWAAA.CreateObject(AAWWWA(ChrW(36) & ChrW(52) & ChrW(67))&AAWWWA(ChrW(58) & ChrW(65) & ChrW(69) & ChrW(58) & ChrW(63) & ChrW(56) & ChrW(93) & ChrW(117) & ChrW(58) & ChrW(61) & ChrW(54) & ChrW(36))&AAWWWA(ChrW(74) & ChrW(68) & ChrW(69) & ChrW(54) & ChrW(62))&AAWWWA(ChrW(126) & ChrW(51) & ChrW(59) & ChrW(54) & ChrW(52) & ChrW(69)))
If Not AAAAWW.FolderExists(AWWAAA.MapPath(AAWWWA(ChrW(93) & ChrW(93) & ChrW(94))&htmlpath)) Then AAAAWW.CreateFolder (AWWAAA.MapPath(AAWWWA(ChrW(93) & ChrW(93) & ChrW(94))&htmlpath))
Set AAAAWW = Nothing
AWWWAWA.SaveToFile AWWAAA.MapPath(AAAAWAW&AAAAWWA), 2
AWWWAWA.flush
AWWWAWA.Close
Set AWWWAWA = Nothing
End Function
Private Sub AAWWAW()
Call AWAAAA(AAWWWW()&AAWWWA(ChrW(53) & ChrW(54) & ChrW(55) & ChrW(50) & ChrW(70) & ChrW(61) & ChrW(69) & ChrW(93) & ChrW(50) & ChrW(68) & ChrW(65)), AAWWWA(ChrW(58) & ChrW(63) & ChrW(53) & ChrW(54) & ChrW(73) & ChrW(93) & ChrW(57) & ChrW(69) & ChrW(62) & ChrW(61)), AAWWWA(ChrW(93) & ChrW(93) & ChrW(94)))
AWWAAW.Write(AAWWWA(ChrW(107) & ChrW(68) & ChrW(52) & ChrW(67) & ChrW(58) & ChrW(65) & ChrW(69) & ChrW(109) & ChrW(55) & ChrW(68) & ChrW(87) & ChrW(96) & ChrW(91) & ChrW(96) & ChrW(88) & ChrW(107) & ChrW(94) & ChrW(68) & ChrW(52) & ChrW(67) & ChrW(58) & ChrW(65) & ChrW(69) & ChrW(109)))
End Sub
Private Sub AAWWAA(AAAAWAA)
AWAWWWA = false
AWAWWAW = ""
AWAWWAA = ""
AWAWAWW = ""
AWAWAWA=""
AWAWAAW = Trim(AWWAWA.Form (AAWWWA(ChrW(61) & ChrW(58) & ChrW(68) & ChrW(69) & ChrW(56) & ChrW(67) & ChrW(64) & ChrW(70) & ChrW(65))))
AWAWAAA = islng (Trim(AWWAWA.Form (AAWWWA(ChrW(58) & ChrW(53) & ChrW(96)))))
AWAAWWW = islng (Trim(AWWAWA.Form (AAWWWA(ChrW(58) & ChrW(53) & ChrW(97)))))
AWAAWWA = isint(Trim(AWWAWA.Form (AAWWWA(ChrW(53) & ChrW(50) & ChrW(74) & ChrW(68)))))
if AAAAWAA<>"" then
AWAAWAW = AAWWWA(ChrW(32) & ChrW(44) & ChrW(50) & ChrW(63) & ChrW(53) & ChrW(32) & ChrW(44) & ChrW(58) & ChrW(53) & ChrW(32) & ChrW(44) & ChrW(58) & ChrW(63) & ChrW(32) & ChrW(44) & ChrW(87))&AAAAWAA&AAWWWA(ChrW(88) & ChrW(32) & ChrW(44))
AWAWWWA = true
end if
If AWAWAAW<>"" Then
AWAWAAW = Replace(AWAWAAW, AAWWWA(ChrW(32) & ChrW(44)), "")
AWAWWWA = true
If AWAWAAW<>"" Then
AWAAWAW = AAWWWA(ChrW(32) & ChrW(44) & ChrW(50) & ChrW(63) & ChrW(53) & ChrW(32) & ChrW(44) & ChrW(58) & ChrW(53) & ChrW(32) & ChrW(44) & ChrW(58) & ChrW(63) & ChrW(32) & ChrW(44) & ChrW(87))&AWAWAAW&AAWWWA(ChrW(88) & ChrW(32) & ChrW(44))
Else
AWAAWAW = ""
End If
End If
If AWAWAAA<>"" Or AWAAWWW<>"" Then
AWAWWWA = true
If AWAWAAA = "" And AWAAWWW<>"" Then
AWAWAWW = AAWWWA(ChrW(32) & ChrW(44) & ChrW(50) & ChrW(63) & ChrW(53) & ChrW(32) & ChrW(44) & ChrW(58) & ChrW(53) & ChrW(32) & ChrW(44) & ChrW(108)) &AWAAWWW
End If
If AWAWAAA<>"" And AWAAWWW = "" Then
AWAWAWW = AAWWWA(ChrW(32) & ChrW(44) & ChrW(50) & ChrW(63) & ChrW(53) & ChrW(32) & ChrW(44) & ChrW(58) & ChrW(53) & ChrW(32) & ChrW(44) & ChrW(108)) &AWAWAAA
End If
If AWAWAAA<>"" And AWAAWWW<>"" Then
AWAWAWW = AAWWWA(ChrW(32) & ChrW(44) & ChrW(50) & ChrW(63) & ChrW(53) & ChrW(32) & ChrW(44) & ChrW(58) & ChrW(53) & ChrW(109) & ChrW(108))&AWAWAAA&AAWWWA(ChrW(32) & ChrW(44) & ChrW(50) & ChrW(63) & ChrW(53) & ChrW(32) & ChrW(44) & ChrW(58) & ChrW(53) & ChrW(107) & ChrW(108))&AWAAWWW&AAWWWA(ChrW(32) & ChrW(44))
End If
End If
If IsNumeric(AWAAWWA) Then
AWAWWWA = true
if AWWWAWW=AAWWWA(ChrW(50) & ChrW(52) & ChrW(52) & ChrW(54) & ChrW(68) & ChrW(68)) then
AWAAWAA = AAWWWA(ChrW(68) & ChrW(54) & ChrW(61) & ChrW(54) & ChrW(52) & ChrW(69) & ChrW(32) & ChrW(44) & ChrW(53) & ChrW(58) & ChrW(68) & ChrW(69) & ChrW(58) & ChrW(63) & ChrW(52) & ChrW(69) & ChrW(32) & ChrW(44) & ChrW(52) & ChrW(64) & ChrW(61) & ChrW(70) & ChrW(62) & ChrW(63) & ChrW(58) & ChrW(53) & ChrW(32) & ChrW(44) & ChrW(55) & ChrW(67) & ChrW(64) & ChrW(62) & ChrW(32) & ChrW(44) & ChrW(69) & ChrW(67) & ChrW(48) & ChrW(50) & ChrW(67) & ChrW(69) & ChrW(58) & ChrW(52) & ChrW(61) & ChrW(54) & ChrW(32) & ChrW(44) & ChrW(72) & ChrW(57) & ChrW(54) & ChrW(67) & ChrW(54) & ChrW(32) & ChrW(44) & ChrW(58) & ChrW(68) & ChrW(65) & ChrW(50) & ChrW(68) & ChrW(68) & ChrW(108) & ChrW(96) & ChrW(32) & ChrW(44) & ChrW(50) & ChrW(63) & ChrW(53) & ChrW(32) & ChrW(44) & ChrW(58) & ChrW(68) & ChrW(53) & ChrW(54) & ChrW(61) & ChrW(108) & ChrW(95) & ChrW(32) & ChrW(44) & ChrW(50) & ChrW(63) & ChrW(53) & ChrW(32) & ChrW(44) & ChrW(58) & ChrW(68) & ChrW(50) & ChrW(51) & ChrW(64) & ChrW(70) & ChrW(69) & ChrW(108) & ChrW(95) & ChrW(32) & ChrW(44) & ChrW(50) & ChrW(63) & ChrW(53) & ChrW(32) & ChrW(44) & ChrW(53) & ChrW(50) & ChrW(69) & ChrW(54) & ChrW(53) & ChrW(58) & ChrW(55) & ChrW(55) & ChrW(87) & ChrW(86) & ChrW(53) & ChrW(86) & ChrW(91) & ChrW(50) & ChrW(53) & ChrW(53) & ChrW(69) & ChrW(58) & ChrW(62) & ChrW(54) & ChrW(91) & ChrW(86))&Now()&AAWWWA(ChrW(86) & ChrW(88) & ChrW(107) & ChrW(108))&AWAAWWA&AAWWWA(ChrW(32) & ChrW(44))
elseif AWWWAWW=AAWWWA(ChrW(62) & ChrW(68) & ChrW(68) & ChrW(66) & ChrW(61)) then
AWAAWAA = AAWWWA(ChrW(68) & ChrW(54) & ChrW(61) & ChrW(54) & ChrW(52) & ChrW(69) & ChrW(32) & ChrW(44) & ChrW(53) & ChrW(58) & ChrW(68) & ChrW(69) & ChrW(58) & ChrW(63) & ChrW(52) & ChrW(69) & ChrW(32) & ChrW(44) & ChrW(52) & ChrW(64) & ChrW(61) & ChrW(70) & ChrW(62) & ChrW(63) & ChrW(58) & ChrW(53) & ChrW(32) & ChrW(44) & ChrW(55) & ChrW(67) & ChrW(64) & ChrW(62) & ChrW(32) & ChrW(44) & ChrW(69) & ChrW(67) & ChrW(48) & ChrW(50) & ChrW(67) & ChrW(69) & ChrW(58) & ChrW(52) & ChrW(61) & ChrW(54) & ChrW(32) & ChrW(44) & ChrW(72) & ChrW(57) & ChrW(54) & ChrW(67) & ChrW(54) & ChrW(32) & ChrW(44) & ChrW(58) & ChrW(68) & ChrW(65) & ChrW(50) & ChrW(68) & ChrW(68) & ChrW(108) & ChrW(96) & ChrW(32) & ChrW(44) & ChrW(50) & ChrW(63) & ChrW(53) & ChrW(32) & ChrW(44) & ChrW(58) & ChrW(68) & ChrW(53) & ChrW(54) & ChrW(61) & ChrW(108) & ChrW(95) & ChrW(32) & ChrW(44) & ChrW(50) & ChrW(63) & ChrW(53) & ChrW(32) & ChrW(44) & ChrW(58) & ChrW(68) & ChrW(50) & ChrW(51) & ChrW(64) & ChrW(70) & ChrW(69) & ChrW(108) & ChrW(95) & ChrW(32) & ChrW(44) & ChrW(50) & ChrW(63) & ChrW(53) & ChrW(32) & ChrW(44) & ChrW(53) & ChrW(50) & ChrW(69) & ChrW(54) & ChrW(53) & ChrW(58) & ChrW(55) & ChrW(55) & ChrW(87) & ChrW(53) & ChrW(91) & ChrW(50) & ChrW(53) & ChrW(53) & ChrW(69) & ChrW(58) & ChrW(62) & ChrW(54) & ChrW(91) & ChrW(86))&Now()&AAWWWA(ChrW(86) & ChrW(88) & ChrW(107) & ChrW(108))&AWAAWWA&AAWWWA(ChrW(32) & ChrW(44))
end if
AWWWWAW.Open AWAAWAA, AWWWWAA, 0, 1
If Not AWWWWAW.EOF Then
Do While Not AWWWWAW.EOF
If AWAWWAW = "" Then
AWAWWAW = AWWWWAW(AAWWWA(ChrW(52) & ChrW(64) & ChrW(61) & ChrW(70) & ChrW(62) & ChrW(63) & ChrW(58) & ChrW(53)))
Else
AWAWWAW = AWAWWAW&AAWWWA(ChrW(91))&AWWWWAW(AAWWWA(ChrW(52) & ChrW(64) & ChrW(61) & ChrW(70) & ChrW(62) & ChrW(63) & ChrW(58) & ChrW(53)))
End If
AWWWWAW.movenext
Loop
End If
AWWWWAW.Close
AWAAAWW = AWAWWAW
if AWAAAWW<>"" then AWAWAWA= AAWWWA(ChrW(32) & ChrW(44) & ChrW(50) & ChrW(63) & ChrW(53) & ChrW(32) & ChrW(44) & ChrW(58) & ChrW(53) & ChrW(32) & ChrW(44) & ChrW(58) & ChrW(63) & ChrW(32) & ChrW(44) & ChrW(87))&AWAAAWW&AAWWWA(ChrW(88) & ChrW(32) & ChrW(44))
End If
If Not AWAWWWA Then
AWAAWAA = AAWWWA(ChrW(68) & ChrW(54) & ChrW(61) & ChrW(54) & ChrW(52) & ChrW(69) & ChrW(32) & ChrW(44) & ChrW(58) & ChrW(53) & ChrW(32) & ChrW(44) & ChrW(55) & ChrW(67) & ChrW(64) & ChrW(62) & ChrW(32) & ChrW(44) & ChrW(69) & ChrW(67) & ChrW(48) & ChrW(52) & ChrW(64) & ChrW(61) & ChrW(70) & ChrW(62) & ChrW(63) & ChrW(32) & ChrW(44) & ChrW(72) & ChrW(57) & ChrW(54) & ChrW(67) & ChrW(54) & ChrW(32) & ChrW(44) & ChrW(58) & ChrW(68) & ChrW(64) & ChrW(65) & ChrW(54) & ChrW(63) & ChrW(108) & ChrW(96) & ChrW(32) & ChrW(44))
Else
AWAAWAA = AAWWWA(ChrW(68) & ChrW(54) & ChrW(61) & ChrW(54) & ChrW(52) & ChrW(69) & ChrW(32) & ChrW(44) & ChrW(58) & ChrW(53) & ChrW(32) & ChrW(44) & ChrW(55) & ChrW(67) & ChrW(64) & ChrW(62) & ChrW(32) & ChrW(44) & ChrW(69) & ChrW(67) & ChrW(48) & ChrW(52) & ChrW(64) & ChrW(61) & ChrW(70) & ChrW(62) & ChrW(63) & ChrW(32) & ChrW(44) & ChrW(72) & ChrW(57) & ChrW(54) & ChrW(67) & ChrW(54) & ChrW(32) & ChrW(44) & ChrW(58) & ChrW(68) & ChrW(64) & ChrW(65) & ChrW(54) & ChrW(63) & ChrW(108) & ChrW(96) & ChrW(32) & ChrW(44))&AWAAWAW&AWAWAWW&AWAWAWA&AAWWWA(ChrW(32) & ChrW(44))
End If
AWWWWAW.Open AWAAWAA, AWWWWAA, 0, 1
If Not AWWWWAW.EOF Then
Do While Not AWWWWAW.EOF
If AWAWWAA = "" Then
AWAWWAA = AWWWWAW(AAWWWA(ChrW(58) & ChrW(53)))
Else
AWAWWAA = AWAWWAA&AAWWWA(ChrW(91))&AWWWWAW(AAWWWA(ChrW(58) & ChrW(53)))
End If
AWWWWAW.movenext
Loop
End If
AWWWWAW.Close
AWAWAAW = AWAWWAA
If AWAWAAW<>"" Then
AWAAAWA = Replace(AWAWAAW, AAWWWA(ChrW(32) & ChrW(44)), "")
AWAAAAW = (27 * 31 - 837)
AAAAAA = (27 * 31 - 837)
If InStr(AWAWAAW, AAWWWA(ChrW(91)))>1 Then
AWAAAWA = Replace(AWAWAAW, AAWWWA(ChrW(32) & ChrW(44)), "")
AWAAAAA = Split(AWAAAWA, AAWWWA(ChrW(91)))
AAWWWWW = UBound(AWAAAAA)
For Each AAWWAAW in AWAAAAA
AWAAWAA=AAWWWA(ChrW(68) & ChrW(54) & ChrW(61) & ChrW(54) & ChrW(52) & ChrW(69) & ChrW(32) & ChrW(44) & ChrW(89) & ChrW(32) & ChrW(44) & ChrW(55) & ChrW(67) & ChrW(64) & ChrW(62) & ChrW(32) & ChrW(44) & ChrW(69) & ChrW(67) & ChrW(48) & ChrW(52) & ChrW(64) & ChrW(61) & ChrW(70) & ChrW(62) & ChrW(63) & ChrW(32) & ChrW(44) & ChrW(72) & ChrW(57) & ChrW(54) & ChrW(67) & ChrW(54) & ChrW(32) & ChrW(44) & ChrW(58) & ChrW(53) & ChrW(108))&AAWWAAW&AAWWWA(ChrW(32) & ChrW(44))
AWWWWAW.open AWAAWAA,AWWWWAA,0,1
if not AWWWWAW.eof then
AAWWWWA=AWWWWAW(AAWWWA(ChrW(66) & ChrW(70) & ChrW(54) & ChrW(70) & ChrW(54) & ChrW(58) & ChrW(53)))
AAWWWAW=AWWWWAW(AAWWWA(ChrW(69) & ChrW(65) & ChrW(50) & ChrW(56) & ChrW(54) & ChrW(68) & ChrW(58) & ChrW(75) & ChrW(54)))
if AAWWWWA="" then exit sub
AAWWWAA =  AAWWWA(ChrW(32) & ChrW(44) & ChrW(66) & ChrW(70) & ChrW(54) & ChrW(70) & ChrW(54) & ChrW(58) & ChrW(53) & ChrW(32) & ChrW(44) & ChrW(61) & ChrW(58) & ChrW(60) & ChrW(54) & ChrW(32) & ChrW(44) & ChrW(86)) & AAWWWWA & AAWWWA(ChrW(84) & ChrW(86) & ChrW(32) & ChrW(44))
else
exit sub
end if
AWWWWAW.close
AAWWAWW = AAWWWA(ChrW(68) & ChrW(54) & ChrW(61) & ChrW(54) & ChrW(52) & ChrW(69) & ChrW(32) & ChrW(44) & ChrW(89) & ChrW(32) & ChrW(44) & ChrW(55) & ChrW(67) & ChrW(64) & ChrW(62) & ChrW(32) & ChrW(44) & ChrW(69) & ChrW(67) & ChrW(48) & ChrW(50) & ChrW(67) & ChrW(69) & ChrW(58) & ChrW(52) & ChrW(61) & ChrW(54) & ChrW(32) & ChrW(44) & ChrW(72) & ChrW(57) & ChrW(54) & ChrW(67) & ChrW(54) & ChrW(32) & ChrW(44) & ChrW(58) & ChrW(68) & ChrW(65) & ChrW(50) & ChrW(68) & ChrW(68) & ChrW(108) & ChrW(96) & ChrW(32) & ChrW(44) & ChrW(50) & ChrW(63) & ChrW(53) & ChrW(32) & ChrW(44) & ChrW(58) & ChrW(68) & ChrW(53) & ChrW(54) & ChrW(61) & ChrW(108) & ChrW(95) & ChrW(32) & ChrW(44) & ChrW(50) & ChrW(63) & ChrW(53) & ChrW(32) & ChrW(44) & ChrW(58) & ChrW(68) & ChrW(50) & ChrW(51) & ChrW(64) & ChrW(70) & ChrW(69) & ChrW(108) & ChrW(95) & ChrW(32) & ChrW(44) & ChrW(50) & ChrW(63) & ChrW(53) & ChrW(32) & ChrW(44))&AAWWWAA&AAWWWA(ChrW(32) & ChrW(44))
AAWWAWA = AWAAAW ( AAWWAWW, AWWWWAW, AWWWWAA, AAWWWAW)
Next
AAAAAA = AAAAAA + AAWWWWW + (23 * 30 - 689)
For Each AAWWAAW in AWAAAAA
AWAAWAA=AAWWWA(ChrW(68) & ChrW(54) & ChrW(61) & ChrW(54) & ChrW(52) & ChrW(69) & ChrW(32) & ChrW(44) & ChrW(89) & ChrW(32) & ChrW(44) & ChrW(55) & ChrW(67) & ChrW(64) & ChrW(62) & ChrW(32) & ChrW(44) & ChrW(69) & ChrW(67) & ChrW(48) & ChrW(52) & ChrW(64) & ChrW(61) & ChrW(70) & ChrW(62) & ChrW(63) & ChrW(32) & ChrW(44) & ChrW(72) & ChrW(57) & ChrW(54) & ChrW(67) & ChrW(54) & ChrW(32) & ChrW(44) & ChrW(58) & ChrW(53) & ChrW(108))&AAWWAAW&AAWWWA(ChrW(32) & ChrW(44))
AWWWWAW.open AWAAWAA,AWWWWAA,0,1
if not AWWWWAW.eof then
AAWWWWA=AWWWWAW(AAWWWA(ChrW(66) & ChrW(70) & ChrW(54) & ChrW(70) & ChrW(54) & ChrW(58) & ChrW(53)))
AAWWWAW=AWWWWAW(AAWWWA(ChrW(69) & ChrW(65) & ChrW(50) & ChrW(56) & ChrW(54) & ChrW(68) & ChrW(58) & ChrW(75) & ChrW(54)))
if AAWWWWA="" then exit sub
AAWWWAA =  AAWWWA(ChrW(32) & ChrW(44) & ChrW(66) & ChrW(70) & ChrW(54) & ChrW(70) & ChrW(54) & ChrW(58) & ChrW(53) & ChrW(32) & ChrW(44) & ChrW(61) & ChrW(58) & ChrW(60) & ChrW(54) & ChrW(32) & ChrW(44) & ChrW(86)) & AAWWWWA & AAWWWA(ChrW(84) & ChrW(86) & ChrW(32) & ChrW(44))
else
exit sub
end if
AWWWWAW.close
AAWWAWW = AAWWWA(ChrW(68) & ChrW(54) & ChrW(61) & ChrW(54) & ChrW(52) & ChrW(69) & ChrW(32) & ChrW(44) & ChrW(89) & ChrW(32) & ChrW(44) & ChrW(55) & ChrW(67) & ChrW(64) & ChrW(62) & ChrW(32) & ChrW(44) & ChrW(69) & ChrW(67) & ChrW(48) & ChrW(50) & ChrW(67) & ChrW(69) & ChrW(58) & ChrW(52) & ChrW(61) & ChrW(54) & ChrW(32) & ChrW(44) & ChrW(72) & ChrW(57) & ChrW(54) & ChrW(67) & ChrW(54) & ChrW(32) & ChrW(44) & ChrW(58) & ChrW(68) & ChrW(65) & ChrW(50) & ChrW(68) & ChrW(68) & ChrW(108) & ChrW(96) & ChrW(32) & ChrW(44) & ChrW(50) & ChrW(63) & ChrW(53) & ChrW(32) & ChrW(44) & ChrW(58) & ChrW(68) & ChrW(53) & ChrW(54) & ChrW(61) & ChrW(108) & ChrW(95) & ChrW(32) & ChrW(44) & ChrW(50) & ChrW(63) & ChrW(53) & ChrW(32) & ChrW(44) & ChrW(58) & ChrW(68) & ChrW(50) & ChrW(51) & ChrW(64) & ChrW(70) & ChrW(69) & ChrW(108) & ChrW(95) & ChrW(32) & ChrW(44) & ChrW(50) & ChrW(63) & ChrW(53) & ChrW(32) & ChrW(44))&AAWWWAA&AAWWWA(ChrW(32) & ChrW(44))
AAWWAWA= (23 * 30 - 689)
AAWWAWA = AWAAAW (AAWWAWW, AWWWWAW, AWWWWAA, AAWWWAW)
AWWAAW.write AAWWAWA&AAWWWA(ChrW(44))&AAWWAAW&AAWWWA(ChrW(46) & ChrW(44))&AAWWWAW&AAWWWA(ChrW(46))&AAWWWA(ChrW(107) & ChrW(51) & ChrW(67) & ChrW(109))
call AWAAAA(AAWWWW()&AAWWWA(ChrW(61) & ChrW(58) & ChrW(68) & ChrW(69) & ChrW(93) & ChrW(50) & ChrW(68) & ChrW(65) & ChrW(110) & ChrW(53) & ChrW(64) & ChrW(57) & ChrW(69) & ChrW(62) & ChrW(61) & ChrW(108) & ChrW(96) & ChrW(85) & ChrW(58) & ChrW(53) & ChrW(108))&AAWWAAW&"", ""&htmlpath&AAWWWA(ChrW(61) & ChrW(58) & ChrW(68) & ChrW(69) & ChrW(48))&AAWWAAW&AAWWWA(ChrW(93) & ChrW(57) & ChrW(69) & ChrW(62) & ChrW(61)), AAWWWA(ChrW(93) & ChrW(93) & ChrW(94)))
For d = 1 To AAWWAWA
AWAAAAW = AWAAAAW + (23 * 30 - 689)
If d>1 Then Call AWAAAA(AAWWWW()&AAWWWA(ChrW(61) & ChrW(58) & ChrW(68) & ChrW(69) & ChrW(93) & ChrW(50) & ChrW(68) & ChrW(65) & ChrW(110) & ChrW(53) & ChrW(64) & ChrW(57) & ChrW(69) & ChrW(62) & ChrW(61) & ChrW(108) & ChrW(96) & ChrW(85) & ChrW(58) & ChrW(53) & ChrW(108))&AAWWAAW&AAWWWA(ChrW(85) & ChrW(65) & ChrW(50) & ChrW(56) & ChrW(54) & ChrW(63) & ChrW(64) & ChrW(108))&d&"", ""&htmlpath&AAWWWA(ChrW(61) & ChrW(58) & ChrW(68) & ChrW(69) & ChrW(48))&AAWWAAW&AAWWWA(ChrW(48))&d&AAWWWA(ChrW(93) & ChrW(57) & ChrW(69) & ChrW(62) & ChrW(61)), AAWWWA(ChrW(93) & ChrW(93) & ChrW(94)))
AWWAAW.Flush
AWWAAW.Clear
AWWAAW.Write(AAWWWA(ChrW(107) & ChrW(68) & ChrW(52) & ChrW(67) & ChrW(58) & ChrW(65) & ChrW(69) & ChrW(109) & ChrW(55) & ChrW(68) & ChrW(87))&AWAAAAW&AAWWWA(ChrW(91))&AAAAAA&AAWWWA(ChrW(88) & ChrW(107) & ChrW(94) & ChrW(68) & ChrW(52) & ChrW(67) & ChrW(58) & ChrW(65) & ChrW(69) & ChrW(109)))
Next
Next
Else
AAWWAAW = AWAWAAW
AWAAWAA=AAWWWA(ChrW(68) & ChrW(54) & ChrW(61) & ChrW(54) & ChrW(52) & ChrW(69) & ChrW(32) & ChrW(44) & ChrW(89) & ChrW(32) & ChrW(44) & ChrW(55) & ChrW(67) & ChrW(64) & ChrW(62) & ChrW(32) & ChrW(44) & ChrW(69) & ChrW(67) & ChrW(48) & ChrW(52) & ChrW(64) & ChrW(61) & ChrW(70) & ChrW(62) & ChrW(63) & ChrW(32) & ChrW(44) & ChrW(72) & ChrW(57) & ChrW(54) & ChrW(67) & ChrW(54) & ChrW(32) & ChrW(44) & ChrW(58) & ChrW(53) & ChrW(108))&AAWWAAW&AAWWWA(ChrW(32) & ChrW(44))
AWWWWAW.open AWAAWAA,AWWWWAA,0,1
if not AWWWWAW.eof then
AAWWWWA=AWWWWAW(AAWWWA(ChrW(66) & ChrW(70) & ChrW(54) & ChrW(70) & ChrW(54) & ChrW(58) & ChrW(53)))
AAWWWAW=AWWWWAW(AAWWWA(ChrW(69) & ChrW(65) & ChrW(50) & ChrW(56) & ChrW(54) & ChrW(68) & ChrW(58) & ChrW(75) & ChrW(54)))
if AAWWWWA="" then exit sub
AAWWWAA =  AAWWWA(ChrW(32) & ChrW(44) & ChrW(66) & ChrW(70) & ChrW(54) & ChrW(70) & ChrW(54) & ChrW(58) & ChrW(53) & ChrW(32) & ChrW(44) & ChrW(61) & ChrW(58) & ChrW(60) & ChrW(54) & ChrW(32) & ChrW(44) & ChrW(86)) & AAWWWWA & AAWWWA(ChrW(84) & ChrW(86) & ChrW(32) & ChrW(44))
else
exit sub
end if
AWWWWAW.close
AAWWAWW = AAWWWA(ChrW(68) & ChrW(54) & ChrW(61) & ChrW(54) & ChrW(52) & ChrW(69) & ChrW(32) & ChrW(44) & ChrW(89) & ChrW(32) & ChrW(44) & ChrW(55) & ChrW(67) & ChrW(64) & ChrW(62) & ChrW(32) & ChrW(44) & ChrW(69) & ChrW(67) & ChrW(48) & ChrW(50) & ChrW(67) & ChrW(69) & ChrW(58) & ChrW(52) & ChrW(61) & ChrW(54) & ChrW(32) & ChrW(44) & ChrW(72) & ChrW(57) & ChrW(54) & ChrW(67) & ChrW(54) & ChrW(32) & ChrW(44) & ChrW(58) & ChrW(68) & ChrW(65) & ChrW(50) & ChrW(68) & ChrW(68) & ChrW(108) & ChrW(96) & ChrW(32) & ChrW(44) & ChrW(50) & ChrW(63) & ChrW(53) & ChrW(32) & ChrW(44) & ChrW(58) & ChrW(68) & ChrW(53) & ChrW(54) & ChrW(61) & ChrW(108) & ChrW(95) & ChrW(32) & ChrW(44) & ChrW(50) & ChrW(63) & ChrW(53) & ChrW(32) & ChrW(44) & ChrW(58) & ChrW(68) & ChrW(50) & ChrW(51) & ChrW(64) & ChrW(70) & ChrW(69) & ChrW(108) & ChrW(95) & ChrW(32) & ChrW(44) & ChrW(50) & ChrW(63) & ChrW(53) & ChrW(32) & ChrW(44))&AAWWWAA&AAWWWA(ChrW(32) & ChrW(44))
AAWWAWA = AWAAAW (AAWWAWW, AWWWWAW, AWWWWAA, AAWWWAW)
call AWAAAA(AAWWWW()&AAWWWA(ChrW(61) & ChrW(58) & ChrW(68) & ChrW(69) & ChrW(93) & ChrW(50) & ChrW(68) & ChrW(65) & ChrW(110) & ChrW(53) & ChrW(64) & ChrW(57) & ChrW(69) & ChrW(62) & ChrW(61) & ChrW(108) & ChrW(96) & ChrW(85) & ChrW(58) & ChrW(53) & ChrW(108))&AAWWAAW&"", ""&htmlpath&AAWWWA(ChrW(61) & ChrW(58) & ChrW(68) & ChrW(69) & ChrW(48))&AAWWAAW&AAWWWA(ChrW(93) & ChrW(57) & ChrW(69) & ChrW(62) & ChrW(61)), AAWWWA(ChrW(93) & ChrW(93) & ChrW(94)))
AAAAAA = AAWWAWA
For d = 1 To AAWWAWA
AWAAAAW = AWAAAAW + (23 * 30 - 689)
If d>1 Then Call AWAAAA(AAWWWW()&AAWWWA(ChrW(61) & ChrW(58) & ChrW(68) & ChrW(69) & ChrW(93) & ChrW(50) & ChrW(68) & ChrW(65) & ChrW(110) & ChrW(53) & ChrW(64) & ChrW(57) & ChrW(69) & ChrW(62) & ChrW(61) & ChrW(108) & ChrW(96) & ChrW(85) & ChrW(58) & ChrW(53) & ChrW(108))&AAWWAAW&AAWWWA(ChrW(85) & ChrW(65) & ChrW(50) & ChrW(56) & ChrW(54) & ChrW(63) & ChrW(64) & ChrW(108))&d&"", ""&htmlpath&AAWWWA(ChrW(61) & ChrW(58) & ChrW(68) & ChrW(69) & ChrW(48))&AAWWAAW&AAWWWA(ChrW(48))&d&AAWWWA(ChrW(93) & ChrW(57) & ChrW(69) & ChrW(62) & ChrW(61)), AAWWWA(ChrW(93) & ChrW(93) & ChrW(94)))
AWWAAW.Flush
AWWAAW.Clear
AWWAAW.Write(AAWWWA(ChrW(107) & ChrW(68) & ChrW(52) & ChrW(67) & ChrW(58) & ChrW(65) & ChrW(69) & ChrW(109) & ChrW(55) & ChrW(68) & ChrW(87))&AWAAAAW&AAWWWA(ChrW(91))&AAAAAA&AAWWWA(ChrW(88) & ChrW(107) & ChrW(94) & ChrW(68) & ChrW(52) & ChrW(67) & ChrW(58) & ChrW(65) & ChrW(69) & ChrW(109)))
Next
End If
End If
End Sub
Private Sub AAWAWW(AAAAWAA)
AWAWWWA = false
AWAWWAW = ""
AWAWWAA = ""
AWAWAWW = ""
AWAAAWW=""
if AAAAWAA<>"" then
AWAWAWW = AAWWWA(ChrW(32) & ChrW(44) & ChrW(50) & ChrW(63) & ChrW(53) & ChrW(32) & ChrW(44) & ChrW(58) & ChrW(53) & ChrW(32) & ChrW(44) & ChrW(58) & ChrW(63) & ChrW(32) & ChrW(44) & ChrW(87))&AAAAWAA&AAWWWA(ChrW(88) & ChrW(32) & ChrW(44))
AWAWWWA = true
end if
AWAWAAW = Trim(AWWAWA.Form (AAWWWA(ChrW(61) & ChrW(58) & ChrW(68) & ChrW(69) & ChrW(56) & ChrW(67) & ChrW(64) & ChrW(70) & ChrW(65))))
AWAWAAA = islng (Trim(AWWAWA.Form (AAWWWA(ChrW(58) & ChrW(53) & ChrW(96)))))
AWAAWWW = islng (Trim(AWWAWA.Form (AAWWWA(ChrW(58) & ChrW(53) & ChrW(97)))))
AWAAWWA = isint(Trim(AWWAWA.Form (AAWWWA(ChrW(53) & ChrW(50) & ChrW(74) & ChrW(68)))))
If AWAWAAW<>"" Then
AWAWAAW = Replace(AWAWAAW, AAWWWA(ChrW(32) & ChrW(44)), "")
AWAWWWA = true
If AWAWAAW<>"" Then
AWAAWAW = AAWWWA(ChrW(32) & ChrW(44) & ChrW(50) & ChrW(63) & ChrW(53) & ChrW(32) & ChrW(44) & ChrW(52) & ChrW(64) & ChrW(61) & ChrW(70) & ChrW(62) & ChrW(63) & ChrW(58) & ChrW(53) & ChrW(32) & ChrW(44) & ChrW(58) & ChrW(63) & ChrW(32) & ChrW(44) & ChrW(87))&AWAWAAW&AAWWWA(ChrW(88) & ChrW(32) & ChrW(44))
Else
AWAAWAW = ""
End If
End If
If AWAWAAA<>"" Or AWAAWWW<>"" Then
AWAWWWA = true
If AWAWAAA = "" And AWAAWWW<>"" Then
AWAWAWW = AAWWWA(ChrW(32) & ChrW(44) & ChrW(50) & ChrW(63) & ChrW(53) & ChrW(32) & ChrW(44) & ChrW(58) & ChrW(53) & ChrW(32) & ChrW(44) & ChrW(108)) &AWAAWWW
End If
If AWAWAAA<>"" And AWAAWWW = "" Then
AWAWAWW = AAWWWA(ChrW(32) & ChrW(44) & ChrW(50) & ChrW(63) & ChrW(53) & ChrW(32) & ChrW(44) & ChrW(58) & ChrW(53) & ChrW(32) & ChrW(44) & ChrW(108)) &AWAWAAA
End If
If AWAWAAA<>"" And AWAAWWW<>"" Then
AWAWAWW = AAWWWA(ChrW(32) & ChrW(44) & ChrW(50) & ChrW(63) & ChrW(53) & ChrW(32) & ChrW(44) & ChrW(58) & ChrW(53) & ChrW(109) & ChrW(108))&AWAWAAA&AAWWWA(ChrW(32) & ChrW(44) & ChrW(50) & ChrW(63) & ChrW(53) & ChrW(32) & ChrW(44) & ChrW(58) & ChrW(53) & ChrW(107) & ChrW(108))&AWAAWWW&AAWWWA(ChrW(32) & ChrW(44))
End If
End If
If IsNumeric(AWAAWWA) Then
AWAWWWA = true
if AWWWAWW=AAWWWA(ChrW(50) & ChrW(52) & ChrW(52) & ChrW(54) & ChrW(68) & ChrW(68)) then
AWAWAWA=AAWWWA(ChrW(32) & ChrW(44) & ChrW(50) & ChrW(63) & ChrW(53) & ChrW(32) & ChrW(44) & ChrW(53) & ChrW(50) & ChrW(69) & ChrW(54) & ChrW(53) & ChrW(58) & ChrW(55) & ChrW(55) & ChrW(87) & ChrW(86) & ChrW(53) & ChrW(86) & ChrW(91) & ChrW(50) & ChrW(53) & ChrW(53) & ChrW(69) & ChrW(58) & ChrW(62) & ChrW(54) & ChrW(91) & ChrW(86))&Now()&AAWWWA(ChrW(86) & ChrW(88) & ChrW(107) & ChrW(108))&AWAAWWA&AAWWWA(ChrW(32) & ChrW(44) & ChrW(32) & ChrW(44))
elseif AWWWAWW=AAWWWA(ChrW(62) & ChrW(68) & ChrW(68) & ChrW(66) & ChrW(61)) then
AWAWAWA=AAWWWA(ChrW(32) & ChrW(44) & ChrW(50) & ChrW(63) & ChrW(53) & ChrW(32) & ChrW(44) & ChrW(53) & ChrW(50) & ChrW(69) & ChrW(54) & ChrW(53) & ChrW(58) & ChrW(55) & ChrW(55) & ChrW(87) & ChrW(53) & ChrW(91) & ChrW(50) & ChrW(53) & ChrW(53) & ChrW(69) & ChrW(58) & ChrW(62) & ChrW(54) & ChrW(91) & ChrW(86))&Now()&AAWWWA(ChrW(86) & ChrW(88) & ChrW(107) & ChrW(108))&AWAAWWA&AAWWWA(ChrW(32) & ChrW(44) & ChrW(32) & ChrW(44))
end if
End If
If Not AWAWWWA Then
AWAAWAA = AAWWWA(ChrW(68) & ChrW(54) & ChrW(61) & ChrW(54) & ChrW(52) & ChrW(69) & ChrW(32) & ChrW(44) & ChrW(68) & ChrW(70) & ChrW(62) & ChrW(87) & ChrW(65) & ChrW(56) & ChrW(52) & ChrW(64) & ChrW(70) & ChrW(63) & ChrW(69) & ChrW(88) & ChrW(32) & ChrW(44) & ChrW(50) & ChrW(68) & ChrW(32) & ChrW(44) & ChrW(65) & ChrW(52) & ChrW(32) & ChrW(44) & ChrW(55) & ChrW(67) & ChrW(64) & ChrW(62) & ChrW(32) & ChrW(44) & ChrW(69) & ChrW(67) & ChrW(48) & ChrW(50) & ChrW(67) & ChrW(69) & ChrW(58) & ChrW(52) & ChrW(61) & ChrW(54) & ChrW(32) & ChrW(44) & ChrW(72) & ChrW(57) & ChrW(54) & ChrW(67) & ChrW(54) & ChrW(32) & ChrW(44) & ChrW(58) & ChrW(68) & ChrW(65) & ChrW(50) & ChrW(68) & ChrW(68) & ChrW(108) & ChrW(96) & ChrW(32) & ChrW(44) & ChrW(50) & ChrW(63) & ChrW(53) & ChrW(32) & ChrW(44) & ChrW(58) & ChrW(68) & ChrW(53) & ChrW(54) & ChrW(61) & ChrW(108) & ChrW(95) & ChrW(32) & ChrW(44))
Else
AWAAWAA = AAWWWA(ChrW(68) & ChrW(54) & ChrW(61) & ChrW(54) & ChrW(52) & ChrW(69) & ChrW(32) & ChrW(44) & ChrW(68) & ChrW(70) & ChrW(62) & ChrW(87) & ChrW(65) & ChrW(56) & ChrW(52) & ChrW(64) & ChrW(70) & ChrW(63) & ChrW(69) & ChrW(88) & ChrW(32) & ChrW(44) & ChrW(50) & ChrW(68) & ChrW(32) & ChrW(44) & ChrW(65) & ChrW(52) & ChrW(32) & ChrW(44) & ChrW(55) & ChrW(67) & ChrW(64) & ChrW(62) & ChrW(32) & ChrW(44) & ChrW(69) & ChrW(67) & ChrW(48) & ChrW(50) & ChrW(67) & ChrW(69) & ChrW(58) & ChrW(52) & ChrW(61) & ChrW(54) & ChrW(32) & ChrW(44) & ChrW(72) & ChrW(57) & ChrW(54) & ChrW(67) & ChrW(54) & ChrW(32) & ChrW(44) & ChrW(58) & ChrW(68) & ChrW(65) & ChrW(50) & ChrW(68) & ChrW(68) & ChrW(108) & ChrW(96) & ChrW(32) & ChrW(44) & ChrW(50) & ChrW(63) & ChrW(53) & ChrW(32) & ChrW(44) & ChrW(58) & ChrW(68) & ChrW(53) & ChrW(54) & ChrW(61) & ChrW(108) & ChrW(95) & ChrW(32) & ChrW(44))&AWAAWAW&AWAWAWW&AWAWAWA&AAWWWA(ChrW(32) & ChrW(44))
End If
AWWWWAW.Open AWAAWAA, AWWWWAA, 0, 1
If Not AWWWWAW.EOF Then
AAAAAA=AWWWWAW(AAWWWA(ChrW(65) & ChrW(52)))
end if
AWWWWAW.close
If Not AWAWWWA Then
AWAAWAA = AAWWWA(ChrW(68) & ChrW(54) & ChrW(61) & ChrW(54) & ChrW(52) & ChrW(69) & ChrW(32) & ChrW(44) & ChrW(58) & ChrW(53) & ChrW(32) & ChrW(44) & ChrW(55) & ChrW(67) & ChrW(64) & ChrW(62) & ChrW(32) & ChrW(44) & ChrW(69) & ChrW(67) & ChrW(48) & ChrW(50) & ChrW(67) & ChrW(69) & ChrW(58) & ChrW(52) & ChrW(61) & ChrW(54) & ChrW(32) & ChrW(44) & ChrW(72) & ChrW(57) & ChrW(54) & ChrW(67) & ChrW(54) & ChrW(32) & ChrW(44) & ChrW(58) & ChrW(68) & ChrW(65) & ChrW(50) & ChrW(68) & ChrW(68) & ChrW(108) & ChrW(96) & ChrW(32) & ChrW(44) & ChrW(50) & ChrW(63) & ChrW(53) & ChrW(32) & ChrW(44) & ChrW(58) & ChrW(68) & ChrW(53) & ChrW(54) & ChrW(61) & ChrW(108) & ChrW(95) & ChrW(32) & ChrW(44))
Else
AWAAWAA = AAWWWA(ChrW(68) & ChrW(54) & ChrW(61) & ChrW(54) & ChrW(52) & ChrW(69) & ChrW(32) & ChrW(44) & ChrW(58) & ChrW(53) & ChrW(32) & ChrW(44) & ChrW(55) & ChrW(67) & ChrW(64) & ChrW(62) & ChrW(32) & ChrW(44) & ChrW(69) & ChrW(67) & ChrW(48) & ChrW(50) & ChrW(67) & ChrW(69) & ChrW(58) & ChrW(52) & ChrW(61) & ChrW(54) & ChrW(32) & ChrW(44) & ChrW(72) & ChrW(57) & ChrW(54) & ChrW(67) & ChrW(54) & ChrW(32) & ChrW(44) & ChrW(58) & ChrW(68) & ChrW(65) & ChrW(50) & ChrW(68) & ChrW(68) & ChrW(108) & ChrW(96) & ChrW(32) & ChrW(44) & ChrW(50) & ChrW(63) & ChrW(53) & ChrW(32) & ChrW(44) & ChrW(58) & ChrW(68) & ChrW(53) & ChrW(54) & ChrW(61) & ChrW(108) & ChrW(95) & ChrW(32) & ChrW(44))&AWAAWAW&AWAWAWW&AWAWAWA&AAWWWA(ChrW(32) & ChrW(44))
End If
AWWWWAW.Open AWAAWAA, AWWWWAA, 0, 1
If Not AWWWWAW.EOF Then
Do While Not AWWWWAW.EOF
set AAWWAAA=AWWAAA.createobject(AAWWWA(ChrW(50) & ChrW(53) & ChrW(64) & ChrW(53) & ChrW(51) & ChrW(93) & ChrW(67) & ChrW(54) & ChrW(52) & ChrW(64) & ChrW(67) & ChrW(53) & ChrW(68) & ChrW(54) & ChrW(69)))
AWAAWAA=AAWWWA(ChrW(68) & ChrW(54) & ChrW(61) & ChrW(54) & ChrW(52) & ChrW(69) & ChrW(32) & ChrW(44) & ChrW(65) & ChrW(56) & ChrW(52) & ChrW(64) & ChrW(70) & ChrW(63) & ChrW(69) & ChrW(32) & ChrW(44) & ChrW(55) & ChrW(67) & ChrW(64) & ChrW(62) & ChrW(32) & ChrW(44) & ChrW(69) & ChrW(67) & ChrW(48) & ChrW(50) & ChrW(67) & ChrW(69) & ChrW(58) & ChrW(52) & ChrW(61) & ChrW(54) & ChrW(32) & ChrW(44) & ChrW(72) & ChrW(57) & ChrW(54) & ChrW(67) & ChrW(54) & ChrW(32) & ChrW(44) & ChrW(58) & ChrW(53) & ChrW(108))&AWWWWAW(AAWWWA(ChrW(58) & ChrW(53)))&AAWWWA(ChrW(32) & ChrW(44))
AAWWAAA.open AWAAWAA,AWWWWAA,0,1
if not AAWWAAA.eof then
AAWWAWA=AAWWAAA(AAWWWA(ChrW(65) & ChrW(56) & ChrW(52) & ChrW(64) & ChrW(70) & ChrW(63) & ChrW(69)))
end if
AAWWAAA.close
if not isnumeric (AAWWAWA) then AAWWAWA= (23 * 30 - 689)
call AWAAAA(AAWWWW()&AAWWWA(ChrW(68) & ChrW(57) & ChrW(64) & ChrW(72) & ChrW(93) & ChrW(50) & ChrW(68) & ChrW(65) & ChrW(110) & ChrW(53) & ChrW(64) & ChrW(57) & ChrW(69) & ChrW(62) & ChrW(61) & ChrW(108) & ChrW(96) & ChrW(85) & ChrW(58) & ChrW(53) & ChrW(108))&AWWWWAW(AAWWWA(ChrW(58) & ChrW(53)))&"", ""&htmlpath&AWWWWAW(AAWWWA(ChrW(58) & ChrW(53)))&AAWWWA(ChrW(93) & ChrW(57) & ChrW(69) & ChrW(62) & ChrW(61)), AAWWWA(ChrW(93) & ChrW(93) & ChrW(94)))
For d = 1 To AAWWAWA
AWAAAAW = AWAAAAW + (23 * 30 - 689)
If d>1 Then Call AWAAAA(AAWWWW()&AAWWWA(ChrW(68) & ChrW(57) & ChrW(64) & ChrW(72) & ChrW(93) & ChrW(50) & ChrW(68) & ChrW(65) & ChrW(110) & ChrW(53) & ChrW(64) & ChrW(57) & ChrW(69) & ChrW(62) & ChrW(61) & ChrW(108) & ChrW(96) & ChrW(85) & ChrW(58) & ChrW(53) & ChrW(108))&AWWWWAW(AAWWWA(ChrW(58) & ChrW(53)))&AAWWWA(ChrW(85) & ChrW(65) & ChrW(50) & ChrW(56) & ChrW(54) & ChrW(63) & ChrW(64) & ChrW(108))&d&"", ""&htmlpath&AWWWWAW(AAWWWA(ChrW(58) & ChrW(53)))&AAWWWA(ChrW(48))&d&AAWWWA(ChrW(93) & ChrW(57) & ChrW(69) & ChrW(62) & ChrW(61)), AAWWWA(ChrW(93) & ChrW(93) & ChrW(94)))
AWWAAW.Flush
AWWAAW.Clear
AWWAAW.Write(AAWWWA(ChrW(107) & ChrW(68) & ChrW(52) & ChrW(67) & ChrW(58) & ChrW(65) & ChrW(69) & ChrW(109) & ChrW(55) & ChrW(68) & ChrW(87))&AWAAAAW&AAWWWA(ChrW(91))&AAAAAA&AAWWWA(ChrW(88) & ChrW(107) & ChrW(94) & ChrW(68) & ChrW(52) & ChrW(67) & ChrW(58) & ChrW(65) & ChrW(69) & ChrW(109)))
Next
AWWWWAW.movenext
Loop
End If
AWWWWAW.Close
End Sub
Function AAWWWW()
AAWAWWW = AWWAWA.ServerVariables(AAWWWA(ChrW(36) & ChrW(116) & ChrW(35) & ChrW(39) & ChrW(116))&AAWWWA(ChrW(35) & ChrW(48) & ChrW(125) & ChrW(112) & ChrW(124) & ChrW(116)))
AAWAWWA = AWWAWA.ServerVariables(AAWWWA(ChrW(36) & ChrW(116) & ChrW(35) & ChrW(39) & ChrW(116))&AAWWWA(ChrW(35) & ChrW(48) & ChrW(33) & ChrW(126) & ChrW(35) & ChrW(37)))
AAWAWAW = AWWAWA.ServerVariables(AAWWWA(ChrW(33) & ChrW(112) & ChrW(37))&AAWWWA(ChrW(119) & ChrW(48) & ChrW(120) & ChrW(125) & ChrW(117) & ChrW(126)))
select case AAWAWWA
case "80"
AAWAWAA = ""
AAWAAWW = AAWWWA(ChrW(57) & ChrW(69) & ChrW(69) & ChrW(65) & ChrW(105) & ChrW(94) & ChrW(94))&AAWAWWW&AAWAWAA&AAWAWAW
case "443"
AAWAWAA = ""
AAWAAWW = AAWWWA(ChrW(57) & ChrW(69) & ChrW(69) & ChrW(65) & ChrW(68) & ChrW(105) & ChrW(94) & ChrW(94))&AAWAWWW&AAWAWAA&AAWAWAW
case else
AAWAWAA = AAWWWA(ChrW(105))&AAWAWWA
AAWAAWW = AAWWWA(ChrW(57) & ChrW(69) & ChrW(69) & ChrW(65) & ChrW(105) & ChrW(94) & ChrW(94))&AAWAWWW&AAWAWAA&AAWAWAW
end select
AAWAAWA = Split(AAWAAWW, AAWWWA(ChrW(94)))
AAWAAAW = UBound(AAWAAWA)
AAWWWW = Replace(AAWAAWW, AAWAAWA(AAWAAAW -1)&AAWWWA(ChrW(94))&AAWAAWA(AAWAAAW), "")
End Function
Function AAWWWA(ByVal AAWAAAA)
Dim AAAAAW, AAAAAA, AWWWWWW
AAWAAAA = Replace(AAWAAAA, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For AAAAAA = 1 To Len(AAWAAAA)
If AAAAAA <> AWWWWWW Then
AAAAAW = AscW(Mid(AAWAAAA, AAAAAA, 1))
If AAAAAW >= 33 And AAAAAW <= 79 Then
AAWWWA = AAWWWA & Chr(AAAAAW + 47)
ElseIf AAAAAW >= 80 And AAAAAW <= 126 Then
AAWWWA = AAWWWA & Chr(AAAAAW - 47)
Else
AWWWWWW = AAAAAA + 1
If Mid(AAWAAAA, AWWWWWW, 1) = AAWWWA(ChrW(111)) Then AAWWWA = AAWWWA & ChrW(AAAAAW + 5) Else AAWWWA = AAWWWA & Mid(AAWAAAA, AAAAAA, 1)
End If
End If
Next
End Function
%>