Kataegori

fjern rs( et sted:

response.write "<a href=""link.asp?kat_id="" & rs("kat_id") & """>" & rs("kat_navn")& "</a>"

og mere endnu...

response.write "<a href=""link.asp?kat_id=" & rs("kat_id") & """>" & rs("kat_navn")& "</a>")

du har et citationstegn for meget efter kat_id=

Nope... stadig ikke en løsning

<% option explicit
dim strpath, strDSN, cn, rs, strSQL
%>

<html><head></head><body><table><tr><td>

<%
'*** Åbne connection
strPath = server.Mappath("Links.mdb")
strDSN = "provider = microsoft.jet.OLEDB.4.0; Data Source =" & strPath
set cn = server.createobject("ADODB.Connection")
cn.open strDSN

'***Åbne recordset
strSQL = "SELECT * kategorinavn.kat_id, kategorinavn.kat_navn FROM kategorinavn;"
Set rs = cn.Execute(strSQL)
Do While Not rs.EOF
response.write "<table><tr><td bgcolor=#444444>Her ser du et link</td></tr><tr><td>"
response.write rs("<a href=""link.asp?kat_id="" & rs('kat_id') & """>" & rs('kat_navn')")
response.write "</a></td></tr></table>"

rs.MoveNext
Loop
%>

<%
'***Husk at lukke connectionen til sidst.
cn .Close
Set cn = Nothing
%>

---------------------------------------------------------------------------
  ^
  /|\
  |
Nuværende standpunkt
---------------------------------------------------------------------------
kat_id = request.querystring("kat_id")
stringSQL  = "SELECT programering.id, programering.link, programering.beskrivelse, kategorinavn.kat_id, kategorinavn.kat_navn
FROM kategorinavn INNER JOIN (programering INNER JOIN kategori ON programering.id = kategori.id) ON kategorinavn.kat_id = kategori.kat_id
WHERE (((kategorinavn.kat_id)=" & kat_id & "));"
---------------------------------------------------------------------------
  ^
/|\
  |
Access egen SQL sreng for det jeg vil....

Kan ikke lide den her:

strSQL = "SELECT * kategorinavn.kat_id, kategorinavn.kat_navn FROM kategorinavn;"

Problem Løst... BY MY SELF

----------------->>>>>>>>>

<% option explicit
dim strpath, strDSN, cn, rs, strSQL, kat_id
%>

<html><head></head><body><table><tr><td>

<%
'*** Åbne connection
strPath = server.Mappath("Links.mdb")
strDSN = "provider = microsoft.jet.OLEDB.4.0; Data Source =" & strPath
set cn = server.createobject("ADODB.Connection")
cn.open strDSN

kat_id = Request.QueryString("kat_id")

'*** Åbne recordset
strSQL = "SELECT programering.id, programering.link, programering.beskrivelse, kategorinavn.kat_id, kategorinavn.kat_navn

FROM kategorinavn INNER JOIN (programering INNER JOIN kategori ON programering.id = kategori.id) ON kategorinavn.kat_id =

kategori.kat_id WHERE (((kategorinavn.kat_id)=" & kat_id & "));"

Set rs = cn.Execute(strSQL)
Do While Not rs.EOF

'*** Til Debug
'** response.write "debug"
'** response.end

'*** Udskrive Data
response.write "<table><tr><td bgcolor=#FFFFDD>Her ser du et link</td></tr><tr><td bgcolor=#FFFFDD>"
response.write rs("Link")
response.write rs("Beskrivelse")
response.write rs("kat_navn")
Response.write rs("kat_id")
'*** response.write rs("<a href=""link.asp?kat_id="" & rs('kat_id') & """>" & rs('kat_navn')")
response.write "</td></tr></table>"

rs.MoveNext
Loop
%>

<%
'***Husk at lukke connectionen til sidst.
cn.Close
Set cn = Nothing
set kat_id = Nothing
%>

</td></tr></table>
<a href="link.asp?kat_id=">all</a>
<a href="link.asp?kat_id=1">HTML</a>
<a href="link.asp?kat_id=2">2</a>
<a href="link.asp?kat_id=3">3</a>
<a href="link.asp?kat_id=4">4</a>
<a href="link.asp?kat_id=5">5</a>
<a href="link.asp?kat_id=6">6</a>
<a href="link.asp?kat_id=7">7</a>
<a href="link.asp?kat_id=8">8</a>
<a href="link.asp?kat_id=9">9</a>
</body></html>