我编写了一段查询语句，总是输出不全，请大家帮忙，如下：
dim projet
projet=J440305500///J440305510///J440305520///J440305530///J440305540

如果每个数据的前9位代表不同单位
J440305500：西瓜
J440305510：苹果
J440305520：西红柿
J440305530：李子
J440305540：桃子
现在要将projet入数据库检索，查询完按照序号、编号、名称的格式输出，库内有的水果字的颜色为黑色，如果没有为红色，
我目前利用sql、split、for next和1维数组将序号和编号的显示以及颜色的不同完成了，但总是无法将名称显示全，即总是显示桃子，以上各项的名称均为空，
不知如何实现？？多谢指导


序  号         编  号         名   称
  1         J440305500           西瓜
  2         J440305510           苹果
  3         J440305520           西红柿
  4         J440305530           李子
  5         J440305540           桃子

P_Rrray=Split(projet,"///")
for i=0 to Ubound(P_Rrray,1)
    if (i Mod 2)=0 then
        Color="#ff0000"
    else
        Color="#0000ff"
    end if

    Response.Write("<font style='"&Color&"'>"&P_Rrray(i)&"</font><br>")
Next

[[it] 本帖最后由 gdk2006 于 2008-8-11 13:27 编辑 [/it]]