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

>>> INLINE CLOTHING >>> <%=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")*0.73,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"INLINE CLOTHING >>> " & 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.73,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

>>> INLINE CLOTHING

<% counter = 0 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 = "rollersnakes hood" if instr(1,lcase(rs1("catdesc")),patcheck)>0 then pa1 = rs1("catdesc") response.write "" & ucase(pa1) & " > " end if patcheck = "rollersnakes tee" if instr(1,lcase(rs1("catdesc")),patcheck)>0 then pa1 = rs1("catdesc") response.write "" & ucase(pa1) & " > " end if patcheck = "f" if instr(1,lcase(rs1("catcode")),patcheck)>0 then pa1 = rs1("catdesc") response.write "" & ucase(pa1) & " > " end if patcheck = "g" if instr(1,lcase(rs1("catcode")),patcheck)>0 then pa1 = rs1("catdesc") response.write "" & ucase(pa1) & " > " end if patcheck = "h" if instr(1,lcase(rs1("catcode")),patcheck)>0 then pa1 = rs1("catdesc") response.write "" & ucase(pa1) & " > " 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.

Please use the links on the right to navigate to the page of your choice

<% 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
<% 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 = "rollersnakes hood" if instr(1,lcase(rs1("catdesc")),patcheck)>0 then pa1 = rs1("catdesc") response.write "" & ucase(pa1) & "
" end if patcheck = "rollersnakes tee" if instr(1,lcase(rs1("catdesc")),patcheck)>0 then pa1 = rs1("catdesc") response.write "" & ucase(pa1) & "
" end if patcheck = "f" if instr(1,lcase(rs1("catcode")),patcheck)>0 then pa1 = rs1("catdesc") response.write "" & ucase(pa1) & "
" end if patcheck = "g" if instr(1,lcase(rs1("catcode")),patcheck)>0 then pa1 = rs1("catdesc") response.write "" & ucase(pa1) & "
" end if patcheck = "h" if instr(1,lcase(rs1("catcode")),patcheck)>0 then pa1 = rs1("catdesc") response.write "" & ucase(pa1) & "
" end if rs1.MoveNext loop conn.Close set conn = nothing set rs1 = nothing %>
+ INLINE MISC
+ GIRLS MISC
+ BLOWOUT SUPERDEALS

+ JOIN E-MAIL OUT