Scriptet vil ikke gemme i DB

Spm. har tidligere været oppe; http://www.eksperten.dk/spm/617070 men har endnu ikke fået en løsning på det, så prøver med et nyt, men flere points.

Hele scriptet ser således ud, og mit problem er når der er registreringer i db som er dubletter, denne vil jeg have fjernet, og som jeg kan se det er det denne linie:

Else
    Response.Redirect "admin.asp?action=inne&catId=" & Kat & "&mess=exist&name=" & RS("kat")
  End If

men når jeg gør det smider den intet i db, og men redirecter kun

<---- SCRIPTET ER HER UNDER ---->

<!--#Include file="inc/settings.asp"-->

<%If Session("LinkAdminIn") <> Secure Then
  Response.Redirect "admin.asp"
Else%>

<%If Request.QueryString("do") = "addlink" Then
  Namn = Fixa(Request.Form("namn"))
  Url  = Request.Form("url")
  Info = Fixa(Request.Form("info"))
  Kat  = Request.Form("kat")
  Resultat  = Request.Form("resultat")
  Gruppe  = Request.Form("gruppe")
  Hcp  = Request.Form("hcp")

  Set RS=Conn.Execute("Select * From url Where url='" & Url & "'")
  If RS.EOF Then
Conn.Execute("Insert Into url(namn,url,gruppe,hcp,resultat,info,kat) Values('" & Namn & "','" & Url & "','" & Gruppe & "','" & Hcp & "','" & Info & "','" & Resultat & "'," & Kat & ")")
    Response.Redirect "admin.asp?action=inne&catId=" & Kat
  Else
    Response.Redirect "admin.asp?action=inne&catId=" & Kat & "&mess=exist&name=" & RS("kat")
  End If

ElseIf Request.QueryString("do") = "addkat" Then
  Kat      = Fixa(Request.Form("namn"))
  Sub_kat  = Request.Form("kat")

  Set RS=Conn.Execute("Select * From kat Where kat='" & kat & "'")
  If RS.EOF Then
    Conn.Execute("Insert Into kat(kat,sub_kat) Values('" & Kat & "'," & Sub_kat & ")")
    If Sub_kat <> 0 Then
      Response.Redirect "admin.asp?action=inne&catId=" & Sub_kat
    Else
      Response.Redirect "admin.asp?action=inne"
    End If
  Else
    If Sub_kat <> 0 Then
      Response.Redirect "admin.asp?action=inne&catId=" & Sub_kat & "&mess=exist&name=" & RS("kat")
    Else
      Response.Redirect "admin.asp?action=inne&mess=exist&name=" & RS("kat")
    End If
  End If

ElseIf Request.QueryString("do") = "changelink" Then
  Namn = Fixa(Request.Form("namn"))
  Url  = Request.Form("url")
  Info = Fixa(Request.Form("info"))
  Kat  = Request.Form("kat")
  Resultat  = Request.Form("resultat")
  Gruppe  = Request.Form("gruppe")
  Hcp  = Request.Form("hcp")

Conn.Execute("Update url Set namn='" & Namn & "',url='" & Url & "',info='" & Info & "',gruppe='" & Gruppe & "',hcp='" & Hcp & "',resultat='" & Resultat & "',kat=" & Kat & " Where id=" & Request.QueryString("id"))
  Response.Redirect "admin.asp?action=inne&catId=" & Request.Form("kat")

ElseIf Request.QueryString("do") = "changekat" Then
  Kat      = Fixa(Request.Form("namn"))
  Sub_kat  = Request.Form("kat")

  Conn.Execute("Update kat Set kat='" & Kat & "',sub_kat='" & Sub_kat & "' Where id=" & Request.QueryString("id"))
  If Sub_kat <> 0 Then
    Response.Redirect "admin.asp?action=inne&catId=" & Sub_kat
  Else
    Response.Redirect "admin.asp?action=inne"
  End If

End If

Conn.Close
Set Conn=Nothing

End If%>