Problemer med at ændre fra KR til $
Hej igenJeg har fået rette det på de fleste sider, men der er et par som jeg ikke kan få det til at fungere på:
her er det ene:
<!--#include file="Connections/Cart.asp" -->
<%
Set con = Server.CreateObject("ADODB.Connection")
con.Open MM_Cart_STRING
Dim ReturnToCart
Dim Editable
Dim CartExpires
Dim CartEmpty
Dim carttotalText
Dim HeaderArray
Dim UpdateText
Dim DeleteText
Dim CartTemp
Dim CartTemp2
Dim Count
Dim GrandTotal
Dim Cart
Dim Cart1
Dim Cart2
Dim HeaderText
Dim Redirect
Dim ExtraButtons
Dim ApplyBelow
Dim Creditcard
ReturnToCart = (rsShopInfo.Fields.Item("ReturnToCart").Value)
If Request.QueryString("Update")="false" Then
Editable = false
Else
Editable = true
End If
CartExpires = 30
CartEmpty = "Your cart is empty"
HeaderArray = Array("Slet","Qty","Name","Price","Total")
UpdateText = "Opdate Cart"
DeleteText = "Delete all"
ApplyBelow = 0
HandlingText = "Ekspeditionsgebyr"
CartTotalText = "Total amount"
CartEndTotalText = "Total"
CartTaxText = "Moms udgør"
Tax = (rsShopInfo.Fields.Item("Tax").Value)
Set rsCart = con.Execute("SELECT Handling FROM Setup")
HandlingPrice = rsCart("Handling")
If Request.QueryString("Update")="false" AND Request.Form("PaymentID")<>"" Then
Set rsCart = con.Execute("SELECT PaymentText,Price,Creditcard,ApplyBelow FROM Payments WHERE PaymentID="&Request.Form("PaymentID"))
DeliveryPrice = rsCart("Price")
DeliveryText = rsCart("PaymentText")
ApplyBelow = rsCart("ApplyBelow")
Creditcard = rsCart("Creditcard")
End If
Qou = Chr(34)
ButtonStyle = ""
Count=1
GrandTotal=0
If Request.QueryString("Update")="" Then
ExtraButtons="<input type=""button"" name=""Button"" value=""Vælg betalingsmåde"" class=""buttons"" onClick=""MM_goToURL('parent','Submitorder.asp?Update=false');return document.MM_returnValue"">"
End If
%>
<SCRIPT LANGUAGE=JavaScript RUNAT=Server>
var Now = new Date();
var Timestamp = Now.getTime();
</SCRIPT>
<%
If Request.Cookies("Cart")="" Then
Response.Cookies("Cart").Expires = Date()+CartExpires
Response.Cookies("Cart") = Timestamp
End If
%>
<%
'If a productid is in the querystring add it to the cart!
If Request.QueryString("ProductID")<>"" Then
con.Execute("INSERT INTO TempCart (CartTimestamp, ProductID, Quantity) VALUES ("& Request.Cookies("Cart") &","& cInt(Request.QueryString("ProductID"))&", 1)")
Redirect = true
'If delete is clicked, delete the cart and also delete all from the cart with a date later than 30 days
ElseIf Request.Form("Delete")<>"" Then
con.Execute("DELETE FROM Tempcart WHERE Tempcart.CartTimestamp='"&Request.Cookies("Cart") &"' OR DateCreated<"&Date()-CartExpires&" ")
'If the update button is clicked update the cart
ElseIf Request.Form("Update")<>"" Then
DIM Cnt,Checkbox
For Cnt=1 To cInt(Request.Form("TotalItems"))
If IsNumeric(Request.Form("Quantity"&Cnt))= true Then
CheckBox=0
If Request.Form("Deleted"&Cnt) <> "" Or Request.Form("Quantity"&Cnt) = 0 Then CheckBox=1
con.Execute("UPDATE TempCart SET Quantity="&Abs(Request.Form("Quantity"&Cnt)) &" , Deleted= "& CheckBox &" WHERE TempCartID="& Request.Form("CartID"&Cnt) &"")
End If
Next
End If
Set rsCart = con.Execute("SELECT SUM(Quantity * Price) AS carttotal FROM Products, Tempcart WHERE Products.ProductID = Tempcart.ProductID AND TempCart.CartTimestamp='"&Request.Cookies("Cart") &"' AND Deleted=0 ")
If NOT IsNull(rsCart("carttotal")) Then
Response.Cookies("carttotal") = FormatCurrency((rsCart("carttotal")+HandlingPrice),2)
Response.Cookies("carttotal").Expires = Date() + CartExpires
Else
Response.Cookies("carttotal") = FormatCurrency(0,2)
Response.Cookies("carttotal").Expires = Date() + CartExpires
End If
If Request.QueryString("ProductID")<> "" Then
If ReturnToCart = false AND Redirect = true Then
Response.Redirect(Request.ServerVariables("HTTP_REFERER"))
Else
Response.Redirect(CurrentPage)
End If
End If
Set rsCart = con.Execute("SELECT TempcartID,Tempcart.ProductID,ProductName, Price, Quantity, Quantity * Price AS Total FROM Products, Tempcart WHERE Products.ProductID = Tempcart.ProductID AND TempCart.CartTimestamp='"&Request.Cookies("Cart") &"' AND Deleted=0 ")
%>
<%
If rsCart.EOF Then
Cart = CartEmpty
Else
Function Table(Content,Style)
Dim Qou
Dim S
Qou = Chr(34)
S = "<table class="&Qou&Style&Qou&" width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"">"
S = S & vbCrlf & Content & vbCrlf & "</table>"
Table = S
End Function
Function Form(Content)
Dim Qou
Qou = Chr(34)
Form = "<form name=""Cart"" method=""post"" action="&Qou&CurrentPage&Qou&">" & Content & "</form>"
End Function
Function TableRow(Content,Style)
Dim Qou
Qou = Chr(34)
If Style <> "" Then
TableRow = "<tr class="&Qou&Style&Qou&">" & vbCrlf & Content & vbCrlf & "</tr>" & vbCrlf
Else
TableRow = "<tr>" & vbCrlf & Content & vbCrlf &"</tr>" & vbCrlf
End If
End Function
Function TableCell(Content,Style)
Dim Qou
Qou = Chr(34)
If Style <> "" Then
TableCell = "<td class="&Qou&Style&Qou&">" & Content & "</td>" & vbCrlf
Else
TableCell = "<td>" & Content & "</td>" & vbCrlf
End If
End Function
Function FormElement(InputType,Style,Name,Size,Value)
Dim Qou
Qou = Chr(34)
Select Case InputType
Case "h" FormElement = "<input type=""hidden"" name="&Qou&Name&Qou&" value="&Qou&Value&Qou&">"
Case "c" FormElement = "<input type=""checkbox"" class="&Qou&Style&Qou&" name="&Qou&Name&Qou&" value=""1"">"
Case "t" FormElement = "<input type=""text"" class="&Qou&Style&Qou&" name="&Qou&Name&Qou&" size="&Qou&Size&Qou&" value="&Qou&Value&Qou&">"
Case "s" FormElement = "<input type=""submit"" class="&Qou&Style&Qou&" name="&Qou&Name&Qou&" value="&Qou&Value&Qou&">"
End Select
End Function
If Editable = True Then CartTemp = TableCell(HeaderArray(0),"cartheader")
CartTemp = CartTemp & TableCell(HeaderArray(1),"cartheader")
CartTemp = CartTemp & TableCell(HeaderArray(2),"cartheader")
CartTemp = CartTemp & TableCell(HeaderArray(3),"cartheadernumeric")
CartTemp = CartTemp & TableCell(HeaderArray(4),"cartheadernumeric")
Cart1 = TableRow(CartTemp,"")
While Not rsCart.EOF
CartTemp = ""
If Editable = True Then
CartTemp = TableCell(FormElement("c","","Deleted"&Count,"","1"),"")
CartTemp = CartTemp & TableCell(FormElement("t","","Quantity"&Count,"3",rsCart("Quantity")),"")
Else
CartTemp = CartTemp & TableCell(rsCart("Quantity"),"")
End If
CartTemp = CartTemp & TableCell(FormElement("h","","CartID"&Count,"",rsCart("TempCartID"))&rsCart("ProductName"),"cartproduct")
CartTemp = CartTemp & TableCell(FormatCurrency(rsCart("Price"),2),"cartnumeric")
CartTemp = CartTemp & TableCell(FormatCurrency(rsCart("Total"),2),"cartnumeric")
Cart2 = Cart2 & TableRow(CartTemp,"")
GrandTotal=GrandTotal+rsCart("Total")
Count=Count+1
rsCart.MoveNext()
Wend
CartTemp = Table(Cart1&Cart2,"")
CartTemp = TableCell(CartTemp,"")
CartTemp = TableRow(CartTemp,"")
Cart = CartTemp
If HandlingPrice > 0 Then
CartTemp = TableCell(HandlingText,"")
CartTemp = CartTemp & TableCell(FormatCurrency(HandlingPrice,2),"cartnumeric")
CartTemp = TableRow(CartTemp,"carthandling")
CartTemp2 = CartTemp
End If
CartTemp = TableCell(CartTotalText,"")
CartTemp = CartTemp & TableCell(FormatCurrency((GrandTotal+HandlingPrice),2),"cartnumeric")
CartTemp = TableRow(CartTemp,"carttotal")
CartTemp2 = CartTemp2 & CartTemp
If Editable = False Then
CartTemp = TableCell(CartTaxText,"")
CartTemp = CartTemp & TableCell(FormatCurrency((GrandTotal+HandlingPrice)*(Tax/(Tax+1)),2),"cartnumeric")
CartTemp = TableRow(CartTemp,"carttax")
CartTemp2 = CartTemp2 & CartTemp
End If
If ApplyBelow = 0 Then ApplyBelow = 100000
If Editable = False And ApplyBelow > GrandTotal Then
CartTemp = TableCell(DeliveryText,"")
CartTemp = CartTemp & TableCell(FormatCurrency(DeliveryPrice,2),"cartnumeric")
CartTemp = TableRow(CartTemp,"cartdelivery")
CartTemp2 = CartTemp2 & CartTemp
Else
DeliveryPrice = 0
End If
If Editable = False Then
CartTemp = TableCell(CartEndTotalText,"")
CartTemp = CartTemp & TableCell(FormElement("h","","TotalItems","",Count-1)&FormatCurrency(GrandTotal+HandlingPrice+DeliveryPrice,2),"cartnumeric")
Else
CartTemp = TableCell("","")
CartTemp = CartTemp & TableCell(FormElement("h","","TotalItems","",Count-1),"cartnumeric")
End If
CartTemp = TableRow(CartTemp,"carttotal")
CartTemp2 = CartTemp2 & CartTemp
CartTemp = Table(CartTemp2,"")
CartTemp = TableCell(CartTemp,"")
CartTemp = TableRow(CartTemp,"")
Cart = Cart & CartTemp
CartTemp = ""
If Editable = True Then
CartTemp = FormElement("s","cartbuttons","Update","",UpdateText)
CartTemp = CartTemp & FormElement("s","cartbuttons","Delete","",DeleteText)
CartTemp = CartTemp & ExtraButtons
End If
CartTemp = TableCell(CartTemp,"")
CartTemp = TableRow(CartTemp,"")
Cart = Cart & CartTemp
Cart = Form(Cart)
Cart = Table(Cart,"")
End If
%>
og her er det andet (det er muligt, at det kun er her at det skal ændres - prøv at se: http://www.eshop4all.dk/uk/Cart.asp )
<%@LANGUAGE="VBSCRIPT"%>
<%
Response.Expires = 0
Response.CacheControl = "no-cache"
Response.AddHeader "Pragma", "no-cache"
Dim CurrentPage
CurrentPage = "Cart.asp"
%>
<!--#include file="Connections/Cart.asp" -->
<!--#include file="Include/Shopinfo.asp" -->
<!--#include file="Menuinc.asp" -->
<!--#include file="Newsinc.asp" -->
<!--#include file="Cartinc.asp" -->
<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">
<!--
function MM_goToURL() { //v3.0
var i, args=MM_goToURL.arguments; document.MM_returnValue = false;
for (i=0; i<(args.length-1); i+=2) eval(args[i]+".location='"+args[i+1]+"'");
}
//-->
</script>
<!-- #EndEditable -->
<link rel="stylesheet" href="Styles/eshop4all.css" type="text/css">
</head>
<body background="images/sideBg.giff" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<center>
<table width="699" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><a href="http://www.eshop4all.DK/uk" target="_top"><img src="Images/eshop4all.jpg" width="700" height="74"></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">
| </font><a href="Shopinfo.asp?TextID=3"><font color="#D6DDD5">Shipping</font></a><font color="#D6DDD5">
| </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 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 height="20"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td class="bigger">Menu</font></td>
</tr>
<tr>
<td ></td>
</tr>
<tr>
<td bgcolor="#799375"><%=Menu%></td>
</tr>
</tr>
</table>
</td>
</tr>
<tr>
<td> <table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td class="bigger">Søg</font></td>
</tr>
<form name="search" method="post" action="Products.asp">
<tr>
<td nowrap class="fine" bgcolor="#333333"> <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">Indkøbskurv</font></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 width="100%" border="0" cellspacing="2" cellpadding="0" >
<tr>
<td class="bigger"><!-- #BeginEditable "header" -->Indkøbskurv<!-- #EndEditable --></td>
</tr>
</table>
</td>
</tr>
<tr>
<td valign="top">
<table width="100%" border="0" cellspacing="2" cellpadding="0">
<tr>
<td><!-- #BeginEditable "main" --><%=Cart%> <!-- #EndEditable --></td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</center>
</body>
<!-- #EndTemplate --></html>
Mvh
Mogens
