Vis enkelt brugers profil!!

Jeg er ved at lave en side til en biograf og vil under siden der viser operatørerne, gerne lave en pop up side der kan vise den brugers profil man vælger..
Jeg har fået lavet selve operatør siden men det er når jeg vælger dem jeg får problemet.. Det er nemlig kun mine egne informationer jeg kan se..

Her er hvad jeg har lavet indtil videre:
Siden hvor operatørene dukker op med navn og link til at åbne pop uppen:
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("_database12/brugere.mdb")
Conn.Open DSN
Dim samletAntal
Response.Write "<b>Operatører:</b><br>"
Response.Write "<hr size='1' #8A8F95>"
strSQL = "SELECT * FROM brugere ORDER BY id"
Set rs = Conn.Execute(strSQL)
If Not rs.EOF Then
Do
Response.Write "<table width='100%'>"
Response.Write "<tr>"
Response.Write "<td width='50%'><b>" & rs("navn") & ":</b>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</td>"
Response.Write "<td width='50%'><a href=java script:openWin('profil.asp?id=" & rs("id") & "','profile','toolbar=0,location=0,status=0,menubar=0,scrollbars=1,resizable=1,width=400,height=200') class='tekst'>Se Profil</a></td>"
Response.Write "</tr>"
Response.Write "</table>"

  Response.Write "<hr size='1' #8A8F95>"

  rs.MoveNext

Loop While Not rs.EOF

End If

Conn.Close
Set Conn = Nothing
%>
Og så kommer pop up siden med den brugers profil jeg vil vise:
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("_database12/brugere.mdb")
Conn.Open DSN
Response.Write "<b>Operatører:</b><br>"
Response.Write "<hr size='1' #8A8F95>"
strSQL = "SELECT brugere.* "
strSQL = strSQL & "FROM brugere "
strSQL = strSQL & "ORDER by id"
Set rs = Conn.Execute(strSQL)

Response.Write "<table width='350'>"
Response.Write "<tr>"
Response.Write "<td width='20%'><u>Adresse:</u></td>"
Response.Write "<td width='80%'>" & rs("adresse") & "</td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width='20%'><u>Postnr/By:</u></td>"
Response.Write "<td width='80%'>" & rs("postnummer") & "&nbsp;" & rs("by") & "</td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width='20%'><u>Telefon:</u></td>"
Response.Write "<td width='80%'>" & rs("telefon") & "</td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width='20%'><u>Mobil:</u></td>"
Response.Write "<td width='80%'>" & rs("mobil") & "</td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width='20%'><u>E-Mail:</u></td>"
Response.Write "<td width='80%'><a href=mailto:" & rs("email") & " target=_blank>" & rs("email") & "</a></td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width='20%'><u>Hjemmeside:</u></td>"
Response.Write "<td width='80%'><a href=" & rs("Hjemmeside") & " target=_blank>" & rs("Hjemmeside") & "</a></td>"
Response.Write "</tr>"
Response.Write "</table>"
Conn.Close
Set Conn = Nothing
%>
Det er sikkert simpelt men jeg er desværre ikke hardcore til asp endnu ;-)