<% 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 %> <%=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

>>> BLOWOUT SUPERDEALS >>> <%=ucase(titletxt)%>

<% dim txt pct = 0 do while not rs2.EOF pct = pct + 1 txt=rs2("ref2") txt = Replace(txt," ","") pattext = Split(rs2("description")) pattext = (pattext(0)) & " " & (pattext(1)) if pattext = patkey1 then %> <% else end if rs2.movenext loop if patnum = 1 then %> <% end if if patnum = 2 then %> <% end if %>

<%=rs2("description")%> WAS Ł <%=formatnumber(rs2("gross_price"),2)%> PRICE NOW Ł <%=formatnumber(rs2("gross_price")/100*50,2)%> <%=rs2("memo")%>	<% 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 %>	"> "> "> Please click on the thumbnail for a larger image.
--	--
--

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"Blowout superdeals >>> " & 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")/100*50,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

>>> BLOWOUT SUPERDEALS

Please use the links to the right to navigate our superdeals

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.

Final Reductions on all our skateboard and inline skate brands. A massive 50% OFF the retail price of the goods

<% 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
+ INLINE SKATES ETC
+ INLINE CLOTHING
+ INLINE MISC
+ GIRLS MISC
+ BLOWOUT SUPERDEALS
<% Set rs1 = Server.CreateObject("ADODB.Recordset") SQL1 = "SELECT DISTINCT catcode,catdesc FROM Stock_Item WHERE key2 LIKE '%#%' ORDER BY catdesc ASC" rs1.Open SQL1, Conn, 3, 3 do while not rs1.EOF patcheck = "a" if instr(1,lcase(rs1("catcode")),patcheck)>0 then pa1 = lcase(rs1("catdesc")) response.write "" & ucase(pa1) & "
" end if patcheck = "b" if instr(1,lcase(rs1("catcode")),patcheck)>0 then pa1 = lcase(rs1("catdesc")) response.write "" & ucase(pa1) & "
" end if patcheck = "c" if instr(1,lcase(rs1("catcode")),patcheck)>0 then pa1 = lcase(rs1("catdesc")) response.write "" & ucase(pa1) & "
" end if patcheck = "d" if instr(1,lcase(rs1("catcode")),patcheck)>0 then pa1 = lcase(rs1("catdesc")) response.write "" & ucase(pa1) & "
" end if patcheck = "e" if instr(1,lcase(rs1("catcode")),patcheck)>0 then pa1 = lcase(rs1("catdesc")) response.write "" & ucase(pa1) & "
" end if patcheck = "f" if instr(1,lcase(rs1("catcode")),patcheck)>0 then pa1 = lcase(rs1("catdesc")) response.write "" & ucase(pa1) & "
" end if patcheck = "g" if instr(1,lcase(rs1("catcode")),patcheck)>0 then pa1 = lcase(rs1("catdesc")) response.write "" & ucase(pa1) & "
" end if patcheck = "h" if instr(1,lcase(rs1("catcode")),patcheck)>0 then pa1 = lcase(rs1("catdesc")) response.write "" & ucase(pa1) & "
" end if patcheck = "i" if instr(1,lcase(rs1("catcode")),patcheck)>0 then pa1 = lcase(rs1("catdesc")) response.write "" & ucase(pa1) & "
" end if patcheck = "j" if instr(1,lcase(rs1("catcode")),patcheck)>0 then pa1 = lcase(rs1("catdesc")) response.write "" & ucase(pa1) & "
" end if patcheck = "k" if instr(1,lcase(rs1("catcode")),patcheck)>0 then pa1 = lcase(rs1("catdesc")) response.write "" & ucase(pa1) & "
" end if patcheck = "l" if instr(1,lcase(rs1("catcode")),patcheck)>0 then pa1 = lcase(rs1("catdesc")) response.write "" & ucase(pa1) & "
" end if patcheck = "m" if instr(1,lcase(rs1("catcode")),patcheck)>0 then pa1 = lcase(rs1("catdesc")) response.write "" & ucase(pa1) & "
" end if patcheck = "n" if instr(1,lcase(rs1("catcode")),patcheck)>0 then pa1 = lcase(rs1("catdesc")) response.write "" & ucase(pa1) & "
" end if patcheck = "o" if instr(1,lcase(rs1("catcode")),patcheck)>0 then pa1 = lcase(rs1("catdesc")) response.write "" & ucase(pa1) & "
" end if patcheck = "p" if instr(1,lcase(rs1("catcode")),patcheck)>0 then pa1 = lcase(rs1("catdesc")) response.write "" & ucase(pa1) & "
" end if patcheck = "q" if instr(1,lcase(rs1("catcode")),patcheck)>0 then pa1 = lcase(rs1("catdesc")) response.write "" & ucase(pa1) & "
" end if patcheck = "r" if instr(1,lcase(rs1("catcode")),patcheck)>0 then pa1 = lcase(rs1("catdesc")) response.write "" & ucase(pa1) & "
" end if patcheck = "s" if instr(1,lcase(rs1("catcode")),patcheck)>0 then pa1 = lcase(rs1("catdesc")) response.write "" & ucase(pa1) & "
" end if patcheck = "t" if instr(1,lcase(rs1("catcode")),patcheck)>0 then pa1 = lcase(rs1("catdesc")) response.write "" & ucase(pa1) & "
" end if patcheck = "u" if instr(1,lcase(rs1("catcode")),patcheck)>0 then pa1 = lcase(rs1("catdesc")) response.write "" & ucase(pa1) & "
" end if patcheck = "v" if instr(1,lcase(rs1("catcode")),patcheck)>0 then pa1 = lcase(rs1("catdesc")) response.write "" & ucase(pa1) & "
" end if rs1.MoveNext loop conn.Close set conn = nothing set rs1 = nothing %>

+ JOIN E-MAIL OUT