place(output_item_data, "[" & NestedInsert & "shortdescription]", START_font_product_description & ShortDescription & END_font_product_description)
ELSE
output_item_data = replace(output_item_data, "[" & NestedInsert & "shortdescription-BR]", "")
output_item_data = replace(output_item_data, "[" & NestedInsert & "shortdescription]", element_replace)
END IF
TheDescription = ""
IF TRIM(RS("Description")) <> "" THEN
TheDescription = TRIM(RS("Description"))
END IF
IF TheDescription <> "" THEN
output_item_data = replace(output_item_data, "[" & NestedInsert & "description-BR]", "
")
output_item_data = replace(output_item_data, "[" & NestedInsert & "description]", START_font_product_description & TheDescription & END_font_product_description)
ELSE
output_item_data = replace(output_item_data, "[" & NestedInsert & "description-BR]", "")
output_item_data = replace(output_item_data, "[" & NestedInsert & "description]", element_replace)
END IF
output_item_data = replace(output_item_data, "[" & NestedInsert & "price-BR]", "
")
If Trim(TheRRP) <> 0 Then
' Output the price in the correct format...
' Check to see if RRP is enabled...
sql_string = "SELECT * FROM tbl_SystemOptions WHERE OptionCode='VIEWSHOP-RRP' AND Active=" & boolUserTrue
Set SYSTEMOPTIONS_RS = Conn.Execute(sql_string)
IF NOT SYSTEMOPTIONS_RS.EOF THEN
IF GetRecord("tbl_General", "PriceSymbolLayout") <> "PRICE-SYMBOL" THEN
output_item_data = replace(output_item_data, "[" & NestedInsert & "rrp]", GLOBAL_CURRENCY_HTMLSYMBOL & FormatNumber(TheRRP,2) )
output_item_data = replace(output_item_data, "[" & NestedInsert & "rrp-line]", ""& GLOBAL_CURRENCY_HTMLSYMBOL & FormatNumber(TheRRP,2)) & ""
ELSE
output_item_data = replace(output_item_data, "[" & NestedInsert & "rrp]", FormatNumber(TheRRP,2) & GLOBAL_CURRENCY_HTMLSYMBOL )
output_item_data = replace(output_item_data, "[" & NestedInsert & "rrp-line]", ""& GLOBAL_CURRENCY_HTMLSYMBOL & FormatNumber(TheRRP,2)) & ""
END IF
Else
output_item_data = replace(output_item_data, "[" & NestedInsert & "rrp]", "" )
output_item_data = replace(output_item_data, "[" & NestedInsert & "rrp-line]", "")
End If
SYSTEMOPTIONS_RS.Close
Set SYSTEMOPTIONS_RS = Nothing
Else
output_item_data = replace(output_item_data, "[" & NestedInsert & "rrp]", "" )
output_item_data = replace(output_item_data, "[" & NestedInsert & "rrp-line]", "")
End If
' Output the price in the correct format...
IF GetRecord("tbl_General", "PriceSymbolLayout") <> "PRICE-SYMBOL" THEN
output_item_data = replace(output_item_data, "[" & NestedInsert & "price]", StockControlInfo & GLOBAL_CURRENCY_HTMLSYMBOL & FormatNumber(ThePrice,2) )
ELSE
output_item_data = replace(output_item_data, "[" & NestedInsert & "price]", StockControlInfo & FormatNumber(ThePrice,2) & GLOBAL_CURRENCY_HTMLSYMBOL )
END IF
IF (RS("ProductCode") <> "") AND (RS("ProductCode") <> False) THEN
ProductCode = RS("ProductCode")
ELSE
ProductCode = element_replace
END IF
output_item_data = replace(output_item_data, "[" & NestedInsert & "productcode]", ProductCode)
IF (RS("NumberInStock") <> "") THEN
Stock = RS("NumberInStock")
ELSE
Stock = element_replace
END IF
output_item_data = replace(output_item_data, "[" & NestedInsert & "stock]", Stock)
IF (InStr(output_item_data, "[" & NestedInsert & "image]") <> 0) OR InStr(output_item_data, "[" & NestedInsert & "image-url]") THEN
' Change the ratio if we have a Width and Height
IF (image_width > 0) AND (image_height > 0) THEN
NEW_image_ratio = image_width & "x" & image_height
ELSE
' If ratio has not been set us the ekmPowershopd default ratios...
IF image_ratio <= 0 THEN
NEW_image_ratio = GLOBAL_IMAGESIZE_PRODUCTLIST
ELSE
NEW_image_ratio = image_ratio
END IF
END IF
' See if we have a MaxWidth and MaxHeight specified
IF (Max_Image_Width > 0) OR (Max_Image_Height > 0) THEN
NEW_image_ratio = NEW_image_ratio & "(MAX:" & Max_Image_Width & "x" & Max_Image_Height & ":MAX)"
END IF
theImage = display_image(RS("image"), SEOFriendlyURL("PRODUCT", ProductID), NEW_image_ratio, RS("name"), "_EKM_SHOWDATA_PRODUCT_" & RS("id"))
IF theImage <> "" THEN
output_item_data = replace(output_item_data, "[" & NestedInsert & "image]", theImage)
ELSE
output_item_data = replace(output_item_data, "[" & NestedInsert & "image]", element_replace)
END IF
output_item_data = replace(output_item_data, "[" & NestedInsert & "imageratio]", NEW_image_ratio)
theImage2 = trim(" " & display_image(RS("image"), "JUSTURL", NEW_image_ratio, RS("name"), ""))
IF theImage2 <> "" THEN
output_item_data = replace(output_item_data, "[" & NestedInsert & "image-url]", theImage2)
ELSE
output_item_data = replace(output_item_data, "[" & NestedInsert & "image-url]", element_replace)
END IF
END IF ' IF InStr(output_item_data, "[image]") THEN
end if
RS.Close : Set RS = Nothing
' If Request.ServerVariables("REMOTE_ADDR") = "10.0.0.29" Then
' Response.Write("sSQL = " & sSQL & "
|
|
|
||
| Home | Contact us | June Hornby | Links | Size charts Sitemap | |||
shopping cart
categories
|
|
quick search
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||
Dancewear - dance shoes - children's dance wear
|
Buy online and get 10% discount. Born to Dance supplies Dance shoes, Dance clothes, Ballroom, Jazz ,Latin,Salsa,Tap,Ballet. Capezio,Roch Valley,Freed,Katz. BORN TO DANCE UK LIMITED Private Limited Company. Number 06718902
|