<% Sub HtmlProductFormatRow '********************************************************************************** ' A template tmp_productformat.htm is supplied. It is used to format ' products. Special keywords in the form ' [ formatimage sub] ' [Formatproductoptions sub] ' [formatquantity sub] ' [formathyperlinks sub] ' formatoverallrating sub] ' VP-ASP 4.50 June 2, 2002 '************************************************************** ' objrs is already opened pointing to record dim template, rc, url, stayonpage StartColumnOrRow template=getconfig("xproductdisplaytemplate") If Template="" then Serror=LangExdNoTemplate shoperror serror end if If ProductSelect<>"Yes" then response.write "

" end if ShopTemplateWrite template, objRs, rc If ProductSelect<>"Yes" then response.write "" stayonpage=getconfig("Xproductstayonpage") If stayonpage="Yes" then url="shopdisplayproducts.asp?page=" & mypage response.write "

" end if response.write "" end if EndColumnOrRow end sub ' Sub HtmlProductFormatHeader '************************************* ' Headers for product are displayed here ' VP-ASP 4.00 ' June 2, 2002 '************************************** Response.write Prodtable colcount=0 end sub Sub StartColumnorRow 'debugwrite "colcount=" & colcount & "maxcolumns=" & productmaxcolumns If ProductMaxColumns=1 or colcount=0 then Response.write prodrow end if response.write "" end sub Sub EndColumnorRow If ProductMaxColumns=1 then response.write "" Response.write "" exit sub end if Response.write "" end sub Sub Handle_Product (isub) select case isub Case "FORMATIMAGE" Formatimage Case "FORMATBUTTON" If ProductSelect="Yes" then AddSelect else Formatbutton end if Case "FORMATHYPERLINKS" Formathyperlinks Case "FORMATOVERALLRATING" Formatoverallrating Case "FORMATPRODUCTOPTIONS" Formatproductoptions Case "FORMATQUANTITY" Formatquantity case else debugwrite "Unknown sub" end select end sub %>