<% 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 %>

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.