talformat fra db

Jeg har følgende problem:

Jeg henter værdier ind i 2 selectmenuer fra en access-database…

Det som ligger i min tabel i databasen er følgende 2 kolonner:

Kolonne 1: select1ID

0001
0002
0003
0004
0010
0124
1234
osv. I samme format (4 tal)


Kolonne 2: select1navn

Kaj
Ole
Jens
Osv.

Altså et personalenummer til hvert navn.

Når jeg trækker ovenstående ud i mine 2 selectmenuer ændrer formatet sig for personalenummeret. Den sætter ikke nullerne foran tallet.

F.eks. bliver personalenummeret 0001 til 1.

Hvordan får jeg personalenummeret hevet ud i selectmenuen, så det bliver som formatet i databasen (altså bestående af 4 tal???

Nedenstående er koden som laver udtrækket fra databasen til selectmenuerne:

<select name="test1" onKeyUp="if(window.event.keyCode < 58 && window.event.keyCode > 47) findden(window.event.keyCode - 48)" onblur="strengen=''" onChange="finddenanden(this.selectedIndex)">

          <%
          CONST adOpenStatic = 3, adLockReadOnly = 1, adCmdText = &H0001
          Dim connectionString, CONN_USER, CONN_PASS
          Dim RecordSet
          Dim conn
          Dim strSQL
          Dim rs


          connectionString = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("fagcenter.mdb")
          set rs = server.CreateObject("ADODB.Recordset")
          set conn = server.CreateObject("ADODB.Connection")

          conn.Open connectionString, CONN_USER, CONN_PASS

          strSQL = "SELECT * FROM ting1"
          set rs = conn.Execute (strSQL)

          do while not rs.eof

          %>
          <option value="<%=rs(1)%>"><%=rs(0)%></option>
          <%
          rs.movenext
          loop
          %>
          </select>
          <select name="test2" onfocus="strengen=''" onchange="findden(this.value)">>
          <%
          rs.movefirst
          do while not rs.eof
          %>
          <option value="<%=rs(0)%>"><%=rs(1)%></option>
          <%
          rs.movenext
          loop
          %>



          rs.Close
          conn.close

          Set rs = Nothing
          Set conn = Nothing



          </select>


Nedenstående funktioner er oppe i scriptdelen:

strengen = "";
function findden(tal){
    strengen += tal;
    for (a=0;a<document.log.test1.all.length;a++){
        if (document.log.test1.all[a].innerText == strengen) document.log.test1.all[a].selected = true;
    }
    for (a=0;a<document.log.test2.all.length;a++){
        if (document.log.test2.all[a].value == strengen) document.log.test2.all[a].selected = true;
    }
}
function finddenanden(tal){
    document.log.test2.selectedIndex = tal;
}