浏览产品的超链接问题？

我把浏览过的产品放在Session中，代码如下：   
      <%     
  ProductID   =   Request.QueryString("ProductID")   
  strSQL   =   "SELECT   *   FROM   Products   WHERE   ProductID="   &   ProductID     
  Set   rs   =   SetDBRs(strConn,   strSQL,   "R")      
      dim   prodcut     
      prodcut   =   Session("shop")   
      if   instr(prodcut,rs("ProductName"))   =   0   then     
  prodcut=prodcut   &   rs("ProductID")   &   ","   
              prodcut   =   prodcut   &   rs("ProductName")   &   ","   
              Session("shop")   =   prodcut   
      end   if     
   
        %>   
  在读取出来的时候，利用如下代码：   
  <%      
        sp=split(Session("shop"),",")   
  for   i=Ubound(sp)   to   Lbound(sp)   step   -1   
  Response.Write   "<table   width=188   border=0   cellspacing=0   cellpadding=0><tr><td   height=18><a   href=Details.asp?ProductID=???>"   &   sp(i)   &   "</a></td></tr></table>"   
  Next     
  %>   
  <a   href=Details.asp?ProductID后面的值应该怎么样去写才正确呢？谢谢！