<% Dim FeaturedHorsie(9), FeaturedHorsieDesc(9) ' Item numbers for the featured Horsies. FeaturedHorsie(0) = "K104062" FeaturedHorsie(1) = "2K01054" FeaturedHorsie(2) = "2K12224" FeaturedHorsie(3) = "0103050" FeaturedHorsie(4) = "K105208" FeaturedHorsie(5) = "2K12032" FeaturedHorsie(6) = "0106124" FeaturedHorsie(7) = "0108137" FeaturedHorsie(8) = "K103061" ' Override description for the featured Horsies. Use if the description is too long or ' additional information is needed. FeaturedHorsieDesc(0) = "" FeaturedHorsieDesc(1) = "" FeaturedHorsieDesc(2) = "" FeaturedHorsieDesc(3) = "" FeaturedHorsieDesc(4) = "" FeaturedHorsieDesc(5) = "" FeaturedHorsieDesc(6) = "" FeaturedHorsieDesc(7) = "" FeaturedHorsieDesc(8) = "" %>
Featured Horsies
<% For HorsieCount = 0 to 8 Select Case HorsieCount Case 0 response.write "" Case 3 response.write "" Case 6 response.write "" End Select ' Create the SQL query based on the item number passed from HorsiesQueryResults.asp ItemNo = FeaturedHorsie(HorsieCount) SelectStatement = "SELECT Horsies.Item, " _ & "Manu.Manu_Name, " _ & "Horsies.Model_No, " _ & "Horsies.Mold, " _ & "Horsies.Name " _ & "FROM Manu, Horsies " _ & "WHERE Manu.Manu_Code = Horsies.Manu_Code AND " _ & "Horsies.Item = '" & ItemNo & "'" ' Create the record set based on the SQL query Set objHorsiesDetailSet = Server.CreateObject("ADODB.Recordset") objHorsiesDetailSet.Open SelectStatement,objHorsiesInventoryDB,0 HorsieManu = objHorsiesDetailSet(1) HorsieModel = objHorsiesDetailSet(2) HorsieMold = objHorsiesDetailSet(3) HorsieName = objHorsiesDetailSet(4) if (FeaturedHorsieDesc(HorsieCount) <> "") then HorsieDesc = FeaturedHorsieDesc(HorsieCount) elseif (HorsieName <> "") then HorsieDesc = HorsieName elseif (HorsieMold <> "") then HorsieDesc = HorsieMold if (HorsieModel <> "") then HorsieDesc = HorsieDesc & " " & HorsieModel end if else HorsieDesc = HorsieModel end if response.write("") Next %>
") response.write("") response.write("") response.write("
") response.write("
" & HorsieDesc & "
") response.write("