"
Response.Write "" & ListQihaoArr(I) & " | "
Response.Write "" & FirstNumArr(I) & " | "
Response.Write "" & SecondNumArr(I) & " | "
Response.Write "" & ThirdNumArr(I) & " | "
For A = 1 to 3
if A mod 2 = 0 then
O = "#FFAEB9"
else
O = "#FFE4E1"
end if
If Cint(mid(NumLink(I),A,1)) >= 5 and Cint(mid(NumLink(I),A,1)) mod 2 <> 0 then
Response.Write "" & Cint(mid(NumLink(I),A,1)) & " | "
else
Response.Write " | "
end if
If Cint(mid(NumLink(I),A,1)) >= 5 and Cint(mid(NumLink(I),A,1)) mod 2 = 0 then
Response.Write "" & Cint(mid(NumLink(I),A,1)) & " | "
else
Response.Write " | "
end if
If Cint(mid(NumLink(I),A,1)) <= 4 and Cint(mid(NumLink(I),A,1)) mod 2 <> 0 then
Response.Write "" & Cint(mid(NumLink(I),A,1)) & " | "
else
Response.Write " | "
end if
If Cint(mid(NumLink(I),A,1)) <= 4 and Cint(mid(NumLink(I),A,1)) mod 2 = 0 then
Response.Write "" & Cint(mid(NumLink(I),A,1)) & " | "
else
Response.Write " | "
end if
Next
SumArr(I) = CInt(FirstNumArr(I)) + CInt(SecondNumArr(I)) + CInt(ThirdNumArr(I))
Response.Write "" & SumArr(I) & " | "
If Cint(mid(FormatNum(SumArr(I)),2,1)) >= 5 and Cint(mid(FormatNum(SumArr(I)),2,1)) mod 2 <> 0 then
Response.Write ""& Cint(mid(FormatNum(SumArr(I)),2,1)) &" | "
else
Response.Write " | "
end if
If Cint(mid(FormatNum(SumArr(I)),2,1)) >= 5 and Cint(mid(FormatNum(SumArr(I)),2,1)) mod 2 = 0 then
Response.Write ""& Cint(mid(FormatNum(SumArr(I)),2,1)) &" | "
else
Response.Write " | "
end if
If Cint(mid(FormatNum(SumArr(I)),2,1)) <= 4 and Cint(mid(FormatNum(SumArr(I)),2,1)) mod 2 <> 0 then
Response.Write ""& Cint(mid(FormatNum(SumArr(I)),2,1)) &" | "
else
Response.Write " | "
end if
If Cint(mid(FormatNum(SumArr(I)),2,1)) <= 4 and Cint(mid(FormatNum(SumArr(I)),2,1)) mod 2 = 0 then
Response.Write ""& Cint(mid(FormatNum(SumArr(I)),2,1)) &" | "
else
Response.Write " | "
end if
Response.Write "
"
next
Response.Write ""
for L = 1 to 25
Response.Write ""
next
Response.Write ""
%>