Udskiv felter i tabel

Hej
Nu er jeg snart løbet godt surt i dette, er der nogen der kan hjælpe mig?

Jeg har en acces tabel kaldet metastrings- her er værdierne:
lang_id, som er numre fra 1-3 1=Dansk 2=Engelsk 3=Svensk
value, værdierne på de tre forskellige sprog
frasename, en fælles overskrift
page_id, side id

Nu skal jeg udskrive en tabel med værdierne page_id, frasename, value(dansk), value(engelsk), value(svensk).

Hvordan får jeg de forskellige values til at fremstå rigtigt i tabellen. Indtil videre får jeg kun den danske værdi frem 3 gange.
Her er min kode:

if request(\"page_id\")<>\"\" then
    dim nyside2

    set rs = conn.execute(\"select page_id, lang_id, fraseName, value from metastrings where page_id =\" & request(\"page_id\") & \" order by fraseName, lang_id\")
    tbl = tbl & \"<h2> metastrings</h2>\"
    tbl = tbl & \"<table border=\"\"1\"\"<tr><td>page_id</td><td>frasename</td><td>Dansk</td><td>Engelsk</td><td>Svensk</td></tr>\"

dim gl_page_id
dim gl_frasename
dim nyrow
nyrow = false

do until rs.eof



    if (gl_frasename <> rs(\"frasename\"))then
        nyrow = true
        gl_frasename = rs(\"frasename\")
        tbl = tbl & \"</tr><tr><td>\" & rs(\"page_id\") & \"</td><td>\" & rs(\"frasename\") & \"</td>\"
        tbl = tbl & \"<td>\" & trim(rs(\"value\")) & \"</td><td>\" & trim(rs(\"value\")) & \"</td><td>\" & trim(rs(\"value\")) & \"</td>\"
   
        rs.movenext
        nyrow = false

    end if
   
rs.movenext
nyrow = false   



loop
tbl = tbl & \"</table>\"
rs.close

end if