<cfoutput>
<!--- <cfoutput>#ind#</cfoutput> --->
<cfif isdefined("url.InputText")>
<cfquery datasource="#Session.DBName#" name="FT">
Select *
From Products
Where AFIPart = '#url.InputText#'
Order by ProfileDescription
</cfquery>
<cfif FT.AFIPrice gt "0">
<cfquery datasource="#Session.DBName#" name="Prof">
Select *
From Profiles
Where PProfile = #FT.MoldingDwg#
</cfquery>
<cfparam name="Session.Customer_PriceMultiplier" default="1">
<cfif Session.Customer_PriceMultiplier is "">
<cfset Price = NumberFormat(FT.AFIPrice, ".00")>
<cfelse>
<cfset Price = NumberFormat(FT.AFIPrice, ".00") * Session.Customer_PriceMultiplier>
</cfif>
<cfset Price = CPrice(FT.AFIPart, Price)>
<cfquery datasource="#Session.DBName#" name="PM">
SELECT Multipliers.*, CustomerMultiplier.*
FROM Multipliers INNER JOIN
CustomerMultiplier ON Multipliers.MultiplierCode = CustomerMultiplier.MultiplierCode
Where CustomerMultiplier.CustID = '#Session.Customer_Number#' and CustomerMultiplier.ProductCat = '#FT.ProdCat#'
</cfquery>
<cfif PM.Multipler is "">
<cfset Multi = Session.customer_pricemultiplier>
<cfelse>
<cfset Multi = PM.Multipler>
</cfif>
<cfif MOC.CarpetOne gte "1">
<cfif FT.ProdCat is "HI"><cfset Multi = ".575"></cfif>
<cfif FT.ProdCat is "HJ"><cfset Multi = ".675"></cfif>
<cfif FT.ProdCat is "LI"><cfset Multi = ".5"></cfif>
<cfif FT.ProdCat is "HM"><cfset Multi = ".675"></cfif>
</cfif>
<cfif Session.Customer_PriceMultiplier is "">
<cfset Price = NumberFormat(FT.AFIPrice, ".00")>
<cfelse>
<cfset Price = NumberFormat(FT.AFIPrice, ".00") * Multi>
</cfif>
<cfset Price = CPrice(FT.AFIPart, Price)>
<table cellpadding="2" cellspacing="0" border="0" width="500">
<tr>
<td width="425" style="Font-Size: 12px;">#FT.ProfileDescription# (#FT.MoldingDWG#) > Gloss: #FT.GlossDescr# > #FT.FlrThick# > #FT.lgth# in > #FT.Color# > #FT.MfrSpecieDesc# > #FT.FinishCategory#</td>
<cfif Session.RegID is "122">
<cfset PN = FT.ShawPartNumbers>
<cfelse>
<cfset PN = FT.AFIPart>
</cfif>
<cfif FT.AFIPrice2 is "">
<cfelse>
<cfif URL.InputText2 gte FT.AFIPrice5>
<cfset Price = FT.AFIPriceCol5 * Multi>
<cfelseif URL.InputText2 gte FT.AFIPrice4>
<cfset Price = FT.AFIPriceCol4 * Multi>
<cfelseif URL.InputText2 gte FT.AFIPrice3>
<cfset Price = FT.AFIPriceCol3 * Multi>
<cfelseif URL.InputText2 gte FT.AFIPrice2>
<cfset Price = FT.AFIPriceCol2 * Multi>
</cfif>
</cfif>
<!--- <cfdump var="#FT#"> --->
<cfset Price = CPrice(FT.AFIPart, Price)>
<cfset Price = Rounding(Price)>
<td width="75" style="Font-Size: 12px;">#DollarFormat(Price)#</td>
</tr>
</table>
<cfoutput>
<input type="Hidden" name="Alt4#URL.ind#" value="#FT.Color#">
<input type="Hidden" name="Alt5#URL.ind#" value="#FT.FlrThick#">
<input type="Hidden" name="Alt6#URL.ind#" value="#FT.MfrSpecieDesc#">
<input type="Hidden" name="Alt17#URL.ind#" value="#PN#">
<input type="Hidden" name="Alt18#URL.ind#" value="">
<input type="Hidden" name="Alt9#URL.ind#" value="#PN#">
<input type="Hidden" name="Price#URL.ind#" value="#Price#">
<input type="Hidden" name="Alt7#URL.ind#" value="#FT.ProfileDescription#">
<input type="Hidden" name="Alt8#URL.ind#" value="#FT.Flooring_Number#">
<input type="Hidden" name="Alt15#URL.ind#" value="#FT.Lgth#">
<input type="Hidden" name="PVolume#URL.ind#" value="#Prof.PWeight#">
<input type="Hidden" name="PWeight#URL.ind#" value="#Prof.PVolume#">
<input type="Hidden" name="AListItem#URL.ind#" value="#FT.AListItem#">
<input type="Hidden" name="MoldingDwg#URL.ind#" value="#FT.MoldingDwg#">
<input type="Hidden" name="ID#URL.ind#" value="#FT.ID#">
<input type="Hidden" name="ID2#URL.ind#" value="#FT.ID#">
<input type="Hidden" name="Type#URL.ind#" value="4">
</cfoutput>
</cfif>
<cfquery datasource="#Session.DBName#" name="FT">
Select *
From Treads
Where AFIPart = '#url.InputText#'
Order by ProfileDescription
</cfquery>
<cfif FT.AFIPrice gt "0">
<cfparam name="Session.Customer_PriceMultiplierTreads" default="1">
<cfif Session.Customer_PriceMultiplierTreads is "">
<cfset Price = NumberFormat(FT.AFIPrice, ".00")>
<cfelse>
<cfset Price = NumberFormat(FT.AFIPrice, ".00") * Session.Customer_PriceMultiplierTreads>
</cfif>
<cfset Price = CPrice(FT.AFIPart, Price)>
<table cellpadding="2" cellspacing="0" border="0" width="500">
<tr>
<td width="425" style="Font-Size: 12px;">#FT.ProfileDescription# (#FT.MoldingDWG#) > #FT.FlrThick# > #FT.Color# > #FT.MfrSpecieDesc# > #FT.FinishCategory# ></td>
<td width="75" style="Font-Size: 12px;">#DollarFormat(Price)#</td>
</tr>
</table>
<cfquery datasource="#Session.DBName#" name="Prof">
Select *
From ProfileTreads
Where PProfile = #FT.MoldingDwg#
</cfquery>
<cfif Session.RegID is "122">
<cfset PN = FT.ShawPartNumbers>
<cfelse>
<cfset PN = FT.AFIPart>
</cfif>
<cfset Price = CPrice(FT.AFIPart, Price)>
<cfset Price = Rounding(Price)>
<cfoutput>
<input type="Hidden" name="Alt4#URL.ind#" value="#FT.Color#">
<input type="Hidden" name="Alt5#URL.ind#" value="#FT.FlrThick#">
<input type="Hidden" name="Alt6#URL.ind#" value="#FT.MfrSpecieDesc#">
<input type="Hidden" name="Alt17#URL.ind#" value="#PN#">
<input type="Hidden" name="Alt18#URL.ind#" value="">
<input type="Hidden" name="Alt9#URL.ind#" value="#PN#">
<input type="Hidden" name="Price#URL.ind#" value="#Price#">
<input type="Hidden" name="Alt7#URL.ind#" value="#FT.ProfileDescription#">
<input type="Hidden" name="Alt8#URL.ind#" value="#FT.Flooring_Number#">
<input type="Hidden" name="Alt15#URL.ind#" value="#FT.Lgth#">
<input type="Hidden" name="PVolume#URL.ind#" value="#Prof.PWeight#">
<input type="Hidden" name="PWeight#URL.ind#" value="#Prof.PVolume#">
<input type="Hidden" name="AListItem#URL.ind#" value="#FT.AListItem#">
<input type="Hidden" name="MoldingDwg#URL.ind#" value="#FT.MoldingDwg#">
<input type="Hidden" name="ID#URL.ind#" value="#FT.ID#">
<input type="Hidden" name="ID2#URL.ind#" value="#FT.ID#">
<input type="Hidden" name="Type#URL.ind#" value="6">
</cfoutput>
</cfif>
<cfquery datasource="#Session.DBName#" name="FT">
Select *
From Vents
Where AFIPart = '#url.InputText#'
Order by ProfileDescription
</cfquery>
<cfif FT.AFIPrice gt "0">
<cfparam name="Session.Customer_PriceMultiplierVents" default="1">
<cfif Session.Customer_PriceMultiplierVents is "">
<cfset Price = NumberFormat(FT.AFIPrice, ".00")>
<cfelse>
<cfset Price = NumberFormat(FT.AFIPrice, ".00") * Session.Customer_PriceMultiplierVents>
</cfif>
<cfif right(FT.AFIPart, "1") is "1"><cfset Price = Price + Session.VentsUpCharge></cfif>
<cfset Price = CPrice(FT.AFIPart, Price)>
<table cellpadding="2" cellspacing="0" border="0" width="500">
<tr>
<td width="425" style="Font-Size: 12px;">#FT.ProfileDescription# (#FT.MoldingDWG#) > #FT.FlrThick# > #FT.Color# > #FT.MfrSpecieDesc# > #FT.FinishCategory#</td>
<td width="75" style="Font-Size: 12px;">#DollarFormat(Price)#</td>
</tr>
</table>
<cfquery datasource="#Session.DBName#" name="Prof">
Select *
From ProfileVents
Where PProfile = #FT.MoldingDwg#
</cfquery>
<cfif Session.RegID is "122">
<cfset PN = FT.ShawPartNumbers>
<cfelse>
<cfset PN = FT.AFIPart>
</cfif>
<cfset Price = CPrice(FT.AFIPart, Price)>
<cfset Price = Rounding(Price)>
<cfoutput>
<input type="Hidden" name="Alt4#URL.ind#" value="#FT.Color#">
<input type="Hidden" name="Alt5#URL.ind#" value="#FT.FlrThick#">
<input type="Hidden" name="Alt6#URL.ind#" value="#FT.MfrSpecieDesc#">
<input type="Hidden" name="Alt17#URL.ind#" value="#PN#">
<input type="Hidden" name="Alt18#URL.ind#" value="">
<input type="Hidden" name="Alt9#URL.ind#" value="#PN#">
<input type="Hidden" name="Price#URL.ind#" value="#Price#">
<input type="Hidden" name="Alt7#URL.ind#" value="#FT.ProfileDescription#">
<input type="Hidden" name="Alt8#URL.ind#" value="#FT.Flooring_Number#">
<input type="Hidden" name="Alt15#URL.ind#" value="#FT.Lgth#">
<input type="Hidden" name="PVolume#URL.ind#" value="#Prof.PWeight#">
<input type="Hidden" name="PWeight#URL.ind#" value="#Prof.PVolume#">
<input type="Hidden" name="AListItem#URL.ind#" value="#FT.AListItem#">
<input type="Hidden" name="MoldingDwg#URL.ind#" value="#FT.MoldingDwg#">
<input type="Hidden" name="ID#URL.ind#" value="#FT.ID#">
<input type="Hidden" name="ID2#URL.ind#" value="#FT.ID#">
<input type="Hidden" name="Type#URL.ind#" value="5">
</cfoutput>
</cfif>
</cfif>
</cfoutput>
<cfparam name="Price" default="0">
<cfif Price is "0" and URL.InputText is not ""><cfoutput>Part number #url.InputText# is not in the online parts catalog and will not be added to your order. Please check the part number for accuracy.</cfoutput></cfif>
|