Welcome to Pass Soccer

03.15.08 SUMMER CAMPS 2008 ANNOUNCED

Week 1: June 9 - 13

Week 2: June 16 - 20

Week 3: July 21 - 25

Week 4: July 28 - Aug 1

Week 5: Aug 4 - 8

Week 6: Aug 11 - 15

FULL INFO ON CAMPS & CLINICS PAGE

Number 1 in Kids Coaching

<% '# Set the values of some variable imageStyle = "s1" serverPath = "//plugins.websitecomplete.com/wsc_images" protocol = "http:" If ucase(Request.ServerVariables("HTTPS")) = "ON" Then protocol="https:" DataSource = "FileDSN=c:\winnt\system32\dsn\plugins.dsn" Set DataConn = Server.CreateObject("ADODB.Connection") DataConn.Open DataSource '# grab all their records to see what they have to offer sqlQuery = "SELECT current_value FROM hitcounter WHERE pluginID = 'BDpHmilU'" Set oRst = DataConn.Execute(sqlQuery) if not oRst.eof then counterNumber = CLng(oRst("current_value")) if Session("Counted") = "" then counterNumber = counterNumber + 1 '#update the current value in the database sqlQuery = "UPDATE hitcounter SET current_value = " & counterNumber & " WHERE pluginID = 'BDpHmilU';" DataConn.Execute(sqlQuery) DataConn.close Set DataConn = nothing Session("Counted") = true end if counterNumber = "0000000000" & counterNumber counterNumber = right(counterNumber,8) counterDisplay = "" howLong = len(counterNumber) for i=1 to howLong thisNumber = mid(counterNumber,i,1) counterDisplay = counterDisplay & "" next counterDisplay = "" & counterDisplay & "" else counterDisplay = "" end if Set oRst = nothing %><%= counterDisplay %>