<% Dim txt_sum txt_sum = "" txt_sum = txt_sum & "" & CDel Response.Write txt_sum txt_sum = "" txt_sum = txt_sum & "
" & CDel txt_sum = txt_sum & "" & CDel txt_sum = txt_sum & AddTRTDTag(MakeTagIn(tree_u_n,FormatNumber(tree_u_v,tree_u_f),tree_u_u)) & CDel txt_sum = txt_sum & AddTRTDTag(MakeTagIn(pap_gu_n,FormatNumber(pap_gu_v,pap_gu_f),pap_gu_u)) & CDel txt_sum = txt_sum & AddTRTDTag(MakeTagIn(pap_r_n ,FormatNumber(pap_r_v ,pap_r_f ),pap_r_u )) & CDel For i = imin To imax txt_sum = txt_sum & AddTRTDTag(MakeTagIn(pap_n(i),FormatNumber(pap_s(i),pap_st_f),"(" & pap_w(i) & "~" & pap_h(i) & ")" & pap_st_u)) & CDel Next txt_sum = txt_sum & "
" & CDel txt_sum = txt_sum & "
" & CDel txt_sum = Replace(txt_sum,"[","[") txt_sum = Replace(txt_sum,"]","]") Response.Write txt_sum %>