> If cCurrentField = "No_Claim" Then > lcHtml = lcHtml + "&ClaimNo=" + Trim(oRow("No_Claim")) + "&MitTelAI=" + _ > LTrim(Str(oRow("AI"))) + "&Hd=1>" > End If >>
> If cCurrentField = "No_Claim" Then > lcHtml = lcHtml + "&ClaimNo=" + Trim(oRow("No_Claim")) + "&MitTelAI=" + _ > LTrim(Str(oRow("AI"))) + "&Hd=1>" + "&ClaimNo=" + Trim(oRow("No_Claim")) + "&MitTelAI=" + _ > LTrim(Str(oRow("AI"))) + "&Hd=1>" + "&ClaimNo=" + Trim(oRow("No_Claim")) + "&MitTelAI=" + _ > LTrim(Str(oRow("AI"))) + "&Hd=1>" + "&ClaimNo=" + Trim(oRow("No_Claim")) + "&MitTelAI=" + _ > LTrim(Str(oRow("AI"))) + "&Hd=1>" + "&ClaimNo=" + Trim(oRow("No_Claim")) + "&MitTelAI=" + _ > LTrim(Str(oRow("AI"))) + "&Hd=1>" + "&ClaimNo=" + Trim(oRow("No_Claim")) + "&MitTelAI=" + _ > LTrim(Str(oRow("AI"))) + "&Hd=1>" + "&ClaimNo=" + Trim(oRow("No_Claim")) + "&MitTelAI=" + _ > LTrim(Str(oRow("AI"))) + "&Hd=1>" + "&ClaimNo=" + Trim(oRow("No_Claim")) + "&MitTelAI=" + _ > LTrim(Str(oRow("AI"))) + "&Hd=1>" > End If >>
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 Ifor: If you prefer: