False		response.write "___________________" & VbCrLf
	rs.MoveNext
	loop
	response.write "Transport: " & FormatNumber(transporttotal/100,2,-2,-2,-1) & " &euro;<br>"
	response.write "___________________" & VbCrLf
	response.write "TOTAL: " & FormatNumber(total/100,2,-2,-2,-1) & "<br><br>" & VbCrLf
	response.write "<a href=""checkout_en.asp""><img src=""design/buttoncheckout_en.gif"" border=""0""></a>" & VbCrLf
	response.write "</font></td></tr></table>" & VbCrLf
end if
if show = "yes" then
'··· Open DB ···
Call OpenDB(1,conn,rs)

SQLSTMT = "SELECT * FROM products WHERE P_mainpage = 1 AND U_id = " & U_id
rs.Open SQLSTMT,conn

if rs.BOF or rs.EOF then
else
	do while not rs.EOF
		P_id = rs("P_id")
		if lang = 1 then
			P_name = rs("P_name1")
		elseif lang = 2 then
			P_name = rs("P_name2")
		elseif lang = 3 then
			P_name = rs("P_name3")
		end if
		P_price = rs("P_price")
			P_price = P_price/100
		P_pricediscount = rs("P_pricediscount")
			P_pricediscount = P_pricediscount/100
		P_photo1 = rs("P_photo1")
		PT_id = rs("PT_id")
		if PT_id <> 1 then
			'··· Open DB ···
			Call OpenDB(2,conn2,rs2)
			SQLSTMT2 = "SELECT * FROM ProductTypes WHERE PT_id = " & PT_id & " AND U_id = " & U_id
			rs2.Open SQLSTMT2,conn2
			PT_name = rs2("PT_name1")
			PT_name = URLDecode(PT_name)
		end if
		
		P_name = URLDecode(P_name)
		P_photo1 = URLDecode(P_photo1)
		
		response.write "<table cellpadding=""3"" cellspacing=""0"" border=""0"" bgcolor="""&U_bgcolor&""" align=""center""><tr><td onclick=""window.location='shopdetails_en.asp?id="&P_id&"'"" style=""cursor: hand;"">" & VbCrLf
		response.write "<font style=""font-family: "&U_font&"; font-size: 10pt; color: #"&U_fontcolor&";"">" & VbCrLf
		if P_photo1 <> "" then
			response.write "<img src=""shop/th_" & P_photo1 & """ border=""0"" width=""170""><br>" & VbCrLf
		end if
		response.write "" & P_name & " " & PT_name & "<br>"
		if U_type = "shop" then
			if P_pricediscount = 0 then
				response.write ""&FormatNumber(P_price,2,-2,-2,-1)&" &euro;<br>" & VbCrLf
			elseif P_pricediscount > 0 then
				response.write "<font style=""text-decoration: line-through;"">"&FormatNumber(P_price,2,-2,-2,-1)&" &euro;</font><br>" & VbCrLf
				response.write "<font color=""FF0000""><b>"&FormatNumber(P_pricediscount,2,-2,-2,-1)&" &euro;</b></font><br>" & VbCrLf
			end if
			response.write "</font></td></tr><tr><td>" & VbCrLf
			response.write "<form  style=""margin-top:0; margin-bottom:0;"" action=""shopaddtocart.asp?id="&P_id&"&from="&Request.ServerVariables("URL")&"?"&Request.ServerVariables("QUERY_STRING") &""" method=""post"">" & VbCrLf
			response.write "<input class=field type=""text"" name=""number"" size=""2"" value=""1"">&nbsp;&nbsp;"
			response.write "<input type=""image"" src=""design/cart.gif"" border=""0"" name=""submit""></form>" & VbCrLf
		end if
		response.write "</font></td></tr></table><br>" & VbCrLf
	rs.MoveNext
	loop
end if
end if
%>
</td>
</tr>
<tr>
<td colspan="3" bgcolor="666666" height="30" align="right" valign="middle"><font style="font-family: Arial , Verdana , Helvetica; font-size: 10pt; color: #ffffff;"><a href="http://www.4u-international.com" target="_blank"><font style="text-decoration: none; color: #ffffff;" onMouseOver="this.style.color = 'black';" onMouseOut="this.style.color = 'white';"><b>Internationals 4U - IFY SL</b></font></a>&nbsp;
<!-- Start of StatCounter Code -->
<script type="text/javascript" language="javascript">
var sc_project=2438114;
var sc_invisible=0;
var sc_partition=23;
var sc_security="f814c126";
</script>

<script type="text/javascript" language="javascript" src="http://www.statcounter.com/counter/counter.js"></script><noscript><a href="http://www.statcounter.com/" target="_blank"><img  src="http://c24.statcounter.com/counter.php?sc_project=2438114&amp;java=0&amp;security=f814c126&amp;invisible=0" alt="web page hit counter" border="0"></a> </noscript>
<!-- End of StatCounter Code -->
</td>
</tr>
</table>
</center>
</body>
</html>