Dim SQLLinks, Links, KategoriNamn
SQLLinks = "SELECT * FROM tblLankar tl inner join tblKategori tk " & _
"on tk.kategoriid = tl.kategori " & _
" WHERE tl.Visas = 0 " & _
" order by tk.kategorinamn "
Set Links = Connect.Execute(SQLLinks)
KategoriNamn = ""
Do Until Links.EOF
If KategoriNamn <> Links("KategoriNamn") Then
KategoriNamn = Links("KategoriNamn")
Response.write KategoriNamn
Response.write "<a href=""Admin.asp?What=EditKat"">"
Response.write "Editera kategorin"
Response.write "</a>"
Response.write "<br>"
End If
Response.write "<p>"
Response.write "<a href=""" & Links("Adress") & """ target=""_blank"" alt=""" & Links("Beskrivning") & """>"
Response.write Links("Namn")
Response.write "</a>"
Response.write "<br>"
Response.write "<a href=""Admin.asp?What=Delete&ID=" & Links("ID") & """>"
Response.write "Ta bort"
Response.write "</a>"
Response.write "<br>"
Response.write "<a href=""Admin.asp?What=Show&ID=" & Links("ID") & """>"
Response.write "Visa länken"
Response.write "</a>"
response.write "</p>"
Links.movenext
Loop
Nu när jag ska använda mig utav Lars G otroligt perfekta kod :)
Så blir det lite problem när man ska ta ut unika ID:en...
ID:ena ifrån databasen kommer inte till rätt post.
Någon som kan rätta min kod? :)