<% current_week=DatePart("ww", Date) Set weekonrecordrs = Server.CreateObject("ADODB.Recordset") weekonrecordsql = "SELECT * FROM RinglinksWeek" set weekonrecordrs = conn.execute(weekonrecordsql) exisitingweek = weekonrecordrs("TheWeek") If cInt(exisitingweek) <> cInt(current_week) Then Randomize R=clng(100000*rnd) Set newweekrs = Server.CreateObject("ADODB.Recordset") newweeksql = "UPDATE RinglinksWeek SET TheWeek = '" & current_week & "' WHERE ID = 1" newweekrs.Open newweeksql, conn, 3, , &H0001 Set newweekrs2 = Server.CreateObject("ADODB.Recordset") newweeksql2 = "UPDATE RinglinksWeek SET RandomNumber = '" & R & "' WHERE ID = 1" newweekrs2.Open newweeksql2, conn, 3, , &H0001 End If Set weekonrecordrs2 = Server.CreateObject("ADODB.Recordset") weekonrecordrs2 = "SELECT * FROM RinglinksWeek" R = weekonrecordrs("RandomNumber") Set rotaters = Server.CreateObject("ADODB.Recordset") rotatesql = "SELECT Top 5 * FROM Ringlinks WHERE Show = 'y' ORDER BY rand(-(Ringlinks.ID *" & R & "))" rotaters.Open rotatesql, conn, 3, , &H0001 %>
Featured this week!
: <% Do While Not rotaters.EOF %> <% If InStr(rotaters("LinkText"),"Canon") Then %> "><%= rotaters("LinkText") %> : <% End If %> <% If InStr(rotaters("LinkText"),"Epson") Then %> "><%= rotaters("LinkText") %> : <% End If %> <% If InStr(rotaters("LinkText"),"HP") Then %> "><%= rotaters("LinkText") %> : <% End If %> <% If InStr(rotaters("LinkText"),"Lexmark") Then %> "><%= rotaters("LinkText") %> : <% End If %> <% If InStr(rotaters("LinkText"),"Xerox") Then %> "><%= rotaters("LinkText") %> : <% End If %> <% rotaters.MoveNext loop %>

Security Statement - Privacy Policy - Legal Terms and Conditions - Delivery Options - Complaints - Returns & Refunds -

Prices listed on this website are in British Pounds (£) and are inclusive of VAT. This website is managed by valueshop.co.uk. All brand names and Trademarks used here are for identification purposes only. These names and Trademarks belong to their registered owners.


Quick Find Chart
Epson DX Series Printers
epson d68 : d88 : dx3800 : dx3850 : dx4200 : dx4800 : dx4850 :
Epson CX Series Printers
epson cx3200 : cx3600 : cx3650 : cx5200 : cx5400 : cx6400 : cx6600 :
Epson Stylus Series Printers
epson stylus : 1000 : 1500 : 200 : 300 : 400 : 800+ : 820 : stylus pro : pro_xl : ii : iis : 200 : 300 : 400 : 460 : 480 : 480sxu : 500 : 580 : 600 : 640 : 660 : 670 : 680 : 740 : 760 : 777 : 777i : 850 : 850ne : 860 : 880 : 900n : 980 : 1160 : 1520 : 3000 : 2000 : 2500 :
Epson Picturemate Printers
epson picturemate printers : 100 : 100mpe : 500 :
Epson C Series Printers
epson c20sx : c40sx : c40_plus : c42sx : c44ux : c46 : c48 : c60 : c62 : c64 : c66 : c70 : c80 : c82 : c84 : c86 :
Epson R Series Printers
epson r200 : r220 : r300 : r320 : r800 : r1800 : r2400 : rx420 : rx425 : rx500 : rx600 : rx620 : rx700 : rx640 : r240 : r340 : rx520
Epson Photo Series
epson photo printers : Photo 700 : 750 : 790 : 810 : 830 : 870 : 870se : 875 : 890 : 895 : 900 : 915 : 925 : 935 : 950 : 1200 : 1270 : 1290 : 2100 : epson_2000p.asp