<%@ 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" Conn.Open "Driver={Microsoft Access Driver (*.mdb)};" & "DBQ=" & Server.MapPath(".") & "\data\data.mdb" strSQL = "Select * from products where category='Offers_1'" set rstdata = conn.Execute(strSQL) %> Vertical Blind Offers
 
 
shopforblinds.co.uk
 
 
 

Vertical Blinds

Probably the most versatile blind solution available. With an extensive range of vertical blinds available you are sure to find something to meet your tastes.

  
 
     
  Vertical Blinds are today's modern alternative to curtains. Most of our vertical fabrics are Hand Washable. The samples shown are illustrations. You are advised to order FREE Samples just click on the fabric required then click on Order Free Sample button or give our help desk a call, your free samples will be sent next day.
 
 
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.
 
Budget Range
Max Width 2000mm over this size £10.00 will be added
 
 
Service Advisor
0116 276 3863
 
 
VEIW CART  
 
   
   
  Please choose a colour for your Vertical blind    
 
<% 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 %>
   
       
                     
    Best Buy Range    
Max Width 2000mm over this size £10.00 will be added
  
    Please choose a colour for your Vertical blind      
   
<% 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='Offers_2'" 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 %>
   
         
 
    Executive Range
  
Max Width 2000mm over this size £10.00 will be added
          
           
    Please choose a colour for your Vertical blind              
   
<% 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='Offers_3'" 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 %>