<%@ language=VBScript %> <% dim strSQL, section1, section2, section3 set conn = server.createobject ("adodb.connection") 'conn.open "Driver={MySQL ODBC 3.51 Driver}; Server=mysql02.iomart.com; Database=allemax; UID=allemax; PWD=Marky21; Option=3" 'set Connection=server.createobject("adodb.connection") Conn.Open "Driver={Microsoft Access Driver (*.mdb)};" & "DBQ=" & Server.MapPath(".") & "\data\data.mdb" 'Set rsList = CreateObject("adodb.recordset") strSQL = "Select * from products where category='Pattern Roller Blinds'" set rstdata = conn.Execute(strSQL) %> Roller Blinds
 
 
shopforblinds.co.uk
 
 
   
    Roller Blind                
                       
      Our made to measure roller blind collection has been specially chosen to offer the right mix of modern and traditional patterns and colours. We believe our fabrics are a little different and we hope you find something to your liking. Many people are finding new uses for rollers, to cover messy shelves or cupboards for example.        
 
Service Advisor
0116 276 3863
 
BASKET 
 
 
 
Please choose a colour for your roller blind
      
Pattern Fabrics for Roller Blinds
<% x=1 %> <% rstdata.movefirst do while not rstdata.eof %> <% if x=1 then %> <% elseif x=2 then %> <% elseif x=3 then %> <% end if rstdata.MoveNext Loop if x=1 or x=2 then %> <% end if rstdata.close set rstdata=nothing set conn=nothing %>

<%=rstdata("name")%>
">" border=0><% x=2 %>

  

<%=rstdata("name")%>
">" border=0><% x=3 %>

  

<%=rstdata("name")%>
">" border=0><% x=1 %>
 
   
Plain Fabrics for Roller Blinds
<% dim strSQL2 set conn2 = server.createobject ("adodb.connection") 'conn.open "Driver={MySQL ODBC 3.51 Driver}; Server=mysql02.iomart.com; Database=allemax; UID=allemax; PWD=Marky21; Option=3" Conn2.Open "Driver={Microsoft Access Driver (*.mdb)};" & "DBQ=" & Server.MapPath(".") & "\data\data.mdb" strSQL2 = "Select * from products where category='Plain Roller Blinds'" set rstdata2 = conn2.Execute(strSQL2) %> <% x=1 %> <% rstdata2.movefirst do while not rstdata2.eof %> <% if x=1 then %> <% elseif x=2 then %> <% elseif x=3 then %> <% end if rstdata2.MoveNext Loop if x=1 or x=2 then %> <% end if rstdata2.close set rstdata2=nothing set conn2=nothing %>

<%=rstdata2("name")%>
">" border=0><% x=2 %>

  

<%=rstdata2("name")%>
">" border=0><% x=3 %>

  

<%=rstdata2("name")%>
">" border=0><% x=1 %>
   
 
 
Blackout Fabrics for Roller Blinds
<% dim strSQL3 set conn3 = server.createobject ("adodb.connection") 'conn.open "Driver={MySQL ODBC 3.51 Driver}; Server=mysql02.iomart.com; Database=allemax; UID=allemax; PWD=Marky21; Option=3" Conn3.Open "Driver={Microsoft Access Driver (*.mdb)};" & "DBQ=" & Server.MapPath(".") & "\data\data.mdb" strSQL3 = "Select * from products where category='Blackout Roller Blind'" set rstdata3 = conn3.Execute(strSQL3) %> <% x=1 %> <% rstdata3.movefirst do while not rstdata3.eof %> <% if x=1 then %> <% elseif x=2 then %> <% elseif x=3 then %> <% end if rstdata3.MoveNext Loop if x=1 or x=2 then %> <% end if rstdata3.close set rstdata3=nothing set conn3=nothing %>

<%=rstdata3("name")%>
">" border=0><% x=2 %>

  

<%=rstdata3("name")%>
">" border=0><% x=3 %>

  

<%=rstdata3("name")%>
">" border=0><% x=1 %>
 
  Each blind you order will be Made to Measure, which means a turnaround time of around a week to get your blinds to you. Fitting is generally self explanatory but we supply fitting help on the blinds website. All you need are some basic tools, a drill and a screwdriver being the main ones.