Her er hele koden uden IF....Sætningen ::::
<%@LANGUAGE=\"VBSCRIPT\"%>
<!--#include file=\"UCII_Cart.asp\"-->
<!--#include file=\"../Connections/slqProdukter.asp\" -->
<%
\' UltraDev Shopping Cart II
\' Copyright © 2001 Joseph Scavitto All Rights Reserved
\'
www.thechocolatestore.com/ultradevDim UCII_CartColNames,UCII_ComputedCols,UCII__i
UCII_CartColNames = Array(\"Value\",\"Price2\",\"ProductID\",\"Quantity\",\"Name\",\"Price\",\"Total\")
UCII_ComputedCols = Array(\"\",\"\",\"\",\"\",\"\",\"\",\"Price\")
Set UCII = VBConstuctCart(\"UCartII\",0,UCII_CartColNames,UCII_ComputedCols)
UCII__i = 0
%>
<%
\' UltraCart II Update Version 1.01
UCII_UpdateAction = CStr(Request(\"URL\"))
If Request.QueryString <> \"\" Then
UCII_UpdateAction = UCII_UpdateAction & \"?\" & Request.QueryString
End If
If Request.Form(\"textfield\").Count > 0 Then
UCII.Update(\"textfield\")
UCII_RedirectToPage = \"cart.asp\"
If UCII_RedirectToPage <> \"\" Then
If false Then
Server.Transfer(UCII_RedirectToPage)
Else
Response.Redirect(UCII_RedirectToPage)
End If
End If
End If
%>
<%
set rsProdukter = Server.CreateObject(\"ADODB.Recordset\")
rsProdukter.ActiveConnection = MM_slqProdukter_STRING
rsProdukter.Source = \"SELECT * FROM Produkter\"
rsProdukter.CursorType = 0
rsProdukter.CursorLocation = 2
rsProdukter.LockType = 1
rsProdukter.Open()
rsProdukter_numRows = 0
%>
<%
\' UltraCart II Empty Cart Version 1.00
UCII_EmptyCart = CStr(Request.ServerVariables(\"URL\")) & \"?UCII_EmptyCart=1\"
If (CStr(Request(\"UCII_EmptyCart\")) = \"1\") Then
UCII.Destroy()
UCII_RedirectToPage = \"cartno.asp\"
If (UCII_RedirectToPage = \"\") Then UCII_RedirectToPage = CStr(Request.ServerVariables(\"URL\"))
If (InStr(1, UCII_RedirectToPage, \"?\", vbTextCompare) = 0 And Request.QueryString <> \"\") Then
newQS = \"?\"
For Each Item In Request.QueryString
If (Item <> \"UCII_EmptyCart\") Then
If (Len(newQS) > 1) Then newQS = newQS & \"&\"
newQS = newQS & Item & \"=\" & Server.URLencode(Request.QueryString(Item))
End If
Next
if (Len(newQS) > 1) Then UCII_RedirectToPage = UCII_RedirectToPage & newQS
End If
Response.Redirect(UCII_RedirectToPage)
End If
%>
<%
\' UltraCart II Redirect If Cart Empty Version 1.01
If (UCII.GetItemCount() <= 0) Then
UCII_RedirectToPage = \"cartno.asp\"
If false Then
Server.Transfer(UCII_RedirectToPage)
Else
Response.Redirect(UCII_RedirectToPage)
End If
End If
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=iso-8859-1\">
</head>
<body bgcolor=\"#FFFFFF\" text=\"#000000\">
<form name=\"form1\" method=\"post\" action=\"<%=UCII_UpdateAction%>\">
<table width=\"643\" border=\"1\">
<%
\'UltraCart II Repeat Region
For UCII__i=0 To UCII.GetItemCount()-1
%>
<tr>
<td width=\"205\"><%=(UCII.GetColumnValue(\"ProductID\",UCII__i))%></td>
<td width=\"224\"><%=(UCII.GetColumnValue(\"Name\",UCII__i))%></td>
<td width=\"173\">
<input type=\"text\" name=\"textfield\" value=\"<%=(UCII.GetColumnValue(\"Quantity\",UCII__i))%>\">
</td>
<td width=\"108\"> </td>
<td width=\"90\">
<%=(UCII.GetColumnValue(\"Price\",UCII__i))%> </td>
<td width=\"8\"><%=(UCII.GetColumnValue(\"Total\",UCII__i))%></td>
</tr>
<%
\'UltraCart II Repeat Region End
Next
%>
</table>
<p><%=(rsProdukter.Fields.Item(\"RabatAntal\").Value)%> </p>
<input type=\"submit\" name=\"Submit\" value=\"Submit\">
<a href=\"<%=UCII_EmptyCart%>\">Empty
Cart</a>
</form>
<p> </p>
</body>
</html>
<%
rsProdukter.Close()
%>
*******************
Det er meningen at værdien (UCII.GetColumnValue(\"Price\",UCII__i))\" SKAL VÆRE LIG MED (UCII.GetColumnValue(\"Price2\",UCII__i))\" HVIS
If UCII.GetColumnValue(\"Quantity\",UCII__i) >= (rsProdukter.Fields.Item(\"RabatAntal\").Value)
,OG dette skal sættes ind i \"Repeat Region \" løkken et eller andet sted......
Var det nok ????
