Vis fra en tabel med kriterier fra en anden (Access)

Hej.

Jeg skal have mit script til at lave en tabel og hvalpens vægt, når man vælger at se info på en bestemt hvalp. jeg har en tabel der hedder Hvalp og en der hedder vaegt.

Problemet er at den kun skal vise Hvalp A's vægt skema når man er inde under hvalp A, og alstå ikke have hvalp B, C & D med også.

Aner helt ærligt ikke hvordan man gør det?

Men i kan jo lige kigge på mit rod af et script engang.

----------------SCRIPT---------------------

<%
case "detalje"
%>

<div align="center">

  <table width="83%" border="0" cellspacing="5" cellpadding="0">
    <tr>
      <td colspan="3"><img src="logo.jpg" width="878" height="138" border="1"></td>
    </tr>
    <tr>
      <td width="16%" valign="top"><!-- #include file="menu.inc" --></td>
      <td width="63%" valign="top"><table id="table3" width="100%" border="0" cellpadding="5" cellspacing="0">
          <tr>
         
            <td valign="top" bgcolor="#C6C6FF">
              <p>
              <table width="80%">
             
</table>
<%
set conn = server.CreateObject("ADODB.connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)};"
DSN = DSN & "DBQ=" & server.MapPath("admin/dzonen.mdb")
conn.open DSN

strSQL = "SELECT * FORM hvalp WHERE Id=" & request.querystring("Id")

set rs = Conn.Execute("Select * from hvalp where Id=" & request("Id"))
%>
<b><% = rs("navn") %> - <% = rs("kuld") %></b><br><br>
<img src="admin/upload/<% = rs("billed") %>" border="1"><br><br><% = rs("info") %>

  <p>&nbsp;</p>
<p align="center"><a href="vishvalp.asp?kuld=<% = rs("kuld") %>" target="_self"><b>Tilbage</b></a> </p>

<%
conn.close
set conn = nothing
%>
<table width="80%" cellpadding="2">
<%
set conn = server.CreateObject("ADODB.connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)};"
DSN = DSN & "DBQ=" & server.MapPath("admin/dzonen.mdb")
conn.open DSN

strSQL = "SELECT * FORM vaegt.hvalp WHERE hvalp=" & request.querystring("Id")

set rs1 = Conn.Execute("Select * from vaegt where vaegt.hvalp= 'hvalp.navn'" )

Do While not rs1.EOF
intVagt = rs1("vaegt")
strDato = rs1("dato")

if blnBGColor = True Then
    strBGColor = "#99CCFF"
    blnBGColor = False
Else
    strBGColor = "#99CCFF"
    blnBGColor = False
End If

    strVis = strVis & "<tr bgcolor="""& strBGColor &"""><td>"& intVagt &"</td><td>" & strDato &"</td></tr>"
    rs1.movenext
    loop   
response.write (strVis)


conn.close
set conn = nothing
%>
</table>

-------------------------SLUT------------------

Satser max point da det haster :(