[an error occurred while processing this directive]
<%
'************************************************************************
' displays all currencies available
' VP-ASP 6.0
' June 29, 2005  HK
'***********************************************************************
dim currenturl, url
dim rs
dim dbc
currenturl="shopcurrency.asp"
'response.write getsess("returnurl")
''response.end
'VP-ASP 6.08 - wasn't redirecting correctly after change
'if (getsess("returnurl") = "") OR (right(getsess("returnurl"), len(getsess("returnurl")) - instrrev(getsess("returnurl"), "/")) = currenturl) then
'	if request.ServerVariables("HTTP_REFERER") > "" then
'		setsess "returnurl", request.ServerVariables("HTTP_REFERER")
'	else
		
'	end if
'end if

ShopOpendatabase dbc
If Request("cid")<>"" then
  'VP-ASP 6.08a - Security fix
  sql="select * from currencyvalues where cid= '" & CleanChars(Request("CID")) & "'"
  debugwrite sql
  set rs=dbc.execute(sql)
  if not rs.eof then
    SetSess "CID",rs("cid")
    setSess "Fullunitname",rs("fullunitname")
    SetSess "Conversionvalue",rs("conversionvalue")
    SetSess "Newcurrencysymbol",rs("currencysymbol")
	SetSess "flagimage",rs("theimage")
  else
     debugwrite "not found" & request("cid")
  end if   
  closerecordset rs  
  shopclosedatabase dbc
  Call SetCurrency(GetSess("CID"),false)
  Getreturnurl url
'response.write url
  Responseredirect url
else
  shoppageheader
  'VP-ASP 6.09 - added breadcrumb
   response.write "<div align='left' class='breadcrumb'><a href='" & getconfig("xhome") & "'>Home</a>&nbsp;" & SubCatSeparator & getlang("langchangecurrency") & "</div>"
  DisplayForm
  shoppagetrailer
end if
ShopClosedatabase dbc

Sub DisplayForm
dim Fullunitname
dim newrow
newrow=true
'VP-ASP 6.08 - IF statement to handle different databases
if (ucase(xdatabasetype)="SQLSERVER") or (getconfig("xmysql")="Yes") OR (instr(ucase(xdatabasetype), "MYSQL") > 0) then
	sql="select * from currencyvalues where theimage is not null AND hide = 0 order by fullunitname"
else
	sql="select * from currencyvalues where theimage is not null AND hide = FALSE order by fullunitname"
end if
%>
<table width="80%" border="0" align="center" cellpadding="2" cellspacing="2"> 
  <tr> 
    <td valign="top" align=center colspan="2">
      <table border="0" align="center" width="100%" cellspacing="3" cellpadding="3"> 
        <tr> 
          <td><h1><%=getlang("langcurrpage01")%></h1></td> 
        </tr> 
               <tr> 
          <td align="center" valign="top"><span class="hdrproduct"><%=GetSess("Fullunitname")%></span>&nbsp;<%=getlang("langcurrpage02")%></td> 
        </tr> 
		<tr> 
          <td colspan="2" align="center" valign="top"><%=getlang("langcurrpage03")%></td> 
        </tr> 
      </table>
    </td>
  </tr> 
</table>
<table width="80%" border="0" align="center" cellpadding="2" cellspacing="2"> 
  <tr>
    <td align=center colspan="2">
	  <table border="0" width='100%' align=center cellspacing=2 cellpadding=1 valign=Middle>
         
<%
set rs=dbc.execute(sql)
Do while not rs.eof
Fullunitname=rs("fullunitname") 
  if newrow=true then
     response.write "<tr>"
     newrow=false
  else
    newrow=true
  end if
%>
          <td align=center valign=bottom width='50%' nowrap><a href="<%=currenturl%>?cid=<%=rs("CID")%>&VAT=False"><img border=0 src="<%=rs("theimage")%>" alt="<%=Fullunitname%>"><br><b><%=Fullunitname%></a></td>
<%
  if newrow=true then
      response.write "</tr>"
  end if
  rs.MoveNext
Loop
closerecordset rs
response.write "</table></td></tr></table>"
%>
<table width="80%" border="0" align="center" cellpadding="3" cellspacing="3"> 
     <form method=GET action="<%=currenturl%>">
  <tr>
    <td align="center">
      <select style="font-size: xx-small" name="CID">
<%
'11/01/2006 - Claire Banks
'this query works with 0 instead of false in all DB types, so IF statement is unnecessary
'  if UCASE(xdatabasetype)="SQLSERVER" or ucase(getconfig("xdatabasetype"))="SQLSERVER" then
    sql="select * from currencyvalues where hide = 0 order by fullunitname"
'  else
'    sql="select * from currencyvalues where hide = false order by fullunitname"
'  End if
  set rs=dbc.execute(sql)
  Do while  not rs.eof
   Response.write "<option value=""" &rs("CID")& """>" & rs("Fullunitname")& "</option>" & vbcrlf
   rs.MoveNext
   Loop
%>
      </select>
    </td>
  </tr>
<tr>
    <td colspan="2" align="center">
<%
  If Getconfig("xbuttoncontinue")="" Then
%>  
    <INPUT class=submitbtn name="continue" type=submit value="<%=getlang("LangCommonContinue")%>">
<%
  else
%>
    <INPUT name="continue" border='0' type=image src="<%=getconfig("xbuttoncontinue")%>">
<%
  end if
%>
	</td>
  </tr>
    </form>
</table>
<%
End Sub
Sub getreturnurl (url)
'VP-ASP 6.08 - wasn't redirecting correctly after change
'url=getsess("currenturl")
url=GetSess("convertBackBackpage")
if url="" then
   url=getconfig("xhome")
end if   
end sub

%>