For i = LBound(SW_aryFldName) To UBound(SW_aryFldName) Response.Write(" <td align=""center""") If (IsArray(SW_aryFldWidth)) Then Response.Write(" width=""" & SW_aryFldWidth(i) & """>") If (IsArray(SW_aryFldNote)) Then Response.Write(SW_aryFldNote(i) & vbcrlf) Else Response.Write(SW_aryFldName(i) & vbcrlf) End If Response.Write(" </td>" & vbcrlf) Next Response.Write(" </tr></table></td></tr>" & vbcrlf) Else Response.Write(" <table class=""css_showdata_tb"" width=""" & SW_strShowWidth & """ align=""center"">" & vbcrlf) Response.Write(" <tr class=""css_Title"" height=""28"">" & vbcrlf) For i = LBound(SW_aryFldName) To UBound(SW_aryFldName) Response.Write(" <td class=""css_showdata_td"" align=""center""") If (IsArray(SW_aryFldWidth)) Then Response.Write(" width=""" & SW_aryFldWidth(i) & """>") If (IsArray(SW_aryFldNote)) Then Response.Write(SW_aryFldNote(i)) Else Response.Write(SW_aryFldName(i)) End If Response.Write(" </td>" & vbcrlf) Next Response.Write(" </tr>" & vbcrlf) End If
Do While (Not SW_objRS.Eof AND j<SW_intPageSize) Response.Write(" <tr class=""CSS_ShowData_tr"" height=""28"">" & vbcrlf) For i = LBound(SW_aryFldName) To UBound(SW_aryFldName) Response.Write( "<td class=""css_showdata_td""") If (IsArray(SW_aryFldAlign)) Then Response.Write(" align=""" & SW_aryFldAlign(i) & """ width=""" & SW_aryFldWidth(i) & """>") If (IsArray(SW_aryFldLink) AND Trim(SW_aryFldLink(i)<>"")) Then Response.Write(" <a href=""" & SW_aryFldLink(i) & """ target=""_blnak"">" & SW_objRS(SW_aryFldName(i)) & "</a></td>") Else Response.Write(SW_objRS(SW_aryFldName(i)) & " </td>" & vbcrlf) End If Next