Web Development

'------------------------------------------------------------------------------
Function fnProcessSomePicks(byRef passedCon)
'------------------------------------------------------------------------------
                                                           response.write("In fnProcessSomePicks<br>")

   Dim objRSPicks
   Dim SQLPicks
   Dim intPickID
   Dim flgProcess
   Dim flgProDay
   Dim sTeamID
   
   Set objRSPicks = Server.CreateObject("ADODB.Recordset")
                
   SQLPicks = "SELECT " & _
                 "Picks.PickID, " & _
                 "Picks.PlayerID, " & _
                 "Picks.Week, " & _
                 "Picks.TeamID, " & _
                 "Picks.plyrGuess, " & _
                 "Picks.LockPick " & _
              "FROM " & _
                 "Picks " & _
                 "WHERE " & _
                 "((Picks.Week)= " & _
                 CInt(Application("intPoolWeek")) & " );"
				 
   Set objRSPicks = passedCon.Execute( SQLPicks )
   
   If NOT objRSPicks.BOF OR NOT objRSPicks.EOF Then
     objRSPicks.MoveFirst
   End If
       
   Do While Not objRSPicks.EOF 

     intPickID = 0
'
'    flgProcess:
'    0 = already locked - do nothing
'    1 = not locked both team and score exsit
'    2 = not locked team only
'    0 = not locked score only     
     flgProcess = 0
	 flagProDay = 0
	 
	If NOT objRSPicks.BOF OR NOT objRSPicks.EOF Then
      Do While Not objRSPicks.EOF
	    intPickID = objRSPicks("PickID")
        If objRSPicks("LockPick") = True Then
          flgProcess = 0
        ElseIf Len(objRSPicks("TeamID")) > 0 Then
          If (objRSPicks("plyrGuess")) > 0 Then
            flgProcess = 1
          Else
            flgProcess = 2
          End If
        End If
               
        If flgProcess <> 0 Then
          sTeamID = objRSPicks("TeamID")
          flgProDay = fnGameDay(passedCon, sTeamID)
          If flgProDay = 1 Then
            If flgProcess = 1 Then
'  Perform Lock action
            Else
'  Set and perform Lock action
            End If
          End If
        End If
             
        objRSPicks.MoveNext
        flgProcess = 0
      Loop
    End if
	  
   CALL subADOClose(objRSPicks)
      
End Function

#topmenu
{
    margin-right: auto;
    margin-left: auto;
    margin-top:0px;
    width: 900px;
    height:15px;
    text-align:right;
    padding:5px;
    background-color:White;
}


a.topmenu
{
    color: #999999;
    text-decoration: none;
    font-size: small;
}

a.topmenu:hover, a.topmenu:active, a.topmenu:focus
{
    color: #336699;
    text-decoration: underline;
}