%@ 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='Suede'"
set rstdata = conn.Execute(strSQL)
%>
Suede Blinds
| |
 |
|
shopforblinds.co.uk |
|
|
|
| |
|
|
|
| |
|
|
|
|
|
 |
| |
|
|
|
|
Faux Suede |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
This beautiful designer fabric
has a striking soft rich finish and is available in 4 fashionable shades:
Natural, Camel Chocolate and beige. |
|
|
|
|
|
|
|
|
|
|
| |
|
|
 |
<% x=1 %>
<% rstdata.movefirst
do while not rstdata.eof
%>
<% if x=1 then %>
|
<%=rstdata("name")%>
"> " border=0><% x=2 %> |
|
<% elseif x=2 then %>
<%=rstdata("name")%>
"> " border=0><% x=3 %> |
|
<% elseif x=3 then %>
<%=rstdata("name")%>
"> " border=0><% x=1 %> |
<% end if
rstdata.MoveNext
Loop
if x=1 or x=2 then
%>
<%
end if
rstdata.close
set rstdata=nothing
set conn=nothing
%>
|
|
|
|
| |
|
|
|
|
|
|
Service
Advisor
|
|
|
|
| 0116
276 3863 |
|
|
| |
|
|
| FREE
SAMPLES |
|
| |
|
 |
|
| BASKET |
|
| |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
 |
|
|
|
|
|
|
|
|
|
|
|
|
|
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. |
|
|
|
|
|
|
|
|
|
|
| |
|
|
|
|
|
|
|
|