Return andet en listbox-indhold

Hej

Jeg kæmper lidt med noget remote scripting, men er ingen javascript-ørn og har svært ved at løse denne...

Jeg har en funktion, som i et andet script virker fint og returnerer indholdet til et listbox/select.

Nu vil jeg have en anden funktion næsten magen til, der returnerer indholdet til et input-felt.

Jeg ved bare ikke, hvordan jeg gør...

Her er funktionen, der udfylder en select/listbox:

function RemoteScriptListBox(lbname,SQL)
dim comma,x,conn,rx,col1,col2
dim ret

    set conn=server.CreateObject("ADODB.Connection")
    myconn = "DRIVER={SQL Server};SERVER=xxx;UID=xxx;pwd=xxx; DATABASE=xxx;"
    conn.open myconn

    comma=""
    x=0

    ret = ret & "var lb=" & lbname & ";"

    '--create remote array
    ret = ret & "var _o0=new Array("
    Set rx = conn.Execute(SQL)
    do while not rx.eof

        col1=rx(0)
       
        MyVar = rx(1)
        if len(MyVar) = 1 then
            MyVar = "000" & MyVar
        Elseif len(MyVar) = 2 then
            MyVar = "00" & MyVar
        Elseif len(MyVar) = 3 then
            MyVar = "0" & MyVar
        End if

       
        col2=trim(cstr(MyVar & " - " & rx(2)))

        ret = ret & comma & jq(col2) & "," & jq(col1)
        comma=","

        x=x+1
        rx.movenext
    loop
    rx.close
    conn.close
    ret = ret & ");"

    'instruct javascript to populate the listbox
    ret = ret & "lb.length=0;"
    ret = ret & "var x=0;"
    ret = ret & "while (x != _o0.length) {"
    ret = ret & "lb.options[lb.length] = new Option(_o0[x],_o0[x+1]);"
    ret = ret & "x=x+2;}"

    RemoteScriptListBox = ret
End function

Kan nogen hjælpe mig ?