Select

Har denna kod när man lägger till ny artikel:
Här ladas sidan om och väljer rätt alternativ som finns under det man valt som Huvudkategori!

<tr>
    <td width="165"><b>Huvudkategori: </b><br>
        <select name="typ" onChange="self.location.href=this.options[this.selectedIndex].value;" style="width: 159">
         <option value="">-- Välj --
          <%Set UIDES = Conn.Execute("SELECT * From kategori Where id <> ''") 
          Do Until UIDES.EOF
            If Request.QueryString("typ") <> "" Then%>
              <option value="<%=UIDES("namn")%>" <%If Request.QueryString("typ") = UIDES("namn") Then Response.Write " selected"%>><%=UIDES("namn")%><br>
            <%Else%>
              <option value="upload.asp?visa=spara&typ=<%=UIDES("namn")%>"><%=UIDES("namn")%><br>
            <%End If
          UIDES.MoveNext 
          Loop 
          UIDES.Close%>
        </select>
    </td>
    <td width="235"><b>Underkategori: </b><br>
        <select name="kat" style="width: 159">
          <option value="">-- Välj --
          <%If Request.QueryString("typ") <> "" Then
            Set RS=Conn.Execute("Select * From kategori Where uid='" & LCase(Request.QueryString("typ")) & "' Order By namn")
            Do Until RS.EOF%>
                 <option value="<%=RS("namn")%>"><%=RS("namn")%><br>
            <%RS.MoveNext
            Loop
            RS.Close
            Set RS = Nothing
            End If%>
        </select> 
    </td>
  </tr>

Och denna när man ska ändra:

<%Set RecSet = Conn.Execute("Select * From artiklar Where id=" & Request.QueryString("id"))%>

<table width="100%" border="0" align="center">
  <form action="admin.asp?do=inne&action=andratart&id=<%=RecSet("id")%>" method="post"  name="andraart" onSubmit="return artikelandra()">
  <tr>
    <td width="165"><b>Huvudkategori: </b><br>
        <select name="typ" style="width: 140">
          <option value="">-- Välj --
          <%Set UIDES = Conn.Execute("SELECT * From kategori Where id <> '' Order By namn") 

          Do Until UIDES.EOF%>
               <option value="<%=UIDES("namn")%>" <%If RecSet("typ") = UIDES("id") Then Response.Write " SELECTED"%>><%=UIDES("namn")%><br>
          <%UIDES.MoveNext 
          Loop%>
        </select>
    </td>
    <td width="235"><b>Underkategori: </b><br>
        <select name="kat" style="width: 140">
          <option value="">-- Välj --
          <%Set RS=Conn.Execute("Select * From kategori Where uid='" & RecSet("typ") & "' Order By namn")

            Do Until RS.EOF%>
               <option value="<%=RS("namn")%>" <%If RecSet("kat") = RS("namn") Then Response.Write " SELECTED"%>><%=RS("namn")%><br>
          <%RS.MoveNext
            Loop%>
        </select> 
    </td>
  </tr>

Nu till problemet! Jag får inte till det när jag ska ändra artikel! Har provat med att göra liknande som när man lägger till artikel men utan framsteg!

Hoppas nån kan hjälpa mig!

Jag strurnar i det med javascript om nån kan hjälpa mig med detta!