<% 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 MFGno.MFGno, MFGno.Description FROM MFGno, SKU, ProductModelNo WHERE MFGno.MFGno = SKU.MFGno AND MFGno.MFGno = ProductModelNo.MFGno ORDER BY rand(-(ProductModelNo.ID *" & R & "))"
rotaters.Open rotatesql, conn, 3, , &H0001 %>
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.
