<%
if len(FP_Field(fp_rs,"Bild")) > 2 then
response.write(" ")
else
end if
%> |
<%=replace(FP_Field(fp_rs,"Beschreibung"),chr(13)," ")%>
<%=FP_Field(fp_rs,"Zusatzbemerkungen")%> |
|
|
<%
select case session("Waehrung")
case "ATS"
response.write("ATS: " & round(FP_Field(fp_rs,"Preis")*13.7603,2))
case "DEM"
response.write("DEM: " & round(FP_Field(fp_rs,"Preis")*1.95583,2))
case else
response.write("EUR: " & FP_Field(fp_rs,"Preis"))
end select
%>,-- |
|