<% Response.Buffer = true server.ScriptTimeout = 30 Set conn = Server.CreateObject("ADODB.Connection") conn.open "DSN=test" titletxt = request("patkey") if titletxt = ("") then titletxt = ("Inventory Blowout") else titletxt = request("patkey") end if if request("patprod") <> "" then patitem = request("patprod") patitem = Split(patitem,"^") response.redirect"../cart.asp?description=" & patitem(0) & "&prodid=" & patitem(1) & "&price=" & patitem(2) & "&qty=" & patitem(3) else end if %> <%=ucase(titletxt)%>

Retailers of skate shoes, inline skates & skateboarding goods since 1985

Rollersnakes skate mail order since 1985

VIEW CART | SEARCH

This is a test to format the alt text in a nice fashion

<% IF request("patkey") <> "" THEN dim patext,patext1,patkey1 patkey = request("patkey") if request("patkey1") <> "" then patkey1 = request("patkey1") Set rs2 = Server.CreateObject("ADODB.Recordset") SQL2 = "SELECT * FROM Stock_Item where catdesc ='" & patkey & "' AND Key2 Like '%*%' ORDER BY description ASC" rs2.Open SQL2, Conn, 3, 3 %>

Inventory Blowout

>>> SKATE SHOES >>> <%=ucase(titletxt)%>

<% dim txt pct = 0 patc = -1 do while not rs2.EOF pct = pct + 1 txt=rs2("ref2") txt = Replace(txt," ","") pattext = Split(rs2("description")) thistext1 = (pattext(0)) & " " & (pattext(1)) & " " & (pattext(2)) pattext = (pattext(0)) & " " & (pattext(1)) if pattext = patkey1 then if thistext2 = thistext1 then else if thistext = "" then thistext = replace(thistext1," ","^") if right(thistext,1) = "^" then mntext = len(thistext) mntext = mntext - 1 thistext = left(thistext,mntext) & " " end if patc = patc + 1 thistext2 = thistext1 else thistext = thistext & " " & replace(thistext1," ","^") patc = patc + 1 thistext2 = thistext1 end if end if else end if mydesc = rs2("description") %> <% rs2.movenext loop patnew = Split(thistext) for x = 0 to patc step 1 patn = replace(patnew(x),"^", " ") patn = patn & " " Set rs22 = Server.CreateObject("ADODB.Recordset") SQL22 = "SELECT * FROM Stock_Item where description LIKE '" & patn & "%' AND Key2 Like '%*%' ORDER BY description ASC" rs22.Open SQL22, Conn, 3, 3 if rs22.eof and rs22.bof then else txt=rs22("ref2") txt = Replace(txt," ","") %> <% txt = "" next %> <% if patnum = 1 then %> <% end if if patnum = 2 then %> <% end if %>

<% Set fs=Server.CreateObject("Scripting.FileSystemObject") If (fs.FileExists("D:\www\rollersnakes.co.uk\tnails\" & txt & ".jpg"))=true Then set fs = nothing %> <% Else %> NO IMAGE <% end if %>	Sale Price Ł <%=formatnumber(rs22("gross_price")*0.77,2)%> CLICK THE IMAGE ZOOM IN
--	--
--

Notes:

All of the above products are currently in stock.
On clicking the thumbnail a small window will launch.
If an image is not available the server will state NO IMAGE.
Each time you click on the thumbnail the image will be loaded into the same small window, giving you the ability to click forwards and backwards to compare products.
You must allow javascript / pop ups to view the product images, this may involve holding down Ctrl (control) when clicking the thumbnail.

<% else Set rs2 = Server.CreateObject("ADODB.Recordset") SQL2 = "SELECT * FROM Stock_Item WHERE catdesc ='" & patkey & "' AND key2 LIKE '%*%' ORDER BY description ASC" rs2.Open SQL2, Conn, 3, 3 response.write"

Inventory Blowout

>>> " response.write"SKATE SHOES >>> " & ucase(titletxt) & "

" response.write"The images & descriptions below are representations of the products available within the catagories shown.
" response.write"Please click on VIEW ALL PRODUCTS to see the full range.

" response.write "" pattext1 = "" do while not rs2.EOF pattext = Split(rs2("description")) pattext = (pattext(0)) & " " & (pattext(1)) if pattext = pattext1 then else pattext1 = pattext patnum = patnum + 1 txt=rs2("ref2") txt = Replace(txt," ","") if txt => ("0") then txt = txt else txt = ("No Image") end if Response.write "" end if rs2.movenext if patnum = 3 then patnum = 0 response.write"" end if loop if patnum = 1 then response.write "" end if if patnum = 2 then response.write"" end if response.write"

" & pattext1 & " WAS Ł " & formatnumber(rs2("gross_price"),2) & " NOW Ł " & formatnumber(rs2("gross_price")*0.77,2) & " VIEW ALL PRODUCTS
--	--
--

" response.write"

The images above are representations of the types of products available within the catagories shown." response.write"
Please click on VIEW ALL PRODUCTS to see the full range." end if ELSE %>

Inventory Blowout

>>> SKATE SHOES

<% counter = 1 Set rs1 = Server.CreateObject("ADODB.Recordset") SQL1 = "SELECT DISTINCT catdesc FROM Stock_Item WHERE key2 LIKE '%*%' ORDER BY catdesc ASC" rs1.Open SQL1, Conn, 3, 3 do while not rs1.EOF patcheck = "shoe" if instr(1,lcase(rs1("catdesc")),patcheck)>0 then pa1 = lcase(rs1("catdesc")) pa2 = replace(pa1,"shoes","") response.write "" & ucase(pa1) & " > " counter = counter + 1 end if rs1.MoveNext loop %>

We have loads more stock coming to this page soon, so please check back regulary. Everything you see here is end of line stock, so once its gone... its gone.

<% END IF %>

+ SKATE SHOES

+ SKATEBOARD CLOTHING

+ SKATEBOARD HARDWARE

+ INLINE SKATES

+ INLINE CLOTHING

+ INLINE HARDWARE

+ GIRLS

+ ROLLERSNAKES GOODS

+ INVENTORY BLOWOUT

+ SKATEBOARD HARDWARE
+ SKATEBOARD CLOTHING
+ SKATEBOARD MISC
+ SKATE SHOES
<% Set rs1 = Server.CreateObject("ADODB.Recordset") SQL1 = "SELECT DISTINCT catdesc FROM Stock_Item WHERE key2 LIKE '%*%' ORDER BY catdesc ASC" rs1.Open SQL1, Conn, 3, 3 do while not rs1.EOF patcheck = "shoe" if instr(1,lcase(rs1("catdesc")),patcheck)>0 then pa1 = lcase(rs1("catdesc")) pa2 = replace(pa1,"shoes","") response.write "" & ucase(pa2) & "
" end if rs1.MoveNext loop conn.Close set conn = nothing set rs1 = nothing %>
+ INLINE SKATES ETC
+ INLINE CLOTHING
+ INLINE MISC
+ GIRLS MISC
+ BLOWOUT SUPERDEALS

+ JOIN E-MAIL OUT