<% if Session("gCat")<> 0 then response.redirect "restrictedcat.asp" end if Set dbConnection225 = Server.CreateObject("ADODB.Connection") dbConnection225.Open Session("datasource") SQLQuery = "SELECT * FROM ONSALE2 ORDER BY PAGEORDER" pagetitle3= "Special Values and Savings" Set rsSpecials = dbConnection225.Execute(SQLQuery) if not rsSpecials.EOF then response.write "

" & pagetitle3 & "

" response.write "" do while not rsSpecials.EOF gItemno11 = rsSpecials("Itemno") workkk1 = formatcurrency(getprice(rsSpecials("Itemno"),1)) description = "" & finddescription(rsSpecials("Itemno")) & "
" description = description & gItemno112 & "" picture = find_a_thumb(rsSpecials("itemno")) picture = "" & picture & "" work1 = "" work2 = "" rsSpecials.MoveNext if not rsSpecials.EOF then gItemno11 = rsSpecials("Itemno") workkk1 = formatcurrency(getprice(rsSpecials("Itemno"),1)) description = "" & finddescription(rsSpecials("Itemno")) & "
" description = description & gItemno112 & "" picture = find_a_thumb(rsSpecials("itemno")) picture = "" & picture & "" work3 = "" work4 = "" rsSpecials.MoveNext else work3 = " " work4 = " " end if response.write "" response.write work1 response.write work2 response.write work3 response.write work4 response.write "" loop Set rsSpecials = nothing Set dbConnection225 = nothing response.write "
" & picture & "" & description & "
SKU: " & rsSpecials("Itemno") work2 = work2 & "
" & Session("PrettyPrice") & "		" & picture & "" & description & "
SKU: " & rsSpecials("Itemno") work4 = work4 & "
" & Session("PrettyPrice") & "
" end if %>