Total der ikke vil

her hiver jeg gennemsnitte ud

strSQL = "Select fBy, AVG(a1) as gennemsnit From skema Where telefon = '" & Request.Querystring("id") & "' group by fby"
set rs = DataConn.Execute(strSQL)
while not rs.eof
  if rs("fby") = "Egen" then
    Egen = rs("gennemsnit")
  elseif rs("fby") = "Chef" then
    Chef = rs("gennemsnit")
  elseif rs("fby") = "Medarbejder" then
    Medarbejder = rs("gennemsnit")
  elseif rs("fby") = "Kollega" then
    Kollega = rs("gennemsnit")

  end if
  rs.MoveNext
wend
strSQL = "Select AVG(a1) as gennemsnit From skema Where telefon = '" & Request.Querystring("id") & "'"
set rs = DataConn.Execute(strSQL)
total = rs("gennemsnit")

Men den laver ikke den rigtige udregning.. fordi 'Medarbejder' 'Kollega' er der flere af og derfor lægger den bare summen sammen af alle ..

Altså
Egen = 2
Chef = 1
Medarbejder = 4
Kollega =  4
Total = 2+1+4+4 = 11/4 = 2.75

Lige nu viser den total = 3 fordi der er to medarbejdere der har tastet 5 og 3 = 8/2 = 4 ... men det gør at den regner sådan her
Egen = 2
Chef = 1
Medarbejder = 8
Kollega =  4
Total 2+1+8+4 = 15/5 (fem der har indtastet) = 3

håber i forstår vi skal have summen af gennemsnittet på 'Medarbjere' og 'Kollega' /4