>Dim sb as new StringBuilder() >sb.Append(lcHTML) > If cCurrentField = "No_Claim" Then >for 1 to 8 > sb.AppendFormat( "&ClaimNo={0}&MitTelAI={1}&Hd=1>", _ > Trim(oRow("No_Claim")), _ > LTrim(Str(oRow("AI"))) ) >next > End If >>or: If you prefer:
' Process the hyperlinks, if any 'lcHtml = lcHtml + Hyperlink() If cCurrentField = "No_Claim" Then Dim sb As StringBuilder = New StringBuilder() If False Then sb.Append(oRow("No_Claim").ToString.Trim) sb.Append(oRow("No_Claim").ToString.Trim) sb.Append(oRow("No_Claim").ToString.Trim) sb.Append(oRow("No_Claim").ToString.Trim) sb.Append(oRow("No_Claim").ToString.Trim) sb.Append(oRow("No_Claim").ToString.Trim) sb.Append(oRow("No_Claim").ToString.Trim) sb.Append(oRow("No_Claim").ToString.Trim) sb.Append(oRow("No_Claim").ToString.Trim) sb.Append(oRow("No_Claim").ToString.Trim) sb.Append(oRow("No_Claim").ToString.Trim) sb.Append(oRow("No_Claim").ToString.Trim) sb.Append(oRow("No_Claim").ToString.Trim) sb.Append(oRow("No_Claim").ToString.Trim) sb.Append(oRow("No_Claim").ToString.Trim) sb.Append(oRow("No_Claim").ToString.Trim) sb.Append(oRow("No_Claim").ToString.Trim) sb.Append(oRow("No_Claim").ToString.Trim) sb.Append(oRow("No_Claim").ToString.Trim) sb.Append(oRow("No_Claim").ToString.Trim) sb.Append(oRow("No_Claim").ToString.Trim) sb.Append(oRow("No_Claim").ToString.Trim) sb.Append(oRow("No_Claim").ToString.Trim) sb.Append(oRow("No_Claim").ToString.Trim) sb.Append(oRow("No_Claim").ToString.Trim) sb.Append(oRow("No_Claim").ToString.Trim) sb.Append(oRow("No_Claim").ToString.Trim) sb.Append(oRow("No_Claim").ToString.Trim) sb.Append(oRow("No_Claim").ToString.Trim) sb.Append(oRow("No_Claim").ToString.Trim) sb.Append(oRow("No_Claim").ToString.Trim) sb.Append(oRow("No_Claim").ToString.Trim) sb.Append(oRow("No_Claim").ToString.Trim) lcHtml = lcHtml + sb.ToString End If End IfIf I remove the If False condition, I obtain a processing time of 7 seconds.