Link fra databasen

her er min kode indtil videre:
<%
' Databaseforbindelse
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("../database/hbk.mdb")
Conn.Open DSN

' SQL forespørgsel
strSQL = "Select * From Undermenu Where under = 'Request.Querystring("under")' "
' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)

' Gennemløb Recordset (rs) med en løkke
Do

  ' Udskriv værdien af kolonnen Undermenu
  Response.Write rs("Undermenu") & "<br>"

  ' Gå til næste Record i rs
  rs.MoveNext

' Fortsæt indtil rs er gennemløbet
Loop While Not rs.EOF

Conn.Close
Set Conn = Nothing
%>

Er det det her du er ude efter?

<%
' Databaseforbindelse
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("../database/hbk.mdb")
Conn.Open DSN

' SQL forespørgsel
strSQL = "Select * From Undermenu Where under = 'Request.Querystring("under")' "
' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)

' Gennemløb Recordset (rs) med en løkke
Do

  ' Udskriv værdien af kolonnen Undermenu
  Response.Write "<a href='" & rs("Url") & "'>" & rs("Undermenu") & "</a><br>"

  ' Gå til næste Record i rs
  rs.MoveNext

' Fortsæt indtil rs er gennemløbet
Loop While Not rs.EOF

Conn.Close
Set Conn = Nothing
%>

Noget i stil med:

' Udskriv værdien af kolonnen Undermenu
Response.Write "<a href="" & rs("url") &"">" & rs("Undermenu")&"</A><br>"

/Goose

det ser ganske fornuftigt ud..
men jeg kan ikke få det til at virke..
er denne korrekt: strSQL = "Select * From Undermenu Where under = 'Request.Querystring("under")' "

når jeg kalder linket med: afdeling.asp?under=Afdeling

Har du et felt i din database der hedder "under" ?

ja.. det glemte jeg at sige.. det fortæller hvilken kategori undermenuen ligger under.. i dette eksempel skal den hedde Afdeling

Så skulle der ikke være nogen fejl i det SQL udtræk du laver... Hvilken fejl får du?

siden kan ikke vises

strSQL = "Select * From Undermenu Where under = ' " & Request.Querystring("under") & "'"

midre detalje:
strSQL = "Select * From Undermenu Where under = '" & Request.Querystring("under") & "'"

ved ikke om et mellemrum goer den store forskel ;)

Gå op i funktioner -> Indstillinger -> Fanebladet avanceret -> I bunden af punktet "Gennemsyn" finder du "Vis meddelelser om uskadelige HTTP-fejl" -> Fjern hakket i denne


Når du har gjort det, så genindlæs siden, så får du en mere udførlig beskrivelse af fejlen...

den er allerde krydset af..

Ja selvfølgelig, hvor blind har man lov til at være... Kig på det soes har skrevet, det er selvfølgelig deri fejlen er... :-)

hmm det virker heller ikke med soes rettelse..
tjek det her: http://www.mount.dk/hbk2/www/index.asp

Din kode skal dermed se således ud:

<%
' Databaseforbindelse
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("../database/hbk.mdb")
Conn.Open DSN

' SQL forespørgsel
strSQL = "Select * From Undermenu Where under = '" & Request.Querystring("under") & "'"

' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)

' Gennemløb Recordset (rs) med en løkke
Do

  ' Udskriv værdien af kolonnen Undermenu
  Response.Write "<a href='" & rs("Url") & "'>" & rs("Undermenu") & "</a><br>"

  ' Gå til næste Record i rs
  rs.MoveNext

' Fortsæt indtil rs er gennemløbet
Loop While Not rs.EOF

Conn.Close
Set Conn = Nothing
%>

Brug den kode jeg har skrevet, det er fordi Goose har lavet en fejl i det han har skrevet

sådan nu virker det sgu :)
har bare lidt problemer med mine links .. prøv at holde musen henover.. og tjek hvad de linker til. det skulle kun være blablabla/ungdom.asp

det fandt jeg selv ud af .. mange mange tak for hjælpen!!