Overføre værdi fra Querystring til 'new window'

Hej, jeg har en side (default.asp) deri har jeg en kode som læser fra databasen, henter id og laver et link til et pop-up vindue som hedder (profil_visning.asp)

Koden virker fint, bortset fra, i det nye vindue (profil_visning.asp) vil jeg gerne have overført mit 'id'

Det eneste jeg får overført er: "profil_visning.asp?id="
der mangler altså id'ets nummer.

Jeg har prøvet at vende og dreje koden, men kan simpelthen ikke se hvordan det skal skrives, men her er min kode. håber der nogen der kan hjælpe mig :0)

---------------------------------------

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

' Hent fra databasen afhængig af værdien id fra URL
strSQL = "Select * From profil Order by p_navn Desc"
Set rs = Conn.Execute(strSQL)





'Så beder vi om at få udskrevet alle records læst fra databasen, så længe der stadig er data tilbage.
i = 1
Do
response.write "<Script Language='JavaScript'>"
response.write "function load" & rs("id") & "()" & "{"
response.write "var load = window.open('profil_visning.asp?id=','','scrollbars=no,menubar=no,height=600,width=600,resizable=no,toolbar=no,location=no,status=no');"
response.write "}"
response.write "</script>"

  ' Personens navn
  strNavn = rs("p_navn")

  ' lav et link til person.asp med Id-værdien i URL
    strLink = "<a href='java script:load" & rs("id") & "()" & "'>" & strNavn & "</a>"

  ' Liste med links
 
  Response.write "<td width='14%' height='92' style='border-style: dotted; border-width: 0'>"
  Response.write "<p align='center'>"
  Response.write "<img border='0' src='" & rs("p_billede") & "' width='65' height='85'><br>"
  Response.write "<font face='Verdana' size='1' color='#FFFFFF'>" & strLink &"</font></td>"
 
 
  'Response.Write "<h2>" & strLink & "</h2>"
  'Gå til den næste record for at få den udskrevet.
  rs.MoveNext
  i = i+1
'Sålænge der ikke er slut på data skal vi gå tilbage til Do og udskrive den næste record.
Loop While Not rs.EOF and i<8

Conn.Close
Set Conn = Nothing
%>