funktioner, sub och arayer

OBS!! Detta blir en lång post, jag kan tyvärr med mina futtiga ASP/SQL kunskaper inte bryta ner denna koden och plocka ut det jag vill ha. Skulle någon kunna hjälpa mig att förklara?

Något sådant här måste jag använda mig av:

 class TeamObj

     public sub setData(lagID)

       dim sql, rs
       dim opponentID
       dim i, inList

       id = lagID

       sql = "select * from dnLag where lagID = " & lagID & ""
       set rs = dbCom.Execute(sql)
       if not (rs.BOF and rs.EOF) then
         distrikt = rs.Fields("distrikt").Value
		 namn = rs.Fields("lagNamn").Value
       end if

       'Find records and point totals for all games played by this team.

       sql = "select * from dnLag, dnMatcher" _
          & " where Resultat <> ''" _
          & " and" _
          & " ((bortalagID = " & lagID & " and LagID = hemmalagID)" _
          & "  or" _
          & "  (hemmalagID = " & lagID & " and lagID = bortalagID))" _
          & " order by dnMatcher.Omgang"
       set rs = DbConn.Execute(sql)
        do while not rs.EOF

           'Add scores to point totals.

           if rs.Fields("bortalagID").Value = lagID then
             pointsFor = pointsFor + rs.Fields("bortalagVP").Value
             pointsAgainst = pointsAgainst + rs.Fields("hemmalagVP").Value
           else
             pointsFor = pointsFor + rs.Fields("hemmalagVP").Value
             pointsAgainst = pointsAgainst + rs.Fields("bortalagVP").Value
           end if
           rs.MoveNext
         loop
       end if

Om något IDS!! hjälpa mig lite på traven vore jag tacksam!!!! Hittade detta hela denna sidan någonstanns men kan inte tyda den. Antar att det är stored procedures och jag fattar absolut ingenting. Jag behöver lära mig detta för att plocka ut lagens poäng och liknande i min serietabell. Men jag vet inte var jag ska börja som sagt.

tack för hälpen