Hente udvalgte data ved at opsætte kriterier

Jeg har et script, hvor jeg gerne vil hente overskrift'er på indlæg som de forskellige bruger har skrevet. Som mit script er nu, så henter den alle indlæg ind på profil.asp uanset user_id. Jeg vil kun have de indlæg ind der tilknyttes den enkelte bruger. Fx hvis der er en bruger, der har user_id 11 skal der kun vises indlæg fra user_id 11 osv. Er der en, der kan hjælpe mig med at få det til at virke :o)

DB'en
Users: user_id user_name user_email user_password user_created
Dagbog: Id bruger_id dato tekst overskrift ViewCounter

default.asp
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("dagbog.mdb")
Conn.Open DSN

strSQL = "Select * From users Order by user_id ASC"
Set rs = Conn.Execute(strSQL)

Do

Response.Write "<center><table BORDER=0 CELLSPACING=0 COLS=1 WIDTH='200'>"
Response.Write "<tr>"
Response.Write "<a href=""profil.asp?user_id="&rs("user_id")&""">"& rs("user_name") & "</a>"
Response.Write "</TD>"
Response.Write "</TR>"
Response.Write "</TABLE>"
rs.MoveNext
Loop While Not rs.EOF
----------------------
profil.asp
<%
' Sikrer mod SQL injection
If isNumeric(Request.QueryString("bruger_id")) Then

' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("dagbog.mdb")
Conn.Open DSN

' SQL forespørgsel

strSQL = "Select * from dagbog WHERE bruger_id = bruger_id"
' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)
    Do While Not rs.EOF

  ' Udskriv værdien af kolonnen Fornavn
Response.Write "<a href=""visdagbog.asp?bruger_id="&rs("bruger_id")&""">"& rs("overskrift") & "</a><br>"

' Løber posterne i gennem
    rs.MoveNext
    Loop
   
    ' Lukker forbindelse
    Conn.Close
    Set Conn = Nothing
%>