Random record

hvad er der galt med koden. jeg prøver at trække en random record ud af DBen.

Prøv i førte omgang at rette det til dette hvor Response.write efter The er flyttet ned:
Samt lavet om i koden for at finde random recorden.

<%
Set random_product = Server.CreateObject("ADODB.Recordset")
random_product.Open "SELECT * FROM product WHERE Active = '" + Replace (random_product__MMColParam, "'", "''") + "'", MM_capitol_STRING, 1, 3
If random_product.BOF or random_product.EOF Then
  Response.write "Ingen poster"
else
randomize
randomNr = Int(random_product.RecordCount * rnd())
random_product.Move(randomNr)
Response.Write random_product("IDproduct")
end if
%>

det virker ikke, her er hele koden:

<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/capitol.asp" -->
<%
Dim random_product__MMColParam
Dim random_product__MMColParam = "Y"
If (Request("MM_EmptyValue") <> "") Then random_product__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Set random_product = Server.CreateObject("ADODB.Recordset")
random_product.Open "SELECT * FROM product WHERE Active = '" + Replace (random_product__MMColParam, "'", "''") + "'", MM_capitol_STRING, 1, 3
If random_product.BOF or random_product.EOF Then
  Response.write "Ingen poster"
else
randomize
randomNr = Int(random_product.RecordCount * rnd())
random_product.Move(randomNr)
Response.Write random_product("IDproduct")
end if
%>
<html>
<head>
<title>Capitolshop</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="/capitol.css" rel="stylesheet" type="text/css">
</head>
<body>
<table width="90%" border="0" cellpadding="5">
  <tr>
    <td class="menuHead"> Featured Product</td>
  </tr>
  <tr>
    <td> <table width="100%" border="0">
        <tr>
          <td colspan="2" class="productBrand"><div align="center"><a href="/product.asp?IDproduct=<%=(random_product.Fields.Item("IDproduct").Value)%>" target="_parent"><img src="/images/product/<%=(random_product.Fields.Item("ImageName").Value)%>" width="156" border="0"></a></div></td>
        </tr>
        <tr>
          <td colspan="2" class="productBrand" height="10"></td>
        </tr>
        <tr>
          <td class="productBrand"><%=(random_product.Fields.Item("Brand").Value)%>
          </td>
          <td class="productName"><div align="center"></div></td>
        </tr>
        <tr>
          <td height="16" colspan="2" class="productName"> <%=(random_product.Fields.Item("ProductName").Value)%>
          </td>
        </tr>
        <tr>
          <td class="productName"><%=(random_product.Fields.Item("Colour").Value)%></td>
          <td class="productName"><%=(random_product.Fields.Item("Sex").Value)%></td>
        </tr>
        <tr>
          <td colspan="2" class="productPrice"><%=(random_product.Fields.Item("Price").Value)%>,00
            DKK</td>
        </tr>
        <tr>
          <td colspan="2" class="productPrice" height="10"></td>
        </tr>
      </table></td>
  </tr>
  <tr>
    <td class="productPrice"><a href="/product.asp?IDproduct=<%=(random_product.Fields.Item("IDproduct").Value)%>" target="_parent" class="productPrice"><strong><font color="#DB2222">Check
      out product</font></strong></a></td>
  </tr>
  <tr>
    <td class="productPrice">&nbsp;</td>
  </tr>
</table>
</body>
</html>
<%
random_product.Close()
Set random_product = Nothing
%>

link: http://www.capitolshop.dk/dk_featured_product.asp

det virker - tak Eagle :)