Hjælp, jeg kan ikke ændre currency fra kr til $
Hejeg er i gang med, at lave en engelsk udgave af min eshop, men men kan ikke ændre kr til $.
Jeg har igår haft spørgsmålet vendt under kategorien Access database da jeg troede, at det var her problemet var, men det er det ikke.:
http://www.eksperten.dk/spm/531881
Er der noget i denne kategori som kan hjælpe mig?
Her er scriptet til en af de sider som der er problemer med, ellers se nærmere på følgende eksempel:
http://www.eshop4all.dk/uk/Products.asp?SubcategoryID=19
<%@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>
Jeg håber at i kan hjælpe mig.
Mvh
Mogens
