<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim titles Dim titles_numRows Set titles = Server.CreateObject("ADODB.Recordset") titles.ActiveConnection = MM_nouveau_STRING titles.Source = "SELECT * FROM COLLECTIONS ORDER BY thisway ASC" titles.CursorType = 0 titles.CursorLocation = 2 titles.LockType = 1 titles.Open() titles_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 titles_numRows = titles_numRows + Repeat1__numRows %> <% id = request("id") if not id="" then sql = "select title,intro from collections where id = " & id Set rs = Server.CreateObject("ADODB.Recordset") rs.ActiveConnection = MM_nouveau_STRING rs.Source = sql rs.CursorType = 0 rs.CursorLocation = 2 rs.LockType = 1 rs.Open() if not rs.eof then dbdata_rs = true title = rs.fields("title") intro = rs.fields("intro") end if if dbdata_rs then sql = "select * from collections_images where collection_id = " & id Set rsimage = Server.CreateObject("ADODB.Recordset") rsimage.ActiveConnection = MM_nouveau_STRING rsimage.Source = sql rsimage.CursorType = 0 rsimage.CursorLocation = 2 rsimage.LockType = 1 rsimage.Open() if not rsimage.eof then dbdata_rsimage = true else dbdata_rsimage = false end if end if%> Fabrics, Wallpapers and Trimmings : Upholstery and Curtain Fabric by Nouveau

HOME|COMPANY|COLLECTIONS|WHERE TO BUY|MILL SHOP|LOCATION|CONTACT

Collections

<% While ((Repeat1__numRows <> 0) AND (NOT titles.EOF)) %>

"><%=(titles.Fields.Item("title").Value)%>

<% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 titles.MoveNext() Wend %>
<% if dbdata_rsimage then%>" name="big" alt="<% if dbdata_rs then response.write title else response.write "" end if %>" width="250" height="250" class="bothbrd" id="big"><% else response.write "" end if %>

<% if dbdata_rs then response.write title else response.write "Sorry.." end if %>

<% if dbdata_rs then if not intro = "" then if instr(cstr(intro),vbcrlf)>0 then response.write replace(intro,vbcrlf,"

") else response.write intro end if end if else response.write "The collection you have requested is currently unavailable. Please try again at another time. Thank you." end if %>

<% if dbdata_rsimage then n=1 do while not rsimage.eof response.write "" rsimage.movenext() n=n+1 loop end if%>

Nouveau Fabrics Ltd . Queens Road . Doncaster . South Yorkshire . DN1 2NH
Tel: 01302 329601 . Fax: 01302 341489
Copyright 2004 Nouveau Fabrics

<% titles.Close() Set titles = Nothing %>