B
Bill Patel
Variable ta, tb, tc, td and te are not updated in the SUB WriteTableDetail.
As a result, Response write of the ta, tb, tc td and te displays 0.
Sub Page_load(Src AS Object, e AS EventArgs)
IF Request.QueryString("lnk_a") = "1" OR Request.QueryString("lnk_a") =
"3" OR Request.QueryString("lnk_a") = "4" THEN
Main_Program
END IF
END SUB
Sub Main_Program
Dim a AS Integer = 0
Dim b AS Integer = 0
Dim c AS Integer = 0
Dim d AS Integer = 0
Dim e AS Integer = 0
Dim ta AS Integer = 0
Dim tb AS Integer = 0
Dim tc AS Integer = 0
Dim td AS Integer = 0
Dim te AS Integer = 0
Dim I1 AS Integer = 0
Response.Write("<TABLE WIDTH=1300 BORDER=1 CELLSPACING=0 CELLPADDING=0
style=font-family: Arial; font-size: 8pt>")
DO While I1 <= DS1.Tables(0).Rows.Count - 1
IF DS1.Tables(0).Rows(I1).item(4) = "CN" THEN
a = a + 1
ELSE
IF DS1.Tables(0).Rows(I1).item(4) = "IF" THEN
b = b + 1
ELSE
c = c + 1
END IF
END IF
IF DS1.Tables(0).Rows(I1).item(5) = "Y" THEN
d = d + 1
ELSE
e = e + 1
END IF
IF Request.QueryString("lnk_a") = "1" THEN
IF a < 1 AND b > 0 THEN
WriteTableDetail(a, b, c, d, e, ta, tb, tc, td, te)
END IF
ELSE
IF Request.QueryString("lnk_a") = "2" THEN
IF a - b> 1 THEN
WriteTableDetail(a, b, c, d, e, ta, tb, tc, td, te)
END IF
END IF
END IF
I1 = I1 + 1
Loop
Response.Write("<TR >")
Response.Write("<td ALIGN=RIGHT>" & ta & "</td>")
Response.Write("<td ALIGN=RIGHT>" & tb & "</td>")
Response.Write("<td ALIGN=RIGHT>" & tc & "</td>")
Response.Write("<td ALIGN=RIGHT>" & td & "</td>")
Response.Write("<td ALIGN=RIGHT>" & te & "</td>")
Response.Write("</TR >")
Response.Write("</TABLE>")
END SUB
SUB WriteTableDetail
ta = ta + a
tb = tb + b
tc = tc + c
td = td + d
te = te + e
Response.Write("<TR >")
Response.Write("<td ALIGN=RIGHT>" & a & "</td>")
Response.Write("<td ALIGN=RIGHT>" & b & "</td>")
Response.Write("<td ALIGN=RIGHT>" & c & "</td>")
Response.Write("<td ALIGN=RIGHT>" & d & "</td>")
Response.Write("<td ALIGN=RIGHT>" & e & "</td>")
Response.Write("</TR >")
END SUB
As a result, Response write of the ta, tb, tc td and te displays 0.
Sub Page_load(Src AS Object, e AS EventArgs)
IF Request.QueryString("lnk_a") = "1" OR Request.QueryString("lnk_a") =
"3" OR Request.QueryString("lnk_a") = "4" THEN
Main_Program
END IF
END SUB
Sub Main_Program
Dim a AS Integer = 0
Dim b AS Integer = 0
Dim c AS Integer = 0
Dim d AS Integer = 0
Dim e AS Integer = 0
Dim ta AS Integer = 0
Dim tb AS Integer = 0
Dim tc AS Integer = 0
Dim td AS Integer = 0
Dim te AS Integer = 0
Dim I1 AS Integer = 0
Response.Write("<TABLE WIDTH=1300 BORDER=1 CELLSPACING=0 CELLPADDING=0
style=font-family: Arial; font-size: 8pt>")
DO While I1 <= DS1.Tables(0).Rows.Count - 1
IF DS1.Tables(0).Rows(I1).item(4) = "CN" THEN
a = a + 1
ELSE
IF DS1.Tables(0).Rows(I1).item(4) = "IF" THEN
b = b + 1
ELSE
c = c + 1
END IF
END IF
IF DS1.Tables(0).Rows(I1).item(5) = "Y" THEN
d = d + 1
ELSE
e = e + 1
END IF
IF Request.QueryString("lnk_a") = "1" THEN
IF a < 1 AND b > 0 THEN
WriteTableDetail(a, b, c, d, e, ta, tb, tc, td, te)
END IF
ELSE
IF Request.QueryString("lnk_a") = "2" THEN
IF a - b> 1 THEN
WriteTableDetail(a, b, c, d, e, ta, tb, tc, td, te)
END IF
END IF
END IF
I1 = I1 + 1
Loop
Response.Write("<TR >")
Response.Write("<td ALIGN=RIGHT>" & ta & "</td>")
Response.Write("<td ALIGN=RIGHT>" & tb & "</td>")
Response.Write("<td ALIGN=RIGHT>" & tc & "</td>")
Response.Write("<td ALIGN=RIGHT>" & td & "</td>")
Response.Write("<td ALIGN=RIGHT>" & te & "</td>")
Response.Write("</TR >")
Response.Write("</TABLE>")
END SUB
SUB WriteTableDetail
ta = ta + a
tb = tb + b
tc = tc + c
td = td + d
te = te + e
Response.Write("<TR >")
Response.Write("<td ALIGN=RIGHT>" & a & "</td>")
Response.Write("<td ALIGN=RIGHT>" & b & "</td>")
Response.Write("<td ALIGN=RIGHT>" & c & "</td>")
Response.Write("<td ALIGN=RIGHT>" & d & "</td>")
Response.Write("<td ALIGN=RIGHT>" & e & "</td>")
Response.Write("</TR >")
END SUB