Include fil der ikke virker
i http://www.capitolshop.dk/about_us.asp forsøger jeg at hente http://www.capitolshop.dk/featured_product2.asp, men som man kan se melder den fejl. pls helpfeatured_product2.asp:
<%
Dim random_product__MMColParam
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
random_product.Move(int(random_product.RecordCount * rnd()))
'Response.write random_product("IDproduct")
end if
%>
<html>
<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"><img src="/images/product/<%=(random_product.Fields.Item("ImageName").Value)%>" width="156"></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"><img src="/images/brand/<%=(random_product.Fields.Item("Brand").Value)%>.*" width="15" height="15"></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)%>" class="productPrice"><strong><font color="#DB2222">Check
out product</font></strong></a></td>
</tr>
<tr>
<td class="productPrice"> </td>
</tr>
</table>
<%
random_product.Close()
Set random_product = Nothing
%>
