Hvorfor smider den ikke data op i DB

Ved ikke om du har mere kode? Men du har i hvert fald to IF men kun en END IF
Prøv gøre sådan her
---
If RS.EOF Then
sql = "Insert Into url(namn,url,gruppe,hcp,resultat,info,kat) Values('" & Namn & "','" & Url & "','" & Gruppe & "','" & Hcp & "','" & Info & "','" & Resultat & "'," & Kat & ")"
response.write sql
Conn.Execute(sql)
'Response.Redirect "admin.asp?action=inne&catId=" & Kat
End If

--
Og så post hvad den skriver ud (husk udmarkere redirecten så du kan se udskriften )

Hele koden ser således ud med det er addlink, som ikke virker. Og jeg vil have slettet denne for jeg er ligeglad om det liggerdupletter i db.

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

<!--#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%>

Jeg er ikke helt med på dig..hmm
Du vil have slettet Addlink fordi du er ligeglad om der er dubletter?
Du skal vel have en Addlink for at man kan indsætte i databasen, da det er den eneste som indsætter. Hvis du er ligeglad med dubletter så ret følgende:
---
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
---
Til
---
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
---
Hvis den stadig ikke indsætter noget. Så lav det sådan her og fortæl hvad den udskriver
---
sql = "Insert Into url(namn,url,gruppe,hcp,resultat,info,kat) Values('" & Namn & "','" & Url & "','" & Gruppe & "','" & Hcp & "','" & Info & "','" & Resultat & "'," & Kat & ")"
response.write sql
Conn.Execute(sql)
'    Response.Redirect "admin.asp?action=inne&catId=" & Kat
  Else
    Response.Redirect "admin.asp?action=inne&catId=" & Kat & "&mess=exist&name=" & RS("kat")
  End If

denne tjekker for dubletter:

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

Har du prøvet rette det som jeg foreslog?..og evt udskrive sql ?

hej igen, nu vil jeg prøve at gå igang med denne :o) Vender tilbage når jeg får kigget den igennem....

/cdc

oki doki

Den skriver intet andet end at personen ligger i db og derfor ikke gemmes i db.
I min settings.asp har jeg denne:

If Request.QueryString("mess") = "exist" Then
    mess = "alert('Länken/kategorin " & Request.QueryString("name") & " fanns redan!');return true;"
End If
og i scriptet kan du se jeg har mange af disse :

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

Når jeg sletter denne fra settings.asp :
If Request.QueryString("mess") = "exist" Then
    mess = "alert('Länken/kategorin " & Request.QueryString("name") & " fanns redan!');return true;"
End If

kommer alert vinduet ikke op, men den smider stadig intet i db

/cdc

får det stadig ikke til at smide det op i db

har smidt lidt flere points i puljen for at få ordnet dette problem.....

.

laver et nyt spm.....