Dim db
Dim strserver
Dim strmonthly
Dim stryearly
Dim strday
db2 = "CSSOPT"
strserver = "OICU8121100341A5AAB"
'Create Connection
set db = CreateObject("ADODB.Connection")
strdb = "driver={SQL SERVER};server=" & strserver & ";uid=sa;pwd=password;database=" & db2 & ""
db.Open strdb
'Create Command
set doit = CreateObject("ADODB.Command")
set doit.ActiveConnection = db
strmonthly=datepart("m",date)
stryearly=datepart("yyyy",date)
strday=datepart("d",date)
If strmonthly="1" then
strmonthly="January"
elseif strmonthly="2" then
strmonthly="February"
elseif strmonthly="3" then
strmonthly="March"
elseif strmonthly="4" then
strmonthly="April"
elseif strmonthly="5" then
strmonthly="May"
elseif strmonthly="6" then
strmonthly="June"
elseif strmonthly="7" then
strmonthly="July"
elseif strmonthly="8" then
strmonthly="August"
elseif strmonthly="9" then
strmonthly="September"
elseif strmonthly="10" then
strmonthly="October"
elseif strmonthly="11" then
strmonthly="November"
elseif strmonthly="12" then
strmonthly="December"
else
end if
db.execute ("UPDATE Team SET tpoints='10', yrpoints='0', mopoints='0', npoints='0', memo=''")
db.execute ("UPDATE Team2 SET tpoints='10', yrpoints='0', mopoints='0', npoints='0', memo=''")
db.execute ("UPDATE Team3 SET tpoints='10', yrpoints='0', mopoints='0', npoints='0', memo=''")
db.execute ("UPDATE Team4 SET tpoints='10', yrpoints='0', mopoints='0', npoints='0', memo=''")
db.execute ("UPDATE Team5 SET tpoints='10', yrpoints='0', mopoints='0', npoints='0', memo=''")
db.execute ("UPDATE Team6 SET tpoints='10', yrpoints='0', mopoints='0', npoints='0', memo=''")
db.execute ("UPDATE Team7 SET tpoints='10', yrpoints='0', mopoints='0', npoints='0', memo=''")
db.execute ("UPDATE Team8 SET tpoints='10', yrpoints='0', mopoints='0', npoints='0', memo=''")
db.execute ("UPDATE Team9 SET tpoints='10', yrpoints='0', mopoints='0', npoints='0', memo=''")
db.execute ("UPDATE Team10 SET tpoints='10', yrpoints='0', mopoints='0', npoints='0', memo=''")
db.execute ("UPDATE Home SET ttmopoints='0'")
sql = "Select * FROM Home"
set rs = CreateObject("ADODB.Recordset")
rs.Open sql, db
For i=1 to 10
set rty=db.execute ("SELECT SUM(Home.tyrpoints) as strytotal from Home WHERE ID="& i)
set rty2=db.execute ("SELECT SUM(Home.t2yrpoints) as strytotal2 from Home WHERE ID="& i)
set rty3=db.execute ("SELECT SUM(Home.t3yrpoints) as strytotal3 from Home WHERE ID="& i)
set rty4=db.execute ("SELECT SUM(Home.t4yrpoints) as strytotal4 from Home WHERE ID="& i)
set rty5=db.execute ("SELECT SUM(Home.t5yrpoints) as strytotal5 from Home WHERE ID="& i)
set rty6=db.execute ("SELECT SUM(Home.t6yrpoints) as strytotal6 from Home WHERE ID="& i)
set rty7=db.execute ("SELECT SUM(Home.t7yrpoints) as strytotal7 from Home WHERE ID="& i)
set rty8=db.execute ("SELECT SUM(Home.t8yrpoints) as strytotal8 from Home WHERE ID="& i)
set rty9=db.execute ("SELECT SUM(Home.t9yrpoints) as strytotal9 from Home WHERE ID="& i)
set rty10=db.execute ("SELECT SUM(Home.t10yrpoints) as strytotal10 from Home WHERE ID="& i)
set ytp=db.execute ("SELECT SUM(Home.ttyrpts) as stryrtotal from Home WHERE ID="& i)
' set ytp2=db.execute ("SELECT SUM(Home.tt2yrpts) as stryrtotal2 from Home WHERE ID="& i)
' set ytp3=db.execute ("SELECT SUM(Home.tt3yrpts) as stryrtotal3 from Home WHERE ID="& i)
' set ytp4=db.execute ("SELECT SUM(Home.tt4yrpts) as stryrtotal4 from Home WHERE ID="& i)
' set ytp5=db.execute ("SELECT SUM(Home.tt5yrpts) as stryrtotal5 from Home WHERE ID="& i)
' set ytp6=db.execute ("SELECT SUM(Home.tt6yrpts) as stryrtotal6 from Home WHERE ID="& i)
' set ytp7=db.execute ("SELECT SUM(Home.tt7yrpts) as stryrtotal7 from Home WHERE ID="& i)
' set ytp8=db.execute ("SELECT SUM(Home.tt8yrpts) as stryrtotal8 from Home WHERE ID="& i)
' set ytp9=db.execute ("SELECT SUM(Home.tt9yrpts) as stryrtotal9 from Home WHERE ID="& i)
' set ytp10=db.execute ("SELECT SUM(Home.tt10yrpts) as stryrtotal10 from Home WHERE ID="& i)
stryear= rty("strytotal") + rty2("strytotal2") + rty3("strytotal3") + rty4("strytotal4") + rty5("strytotal5") + rty6("strytotal6") + rty7("strytotal7") + rty8("strytotal8") + rty9("strytotal9") + rty10("strytotal10")
stryr= ytp("stryrtotal")
'+ ytp2("stryrtotal2") + ytp3("stryrtotal3") + ytp4("stryrtotal4") + ytp5("stryrtotal5") + ytp6("stryrtotal6") + ytp7("stryrtotal7") + ytp8("stryrtotal8") + ytp9("stryrtotal9") + ytp10("stryrtotal10")
stry= stryr + stryear
strSQL = "UPDATE Home SET ttyrpts='"& stry &"' WHERE ID="& i
db.Execute strSQL
Next
db.execute ("UPDATE Home SET tyrpoints='0', tmopoints='0'")
db.execute ("UPDATE Home SET t2yrpoints='0', t2mopoints='0'")
db.execute ("UPDATE Home SET t3yrpoints='0', t3mopoints='0'")
db.execute ("UPDATE Home SET t4yrpoints='0', t4mopoints='0'")
db.execute ("UPDATE Home SET t5yrpoints='0', t5mopoints='0'")
db.execute ("UPDATE Home SET t6yrpoints='0', t6mopoints='0'")
db.execute ("UPDATE Home SET t7yrpoints='0', t7mopoints='0'")
db.execute ("UPDATE Home SET t8yrpoints='0', t8mopoints='0'")
db.execute ("UPDATE Home SET t9yrpoints='0', t9mopoints='0'")
db.execute ("UPDATE Home SET t10yrpoints='0', t10mopoints='0'")
set con = nothing
set doit = Nothing