<% 'If Not ChkPost Then 'Response.Write ("" response.end else RsProduct("P_Counter")=RsProduct("P_Counter")+1 RsProduct.update MaxClassID=RsProduct("P_MaxClassID") MidClassID=RsProduct("P_MidClassID") MinClassID=RsProduct("P_MinClassID") if RsProduct("P_Price")=0 then P_Price="No Price" else P_Price=formatcurrency(RsProduct("P_Price")) end if Name=RsProduct("P_Name") Model = "["&RsProduct("P_Model")&"]" DefaultPicUrl=RsProduct("P_DefaultPicUrl") Content=RsProduct("P_Content") Counter=RsProduct("P_Counter") UpdateDate=RsProduct("P_UpdateDate") if isnull(RsProduct("P_Model")) or RsProduct("P_Model") = "" then Model = "" ProductTitle=" "&Model&Name end if RsProduct.close set RsProduct=nothing %> wirevise wirevise 5058 wirevise wirelink 5059