<%= rsEquipment("Model") %>
<%= rsEquipment("Description") %>
<%= strPrice %>
Contact us for more information at (800) 860-7284
%@Language=VBScript%> <% Option Explicit %> <% dim counter dim sqlEquipment, rsEquipment, sqlImages, rsImages dim strPrice dim sqlCategory, rsCategory sqlCategory = "SELECT distinct C.ID, C.Image_ID, C.Category FROM Category C inner join Equipment E on E.Category_ID = C.ID" set rsCategory = conn.Execute(sqlCategory) sqlEquipment = "SELECT E.*, C.ID as Category_ID FROM Equipment E inner join Category C on E.Category_ID = C.ID where E.ID = " & Request.Item("id") set rsEquipment = conn.Execute(sqlEquipment) sqlImages = "SELECT * FROM Equipment_Image where Equipment_ID = " & Request.Item("id") set rsImages = conn.Execute(sqlImages) dim strImages strImages = "" counter = 1 do until rsImages.eof if counter > 1 then strImages = strImages & "," end if strImages = strImages & "'" & rsImages("ID") & ".jpg': { caption: '' }" counter = counter + 1 rsImages.movenext loop strPrice = rsEquipment("Price") if strPrice <> "POR" then strPrice = "$" & FormatNumber(strPrice,2) & " plus tax" end if %>
<%= rsEquipment("Description") %>
<%= strPrice %>
Contact us for more information at (800) 860-7284