Det virker ikke

Jeg har denne kode til min side
------------------------------
<% If varekatalog.Fields.Item("Billede").Value <> "" Then %>
                          <a href="java script:;" onClick="MM_openBrWindow('../tommy3/tommy3_billedeviser.asp','Toke','scrollbars=yes,width=450,height=330')"><img src="<%=(varekatalog.Fields.Item("Billede").Value)%>" alt="<%=(varekatalog.Fields.Item("Billedetekst").Value)%>" border="0" align="right"></a>
                          <%  Else %> <img src="../gfx/fotopaavej.jpg" border="0" align="right">
                          <% End If %>
------------------------
Det der er problemet, er at det nye vindue, der skal komme frem, ikke får den rigtige Quest.queryString over til den side som skal vise et stort billede.
Her er SQL koden til vinduet som skal vise det store billede.
---------------------
<%
Dim rsBilledeviser__MMColParam
rsBilledeviser__MMColParam = "0"
If (Request.QueryString("VareID")  <> "") Then
  rsBilledeviser__MMColParam = Request.QueryString("VareID")
End If
%>
<%
Dim rsBilledeviser
Dim rsBilledeviser_numRows

Set rsBilledeviser = Server.CreateObject("ADODB.Recordset")
rsBilledeviser.ActiveConnection = MM_tommy_STRING
rsBilledeviser.Source = "SELECT *  FROM Vare  WHERE VareID = " + Replace(rsBilledeviser__MMColParam, "'", "''") + ""
rsBilledeviser.CursorType = 0
rsBilledeviser.CursorLocation = 2
rsBilledeviser.LockType = 1
rsBilledeviser.Open()

rsBilledeviser_numRows = 0
%>
---------------
Håber på, at i kan hjælpe mig