dynamiske kategori i select bokse

select boksene har jeg styr på hvordan jeg laver dynamiske så de  ændre sig efter databasen men jeg kan ikke få dem til at ændre sig efter hvad der er blevet valgt i boksen før.
her er koden til mine bokse
database kaldet er bare til en database hvor alle mine posts er på

if (database2(i).name = ("Kategori1") OR database2(i).name = ("Kategori2") OR database2(i).name = ("Kategori3") then
            if database2(i).name = ("Kategori1") then
                Response.write "<tr><td><div align='right'>" & str & " : </td><td><select name='Kategori1' size='1'>"
                Response.write "<option value='" & EAkonvert(database("Kategori1")) & "'>" & EAkonvert(database("Kategori1")) & "</option>"
                strSQL = "SELECT DISTINCT " & database2(i).name & " FROM posts"
                set database3 = con.execute(strSQL)
                while not database3.eof
                  response.write "<option value='" & EAkonvert(database3("Kategori1")) & "'>" & EAkonvert(database3("Kategori1")) & "</option>" & vbcrlf
                  database3.movenext
                wend
                session(database2(i).name) = request.form(database2(i).name)
                Response.write " Ny titel : <INPUT NAME='Kategori1og2del' TYPE='text'></select></td></tr>"
            end if
            if database2(i).name = ("Kategori2") then
                Response.write "<tr><td><div align='right'>" & str & " : </td><td><select name='Kategori2' size='1'>"
                Response.write "<option value='" & EAkonvert(database("Kategori2")) & "'>" & EAkonvert(database("Kategori2")) & "</option>"
                strSQL = "SELECT DISTINCT " & database2(i).name & " FROM posts"
                set database3 = con.execute(strSQL)
                while not database3.eof
                  response.write "<option value='" & EAkonvert(database3("Kategori2")) & "'>" & EAkonvert(database3("Kategori2")) & "</option>" & vbcrlf
                  database3.movenext
                wend
                session(database2(i).name) = request.form(database2(i).name)
                Response.write " Ny titel : <INPUT NAME='Kategori2og2del' TYPE='text'></select></td></tr>"
            end if
            if database2(i).name = ("Kategori3") then
                Response.write "<tr><td><div align='right'>" & str & " : </td><td><select name='Kategori3' size='1'>"
                Response.write "<option value='" & EAkonvert(database("Kategori3")) & "'>" & EAkonvert(database("Kategori3")) & "</option>"
                strSQL = "SELECT DISTINCT " & database2(i).name & " FROM posts"
                set database3 = con.execute(strSQL)
                while not database3.eof
                  response.write "<option value='" & EAkonvert(database3("Kategori3")) & "'>" & EAkonvert(database3("Kategori3")) & "</option>" & vbcrlf
                  database3.movenext
                wend
                session(database2(i).name) = request.form(database2(i).name)
                Response.write " Ny titel : <INPUT NAME='Kategori3og2del' TYPE='text'></select></td></tr>"
            end if

jeg lukker dette spørgsmål da der ikke ser ud til at være nogen der kan hjælpe med det