Jeg indsatte linien så toppen af siden å sådant ud:
<%@LANGUAGE="VBSCRIPT"%>
<% Session.LCID = 1033%>
men det hjalp ikke noget.
Da siden "kun" indeholder ca. 250 linier har jeg kopieret ind her, måske kan du se hvad der er galt.
Linierne som omhandler det med beløb af omkring 200 og frem.
<%@LANGUAGE="VBSCRIPT"%>
<% Session.LCID = 1033%>
<%
Dim CurrentPage
CurrentPage = "Products.asp"
%>
<!--#include file="Connections/Cart.asp" -->
<!--#include file="Include/Shopinfo.asp" -->
<!--#include file="Menuinc.asp" -->
<!--#include file="Newsinc.asp" -->
<%
Dim rsSubcat__prmSubcategoryID
rsSubcat__prmSubcategoryID = "0"
if (Request.QueryString("SubcategoryID") <> "") then rsSubcat__prmSubcategoryID = Request.QueryString("SubcategoryID")
%>
<%
set rsSubcat = Server.CreateObject("ADODB.Recordset")
rsSubcat.ActiveConnection = MM_Cart_STRING
rsSubcat.Source = "SELECT Subcategory FROM Subcategories WHERE SubcategoryID = " + Replace(rsSubcat__prmSubcategoryID, "'", "''") + ""
rsSubcat.CursorType = 0
rsSubcat.CursorLocation = 2
rsSubcat.LockType = 3
rsSubcat.Open()
rsSubcat_numRows = 0
%>
<%
DIM SqlString,ErrorMsg
If Request.QueryString("SubcategoryID")<> "" Then
SqlString = " AND SubcategoryID = " & Request.QueryString("SubcategoryID")
Else
SqlString = " AND ProductName+ItemNo+Description LIKE '%" & (Request("Searchword")) & "%'"
End If
%>
<%
set rsProducts = Server.CreateObject("ADODB.Recordset")
rsProducts.ActiveConnection = MM_Cart_STRING
rsProducts.Source = "SELECT ProductID, ProductName, LEFT(Description,30) & '...' AS ShortDescr, Picture, Price FROM Products WHERE Show = true" & SqlString
rsProducts.CursorType = 0
rsProducts.CursorLocation = 2
rsProducts.LockType = 3
rsProducts.Open()
rsProducts_numRows = 0
%>
<%
If rsProducts.Eof AND Request.QueryString("SubcategoryID")<> "" Then
ErrorMsg = "Denne kategori er desværre tom"
ElseIf (Request("Searchword") = "" OR Len(Request("Searchword")) < 3) AND Request.QueryString("SubcategoryID") = "" Then
ErrorMsg = "Du kan ikke lave en tom søgning eller bruge søgeord på under 3 tegn"
ElseIf Request("Searchword") <> "" AND rsProducts.Eof Then
ErrorMsg = "Søgningen gav desværre ingen resultat"
End If
%>
<%
Dim Repeat1__numRows
Repeat1__numRows = -1
Dim Repeat1__index
Repeat1__index = 0
rsProducts_numRows = rsProducts_numRows + Repeat1__numRows
%>
<html>
<head>
<!-- #BeginEditable "doctitle" -->
<title><%=(rsShopInfo.Fields.Item("ShopName").Value)%></title>
<!-- #EndEditable -->
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<!--#include file="Include/Metas.asp" -->
<!-- #BeginEditable "script" -->
<script language="JavaScript">
<!--
//-->
</script>
<!-- #EndEditable -->
<link rel="stylesheet" href="styles/eshop4all.css" type="text/css">
</head>
<body background="images/Backpattern.gif" text="#637960" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<center>
<table width="700" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>
<a href="default.asp"><img src="Images/eshop4all.jpg" width="700" height="74" usemap="#Map" border="0"></a></td>
</tr>
<tr>
<td background="Images/eshop4all-2.jpg" height="20" nowrap align="right" valign="middle">
<b>
|<font color="#FFFFFF"><a href="default.asp">
</a></font><a href="index.asp"><font size="2" color="#D6DDD5">Home</font></a><font color="#D6DDD5" size="2">
| <a href="shopinfo.asp?TextID=4">
<font color="#D6DDD5">Information</font></a><font color="#D6DDD5">
| <a href="Shopinfo.asp?TextID=3"><font color="#D6DDD5">Shipping</font></a>
| </font> </font><a href="Shopinfo.asp?TextID=5">
<font size="2" color="#D6DDD5">C</font></a><font color="#FFFFFF"><a href="Shopinfo.asp?TextID=5"><font size="2" color="#D6DDD5">ontact </font></a></font>
</b>
<font color="#D6DDD5" size="2"> | </font>
<a href="
http://www.eshop4all.DK/uk"><img src="Images/dk.gif" height="14" border="0" width="45"></a></td>
</tr>
<tr>
<td>
<table background="images/Backpattern.gif" width="100%" border="1" cellspacing="0" cellpadding="0">
<tr>
<td width="137" background="images/Backpattern.gif" valign="top">
<table width="100%" border="0" cellspacing="6" cellpadding="0">
<tr>
<td><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td class="Bigger" >Menu</font></td>
</tr>
<tr>
<td height="6"></td>
</tr>
<tr>
<td bgcolor="#799375" height="6">
<font color="#D6DDD5"><%=Menu%></font></td>
</tr>
</table>
</td>
</tr>
<tr>
<td height="38"> <table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td class="bigger">Search</font></td>
</tr>
<form name="search" method="post" action="Products.asp">
<tr>
<td nowrap class="bigger"> <font color="#FFFFFF">
</font>
<input type="text" name="Searchword" size="8">
<input type="submit" name="Search" value="Ok" class="buttons">
<font color="#FFFFFF"> </font></td>
</tr>
</form>
</table></td>
</tr>
<tr>
<td> <%If Request.QueryString("Update")<> "false" Then %>
<table width="100%" border="0" cellspacing="0" cellpadding="1">
<tr>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td class="bigger">Chart</td>
</tr>
<tr>
<td align="center" class="fine" bgcolor="#333333">
<font color="#FFFFFF">
<% If Request.Cookies("CartTotal") = "" Then Response.Write("$ 0,00") Else Response.Write(Request.Cookies("CartTotal"))%>
</font></td>
</tr>
</table>
</td>
</tr>
</table>
<%End If%></td>
</tr>
</table>
</td>
<td width="563" background="images/Backpattern.gif"valign="top">
<table width="100%" border="0" cellspacing="6" cellpadding="0">
<tr>
<td>
<table background="images/Backpattern.gif"width="100%" border="0" cellspacing="2" cellpadding="0" bgcolor="#000000">
<tr>
<td class="bigger"><!-- #BeginEditable "header" -->
<%If Not rsSubcat.EOF Then Response.Write(rsSubcat.Fields.Item("Subcategory").Value) Else Response.Write("Søgeresultat")%>
<!-- #EndEditable --></td>
</tr>
</table>
</td>
</tr>
<tr>
<td valign="top">
<table background="images/Backpattern.gif"width="100%" border="0" cellspacing="2" cellpadding="0">
<tr>
<td><!-- #BeginEditable "main" -->
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<%If ErrorMsg = "" Then%>
<%
While ((Repeat1__numRows <> 0) AND (NOT rsProducts.EOF))
%>
<%
If Repeat1__numRows Mod 2 Then
RowColor = "#D6DDD5"
Else
RowColor = "#FBEDE3"
End If
%>
<tr bgcolor="<%=RowColor%>">
<td width="80"><a href="Productdetail.asp?ProductID=<%=(rsProducts.Fields.Item("ProductID").Value)%>"><img src="Showimage.asp?Filename=<%=(rsProducts.Fields.Item("Picture").Value)%>" width="80" border="0"></a></td>
<td valign="top">
<table width="100%" border="0" cellspacing="4" cellpadding="0">
<tr bgcolor="<%=RowColor%>">
<td><a href="Productdetail.asp?ProductID=<%=(rsProducts.Fields.Item("ProductID").Value)%>"><span class="productname"><font color="#637960"><%=(rsProducts.Fields.Item("ProductName").Value)%></span><img border="0" src="images/more.gif" width="41" height="9"></a></td>
<td align="right"><b><%= FormatCurrency((rsProducts.Fields.Item("Price").Value), 2, -2, -2, -2) %></b></td>
</tr>
<tr bgcolor="<%=RowColor%>">
<td height="25"><%=(rsProducts.Fields.Item("ShortDescr").Value)%></td>
<td align="right" height="25">
<%If (rsProducts.Fields.Item("Price").Value) > 0 Then%>
<a href="Cart.asp?ProductID=<%=(rsProducts.Fields.Item("ProductID").Value)%>">
<img src="Images/buy.gif" width="45" height="18" border="0"></a>
<%End If%>
</td>
</tr>
</table>
</td>
</tr>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
rsProducts.MoveNext()
Wend
%>
<%Else Response.Write("<tr><td>"&ErrorMsg&"</td></tr>") End If%>
</table>
<!-- #EndEditable --></td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</center>
<map name="Map">
<area shape="rect" coords="8,2,203,82" href="default.asp">
</map>
</body>
<!-- #EndTemplate -->
</html>
Ny bruger
Nybegynder
Opret
Preview
