SQL kald med count svær

Du skulle læse op på AVG() funktionen. Den finder helt automatisk gennemsnittet:

strSQL = "Select AVG(score) as gennemsnit From skema Where telefon = '" & Request.Querystring("id") & "'"

tak men vi skal lige have med ind at det skal være alle også = fby

Error Type:
ADODB.Recordset.1 (0x80004005)
SQLState: 4 Native Error Code: 1054 [TCX][MyODBC]Unknown column 'score' in 'field list'
/360/resultatside.asp, line 53

det skal så også være gennemsnittet af det felt der hedder a1_1

så alle dem hvor fby=medarbejder og telefon = " & Request.Querystring("id") & "'"
skal vi lægge alle tal sammen der står i felterne a1_1 - a1_2 - a1_3 - a1_4 - a1_5

de har jo giver point 1-5 ud fra et sprøgsmål

så hvis medarbejder 1 har felt a1_1 = 1
og mebarbejder 2 har felt a1_3 = 3
= 4/2 = 2

er i med :-)

Nu fatter jeg minus af din tabelopbygning :(
Bare for at afklare det, er dette så din tabel??
[score]
(id)|a1_1|a1_2|a1_3|a1_4|a1_5|medarbejder|telefon

Hvordan ser de data ud der ligger heri??
Er der kun angivet EN værdi i en af a1_x kolonnerne pr linje, så der f.eks ikke står noget i både a1_1 og a1_2 i den samme linje? Og den angivet værdi i de enkelte kolonner svare altid til x. Dvs at der altid står 2 i a1_2 og 5 i a1_5??

ok sorry.

alstå:
tabel = skema
felter (id)|a1_1|a1_2|a1_3|a1_4|a1_5|fby|telefon

Er der kun angivet EN værdi i en af a1_x kolonnerne pr linje, så der f.eks ikke står noget i både a1_1 og a1_2 i den samme linje? ja
Og den angivet værdi i de enkelte kolonner svare altid til x. Dvs at der altid står 2 i a1_2 og 5 i a1_5?? ja

det kunne se sådan her ud:

(id)|a1_1|a1_2|a1_3|a1_4|a1_5|fby        |telefon
1    1                      |medarbejder|peter
2                3          |medarbejder|peter
3    1                      |medarbejder|peter
4          2                |chef      |peter

Ok. Kan du samle a1_x tabellerne til en, for der er ingen grund til at have 5 tabeller. Så det bliver sådan her:
(id)|a1|fby        |telefon
1  | 1 |medarbejder|peter
2  | 3 |medarbejder|peter
3  | 1 |medarbejder|peter
4  | 2 |chef      |peter

jep sådan Klart jeg er jo hjerne død :-)

hvad gør vi så nu ?

nu har jeg samlet dem

Så burde du være klar til at fyre denne af:

strSQL = "Select AVG(a1) as gennemsnit From skema Where fby='medarbejder' and telefon = '" & Request.Querystring("id") & "'"
set rs = conn.execute(strSQL)
response.write "Gennemsnit for "& Request.Querystring("id") &": "& rs("gennemsnit")

Du er for vildt !!!!!!! perfekt den kom til at se sådan her ud:

<%
strSQL = "Select AVG(a1_1) as gennemsnit From skema Where fby='medarbejder' and telefon = '" & Request.Querystring("id") & "'"
set rs = DataConn.Execute(strSQL)
response.write "Gennemsnit for "& Request.Querystring("id") &": "& rs("gennemsnit")
%>

jeg har lige et lille ekstra sprg. er du frisk?

Jeg er altid frisk, men jeg holder mig bedst i køleskabet :o)

Lidt ekstra viden...
Lige som med alle de andre aggregate kan du bruge group by til at trække gennemsnittet ud for alle i en funktion:

set rs = conn.execute("Select telefon, AVG(a1) as gennemsnit From skema group by telefon order by telefon")
while not rs.eof
  response.write rs("telefon") &": "& rs("gennemsnit") &"<br>
  rs.MoveNext
wend

jeg viser resultaterne her

<%
Response.write "<table  cellpadding='4' cellspacing='0'>"
Response.write "<tr><td bgcolor='#ffffff'><b></td><td bgcolor='#ffffff'><b>Udviser lederskab</td><td bgcolor='#ffffff'><b>Egen</td><td  bgcolor='#ffffff'><b>Chef</td><td  bgcolor='#ffffff'><b>Medarb</td><td  bgcolor='#ffffff'><b>Kollega</td><td  bgcolor='#ffffff'><b>Andre</td><td  bgcolor='#ffffff'><b>Total</td><td  bgcolor='#ffffff'><b>Vægt</td></tr> <tr>"
if rs.bof or rs.eof then
  response.write "<b><font color='#ff0000'>Der er ingen resultater endnu.!</b><br><br>"
else
  Do While Not rs.EOF



  Response.write "</td><td bgcolor='#EFEFEF'>"
  Response.write "1"
  Response.write "</td><td bgcolor='#EFEFEF'>"
  Response.write "Har forudseenhed "
  Response.write "</td><td bgcolor='#EFEFEF'>"
  Response.write rs1("gennemsnit")
  Response.write "</td><td bgcolor='#EFEFEF'>"

  Response.write ""
  Response.write "</td></tr>"




rs.MoveNext
Loop
end if
Response.Write "</table>"
DataConn.Close
Set DataConn = Nothing
%>

men det ser sådan her ud: den viser linien to gange ?

1 Har forudseenhed  3 
1 Har forudseenhed  3 

og jeg vil gerne lave det sådan at bgcolor skifter farve alt efter point.

så hvordan lægger jeg en 3 koder ind før hver <td> enten skal den være: grøn,gul,rød.

if gennemsnit <=2 bgcolor="#336600"
if gennesnit = 3 bgcolor="##FFFF00"
if gennemsnit <3 bgcolor="#FF0000"

kan du hjælpe med de to ?

Der er noget galt med dine select og løkker.
Du loop'er rs men udskriver rs1 i løkken:

Do While Not rs.EOF '<-- rs loop
  ...
  Response.write rs1("gennemsnit") '<-- Udskriver rs1
  ...
  rs.MoveNext
Loop

Da rs1 ikke bliver selected inde i loopet vil den blive udskrevet de antal gange som rs har rækker.

super hvad med farverne til bgcolor

if gennemsnit <= 2 then
    color = "#336600"
  elseif gennesnit = 3 then
    color = "#FFFF00"
  else
    color = "#FF0000"
  end if
  Response.write "<td bgcolor='"& color &"'>"

Eller rettere:

  if rs1("gennemsnit") <= 2 then
    color = "#336600"
  elseif rs1("gennemsnit") = 3 then
    color = "#FFFF00"
  else
    color = "#FF0000"
  end if
  Response.write "<td bgcolor='"& color &"'>"

hvordan laver jeg <2.5 og <3.5 ?

alsåt meller 2.5 og 3.5 skal den være gul ?

if rs1("gennemsnit") <= 2.5 then
  color = "#336600"
elseif rs1("gennemsnit") <= 3.5 then
  color = "#FFFF00"
else
  color = "#FF0000"
end if

skal jeg starte et ny sprg ? for jeg skal så lige have en sql med totalen af alle rækkerne :-)

Det er bare at smide det med på selecten også:

select avg(a1) as gennemsnit, sum(a1)  as total from...

øø hvordan laver jeg bgcolor med denne her der er jo ikke en gennemsnit

<%
strSQL = "Select * From skema Where fby='chef' and telefon = '" & Request.Querystring("id") & "'"
set rs2 = DataConn.Execute(strSQL)
%>

if rs1("gennemsnit") <= 2.5 then
  color = "#336600"
elseif rs1("gennemsnit") <= 3.5 then
  color = "#FFFF00"
else
  color = "#FF0000"
end if

hvis jeg sætter det op i tabeller

<TR>
    <TD>1</TD>
    <TD>Har forudseenhed</TD>
    <TD bgcolor="<%= color %>"><%=rs3("a1_1")%></TD>
    <TD><%=rs2("a1_1")%></TD>
  <td bgcolor="<%= color %>"><%=rs1("gennemsnit")%></TD>
   
hvordan får jeg så klemt if rs.bof or rs.eof then
  response.write "<b><font color='#ff0000'>Der er ingen resultater endnu.!</b><br><br>"
else
  Do While Not rs.EOF

eller bare så den ikke fejler når der ikke er en record i feltet ?

har selv løst  13:57:10 :-)

har du et javascript eller kan jeg rette noget i mysql så der koun vises 1 decimal
<%
strSQL = "Select AVG(a1_1) as gennemsnit , sum(a1_1)  as total From skema Where telefon = '" & Request.Querystring("id") & "'"
set rs6 = DataConn.Execute(strSQL)
%>

<%=rs6("gennemsnit")%>

Du kan bruge formatnumber() til at formatere tal:
<%= formatnumber(rs6("gennemsnit"),1)%>

Jeg synes du har mange forskellige rsX efterhånden, som alle loop'er inden i hinanden. Det er blevet lidt forvirende. Kan du smide hele din kode ind som den er nu...

jamen det bliver jeg nød til for der er 90 sprg i skemaet .. og mange der skal svare så jeg skal vel lave en rs for hver, når der skal laves et gennemsnit !

og det samme gælger jo for bgcolor den er jo også unik for hver sprg :-) så det bliver sindsygt meget kode !

kan det gøres andreledes ?

trSQL = "Select * From skema Where telefon = '" & Request.Querystring("id") & "'"
Set rs = DataConn.Execute(strSQL)
%>
<%
strSQL = "Select * From skema Where fby='chef' and telefon = '" & Request.Querystring("id") & "'"
set rs2 = DataConn.Execute(strSQL)
%>
<%
strSQL = "Select * From skema Where fby='egen' and telefon = '" & Request.Querystring("id") & "'"
set rs3 = DataConn.Execute(strSQL)
%>
<%
strSQL = "Select AVG(a1_1) as gennemsnit From skema Where fby='medarbejder' and telefon = '" & Request.Querystring("id") & "'"
set rs1 = DataConn.Execute(strSQL)
%>
<%
strSQL = "Select AVG(a1_1) as gennemsnit From skema Where fby='Kollega' and telefon = '" & Request.Querystring("id") & "'"
set rs4 = DataConn.Execute(strSQL)
%>
<%
strSQL = "Select AVG(a1_1) as gennemsnit From skema Where fby='andre' and telefon = '" & Request.Querystring("id") & "'"
set rs5 = DataConn.Execute(strSQL)
%>
<%
strSQL = "Select AVG(a1_1) as gennemsnit , sum(a1_1)  as total From skema Where telefon = '" & Request.Querystring("id") & "'"
set rs6 = DataConn.Execute(strSQL)
%>
<BR>
Resultat side for <%=rs("telefon")%>

<%if rs1("gennemsnit") <= 2.49 then
    color = "#FF3333"
  elseif rs1("gennemsnit") <= 3.5 then
    color = "#FFFF33"
  else
    color = "#66CC33"
  end if
  %><%if rs3("a1_1") <= 2.49 then
    bgcolor = "#FF3333"
  elseif rs3("a1_1") <= 3.5 then
    bgcolor = "#FFFF33"
  else
    bgcolor = "#66CC33"
  end if
  %>
  <%if rs2("a1_1") <= 2.49 then
    bgcolorr = "#FF3333"
  elseif rs2("a1_1") <= 3.5 then
    bgcolorr = "#FFFF33"
  else
    bgcolorr = "#66CC33"
  end if
  %>
    <%if rs4("gennemsnit") <= 2.49 then
    bgcolorrr = "#FF3333"
  elseif rs4("gennemsnit") <= 3.5 then
    bgcolorrr = "#FFFF33"
  else
    bgcolorrr = "#66CC33"
  end if
  %>
  <%if rs5("gennemsnit") <= 2.49 then
    bgcolorrrr = "#FF3333"
  elseif rs5("gennemsnit") <= 3.5 then
    bgcolorrrr = "#FFFF33"
  else
    bgcolorrrr = "#66CC33"
  end if
  %>  <%if rs6("gennemsnit") <= 2.49 then
    bgcolorrrrr = "#FF3333"
  elseif rs6("gennemsnit") <= 3.5 then
    bgcolorrrrr= "#FFFF33"
  else
    bgcolorrrrr= "#66CC33"
  end if
  %>
 

<BR><BR>
Katagori: Selvledelse<BR>
<TABLE>
<TR>
    <TD></TD>
    <TD></TD>
    <TD>Egen</TD>
    <TD>Chef</TD>
    <TD>Medarb.</TD>
    <TD>Kollega</TD>
    <TD>Andre</TD>
    <TD>Total</TD>
    <TD>Vægt</TD>
</TR>
<TR>
    <TD></TD>
    <TD></TD>
    <TD></TD>
    <TD></TD>
    <TD></TD>
    <TD></TD>
    <TD></TD>
    <TD></TD>
    <TD></TD>
</TR>
<TR>
    <TD></TD>
    <TD>Udviser lederskab</TD>
    <TD></TD>
    <TD></TD>
    <TD></TD>
    <TD></TD>
    <TD></TD>
    <TD></TD>
    <TD></TD>
</TR>
<TR>
    <TD>1</TD>
    <TD>Har forudseenhed</TD>
    <TD bgcolor="<%= bgcolor %>"><%=rs3("a1_1")%></TD>
    <td bgcolor="<%= bgcolorr %>"><%=rs2("a1_1")%></TD>
  <td bgcolor="<%= color %>"><%=rs1("gennemsnit")%></TD>
    <td bgcolor="<%= bgcolorrr%>"><%=rs4("gennemsnit")%></TD>
    <td bgcolor="<%= bgcolorrrr %>"><%=rs5("gennemsnit")%></TD>
<td bgcolor="<%= bgcolorrrrr %>"><%= formatnumber(rs6("gennemsnit"),1)%></TD>
    <TD></TD>
</TR>
<TR>

Du kan godt lave det med en select:
"Select AVG(a1_1) as gennemsnit, fBy From skema Where telefon = '" & Request.Querystring("id") & "' group by fBy"

jeg er ikke helt med hvordan bruger jeg den ?

kan ikke helt gennemskue hvordan jeg skal bruge den kode...

Prøv f.eks at køre denne kode:

set rs = conn.execute("Select AVG(a1_1) as gennemsnit, fBy From skema Where telefon = '" & Request.Querystring("id") & "' group by fBy")
while not rs.eof
  response.write rs("fBy") &": "& rs("gennemsnit")
wend

shit:

så viser den Andre: 1.5Andre: 1.5Andre: 1.5Andre: 1.5Andre: 1.5Andre: 1.5Andre: 1.5Andre: 1.5Andre: 1.5Andre: 1.5Andre: 1.5Andre: 1.5Andre: 1.5Andre: 1.5Andre: 1.5Andre: 1.5Andre: 1.5Andre: 1.5Andre: 1.5Andre: 1.5Andre: 1.5Andre: 1.5Andre: 1.5Andre: 1.5Andre: 1.5Andre: 1.5Andre: 1.5Andre: 1.5Andre: 1.5Andre: 1.5Andre: 1.5Andre: 1.5Andre

Active Server Pages error 'ASP 0113'

Script timed out

/360/resultatside.asp

The maximum amount of time for a script to execute was exceeded. You can change this limit by specifying a new value for the property Server.ScriptTimeOut or by changing the value in the ASP administration tools.

Doh.. Havde glemt en MoveNext

set rs = conn.execute("Select AVG(a1_1) as gennemsnit, fBy From skema Where telefon = '" & Request.Querystring("id") & "' group by fBy")
while not rs.eof
  response.write rs("fBy") &": "& rs("gennemsnit")
  rs.MoveNext '<-- MEGET VIGTIGT PUNKT
wend

jeg ser det ..

men så skal jeg have totalen med i slutningen og bgcolor ! hvordan får vi det med ind...

<%
set rs20 = DataConn.execute("Select AVG(a1_1) as gennemsnit, fBy From skema Where telefon = '" & Request.Querystring("id") & "' group by fBy")
while not rs20.eof
  response.write rs20("fBy") &": "& rs20("gennemsnit")
  rs20.MoveNext '<-- MEGET VIGTIGT PUNKT
wend

%>

Bare smid sum() med på selecten og udskriv den også.

set rs20 = DataConn.execute("Select AVG(a1_1) as gennemsnit, sum(a1_1) as total, fBy From skema Where telefon = '" & Request.Querystring("id") & "' group by fBy")

ok hvad gør jeg så med bgcolor ?

<%if rs6("gennemsnit") <= 2.49 then
    bgcolorrrrr = "#FF3333"
  elseif rs6("gennemsnit") <= 3.5 then
    bgcolorrrrr= "#FFFF33"
  else
    bgcolorrrrr= "#66CC33"
  end if
  %>

det er så gennemsnittet af summen vi skal have her

set rs20 = DataConn.execute("Select AVG(a1_1) as gennemsnit, sum(a1_1) as total, fBy From skema Where telefon = '" & Request.Querystring("id") & "' group by fBy")

Hej fennec, hvad siger du til det hvordan får jeg flettet den med at baggrundsfarven skal skifte..

Undskyld jeg forsvandt i går, men der opstod et akut problem hos en kunde, så der var lidt overarbejde :(

Virker det ikke som du har det i post 02/11-2006 12:02:13?? Eller er det mig, der ikke helt har forstået, hvilke resultater du vil have ud??

Selecten giver dig et gennemsnit og sum pr fBy. Skal du have andet??

dejligt du e tilbage:-)

vi skal have flettet

<%
strSQL = "Select AVG(a1_1) as gennemsnit , sum(a1_1)  as total From skema Where telefon = '" & Request.Querystring("id") & "'"
set rs6 = DataConn.Execute(strSQL)
%>

ind i

<%
set rs20 = DataConn.execute("Select AVG(a1_1) as gennemsnit, sum(a1_1) as total, fBy From skema Where telefon = '" & Request.Querystring("id") & "' group by fBy")
while not rs20.eof
  response.write  rs20("gennemsnit")
response.write "ss"& rs20("total")
  rs20.MoveNext '<-- MEGET VIGTIGT PUNKT
wend

%>

ok jeg tror den er god nok...

Hvordan sætter jeg det op i en tabel ? husk den skal skifte baggrundsfarve alt efter resultat:

<TABLE >


<TR>
    <TD bgcolor="#cccccc">&nbsp;</TD>
    <TD bgcolor="#cccccc"><B>Udviser lederskab</B></TD>
    <TD bgcolor="#cccccc" width="50" align="center"><B>Egen</B></TD>
    <TD bgcolor="#cccccc" width="50" align="center"><B>Chef</B></TD>
    <TD bgcolor="#cccccc" width="50" align="center"><B>Medarb.</B></TD>
    <TD bgcolor="#cccccc" width="50" align="center"><B>Kollega</B></TD>
    <TD bgcolor="#cccccc" width="50" align="center"><B>Andre</B></TD>
    <TD bgcolor="#cccccc" width="50" align="center"><B>Total</B></TD>
    <TD bgcolor="#cccccc" width="50" align="center"><B>Vægt</B></TD>
</TR>
<TR>
    <TD>1</TD>
    <TD >Har forudseenhed</TD>
    <TD bgcolor="<%= bgcolor %>" align="right"><%= formatnumber(rs3("a1_1"),1)%></TD>
    <td bgcolor="<%= bgcolorr %>"  align="right"><%= formatnumber(rs2("a1_1"),1)%></TD>
  <td bgcolor="<%= color %>"  align="right"><%= formatnumber(rs1("gennemsnit"),1)%></TD>
    <td bgcolor="<%= bgcolorrr%>"  align="right"><%= formatnumber(rs4("gennemsnit"),1)%></TD>
    <td bgcolor="<%= bgcolorrrr %>"  align="right"><%= formatnumber(rs5("gennemsnit"),1)%></TD>
<td bgcolor="<%= bgcolorrrrr %>"  align="right"><%= formatnumber(rs6("gennemsnit"),1)%></TD>
    <TD></TD>

prøv at se denne her går helt i kage for mig ?

<%
Response.write "<table  cellpadding='3' cellspacing='1'  >"
Response.write "<tr><td bgcolor='#cccccc'><B></B></td><td bgcolor='#cccccc'><B>Udviser lederskab</B></td><td bgcolor='#cccccc'><B>Egen</B></td><td bgcolor='#cccccc'><B>Chef</B></td><td bgcolor='#cccccc'><B>Medarb</B></td><td bgcolor='#cccccc'><B>Kollega</B></td><td bgcolor='#cccccc'><B>Andre</B></td><td bgcolor='#cccccc'><B>Total</B></td><td bgcolor='#cccccc'><B>Vægt</B></td></tr> <tr>"

Response.write "</td><td bgcolor='#cccccc'>"
set rs20 = DataConn.execute("Select AVG(a1_1) as gennemsnit, fBy From skema Where telefon = '" & Request.Querystring("id") & "' group by fBy")
while not rs20.eof

  response.write  rs20("gennemsnit")
  rs20.MoveNext '<-- MEGET VIGTIGT PUNKT
wend
  Response.write "</td></tr>"


Response.Write "</table>"
  %>

Måske vi hellere skulle starte forfra, også finde ud af hvad du skal have skrevet ud. Kan du lave en manuel html kode med layout osv. Data behøver ikke være korrekt ifølge databasen. Når du har lavet html koden kan vi så finde ud af hvor hvert enkelt data felt kommer fra i databasen.

super her kan du se koden som den er nu og det spiller, men det gør også at jeg skal oprettet rigtig mange sql kald.... hvis du kan få det ind i en lang ville det være rigtig godt... husk det med baggrundsfarven skal skifte...

ps. kan jeg sende dig en email ?

strSQL = "Select * From skema Where telefon = '" & Request.Querystring("id") & "'"
Set rs = DataConn.Execute(strSQL)
%>
<%
strSQL = "Select * From skema Where telefon = '" & Request.Querystring("id") & "'"
set rs52 = DataConn.Execute(strSQL)
%>

<%
strSQL = "Select * From skema Where fby='chef' and telefon = '" & Request.Querystring("id") & "'"
set rs2 = DataConn.Execute(strSQL)
%>
<%
strSQL = "Select * From skema Where fby='egen' and telefon = '" & Request.Querystring("id") & "'"
set rs3 = DataConn.Execute(strSQL)
%>


<%
strSQL = "Select AVG(a1_1) as gennemsnit From skema Where fby='medarbejder' and telefon = '" & Request.Querystring("id") & "'"
set rs1 = DataConn.Execute(strSQL)
%>
<%
strSQL = "Select AVG(a1_1) as gennemsnit From skema Where fby='Kollega' and telefon = '" & Request.Querystring("id") & "'"
set rs4 = DataConn.Execute(strSQL)
%>
<%
strSQL = "Select AVG(a1_1) as gennemsnit From skema Where fby='andre' and telefon = '" & Request.Querystring("id") & "'"
set rs5 = DataConn.Execute(strSQL)
%>
<%
strSQL = "Select AVG(a1_1) as gennemsnit , sum(a1_1)  as total From skema Where telefon = '" & Request.Querystring("id") & "'"
set rs6 = DataConn.Execute(strSQL)
%>
<%
strSQL = "Select AVG(a1_1) as gennemsnit, fBy From skema Where telefon = '" & Request.Querystring("id") & "' group by fBy"
set rs7 = DataConn.Execute(strSQL)
%>
<%
strSQL = "Select *  From skema Where  telefon = '" & Request.Querystring("id") & "'"
set rs10 = DataConn.Execute(strSQL)
%>
<BR>
Resultat side for <%=rs("telefon")%>

<%if rs1("gennemsnit") <= 2.49 then
    color = "#FF3333"
  elseif rs1("gennemsnit") <= 3.5 then
    color = "#FFFF33"
  else
    color = "#66CC33"
  end if
  %><%if rs3("a1_1") <= 2.49 then
    bgcolor = "#FF3333"
  elseif rs3("a1_1") <= 3.5 then
    bgcolor = "#FFFF33"
  else
    bgcolor = "#66CC33"
  end if
  %>
  <%if rs2("a1_1") <= 2.49 then
    bgcolorr = "#FF3333"
  elseif rs2("a1_1") <= 3.5 then
    bgcolorr = "#FFFF33"
  else
    bgcolorr = "#66CC33"
  end if
  %>
    <%if rs4("gennemsnit") <= 2.49 then
    bgcolorrr = "#FF3333"
  elseif rs4("gennemsnit") <= 3.5 then
    bgcolorrr = "#FFFF33"
  else
    bgcolorrr = "#66CC33"
  end if
  %>
  <%if rs5("gennemsnit") <= 2.49 then
    bgcolorrrr = "#FF3333"
  elseif rs5("gennemsnit") <= 3.5 then
    bgcolorrrr = "#FFFF33"
  else
    bgcolorrrr = "#66CC33"
  end if
  %>  <%if rs6("gennemsnit") <= 2.49 then
    bgcolorrrrr = "#FF3333"
  elseif rs6("gennemsnit") <= 3.5 then
    bgcolorrrrr= "#FFFF33"
  else
    bgcolorrrrr= "#66CC33"
  end if
  %>
  <%=rs52("a1_1")%>

<BR><BR>
<B>Katagori: Selvledelse</B><BR>
<TABLE >


<TR>
    <TD bgcolor="#cccccc">&nbsp;</TD>
    <TD bgcolor="#cccccc"><B>Udviser lederskab</B></TD>
    <TD bgcolor="#cccccc" width="50" align="center"><B>Egen</B></TD>
    <TD bgcolor="#cccccc" width="50" align="center"><B>Chef</B></TD>
    <TD bgcolor="#cccccc" width="50" align="center"><B>Medarb.</B></TD>
    <TD bgcolor="#cccccc" width="50" align="center"><B>Kollega</B></TD>
    <TD bgcolor="#cccccc" width="50" align="center"><B>Andre</B></TD>
    <TD bgcolor="#cccccc" width="50" align="center"><B>Total</B></TD>
    <TD bgcolor="#cccccc" width="50" align="center"><B>Vægt</B></TD>
</TR>
<TR>
    <TD>1</TD>
    <TD >Har forudseenhed</TD>
    <TD bgcolor="<%= bgcolor %>" align="right"><%= formatnumber(rs3("a1_1"),1)%></TD>
    <td bgcolor="<%= bgcolorr %>"  align="right"><%= formatnumber(rs2("a1_1"),1)%></TD>
  <td bgcolor="<%= color %>"  align="right"><%= formatnumber(rs1("gennemsnit"),1)%></TD>
    <td bgcolor="<%= bgcolorrr%>"  align="right"><%= formatnumber(rs4("gennemsnit"),1)%></TD>
    <td bgcolor="<%= bgcolorrrr %>"  align="right"><%= formatnumber(rs5("gennemsnit"),1)%></TD>
<td bgcolor="<%= bgcolorrrrr %>"  align="right"><%= formatnumber(rs6("gennemsnit"),1)%></TD>
    <TD></TD>
</TR>

Konge. Alle de informationer jeg skal bruge :o)
Vil se om jeg får tid til at kikke på det her i weekenden.

Som altid smider du bare en besked herinde, hvis der ikke er sket noget på mandag, for det betyder sikkert at jeg har glemt det.

kan jeg sende dig en mail.. ?

du skal bare lave den første linie så kan jeg selv finde ud af resten :-)

Hvis du skriver herinde, får jeg jo automatisk en mail :o)

jep men det er ikke noget jeg lige vil skrive her :-)

ok, jeg vil gerne belønne dig hvis du kan lave det færdigt sådan lige omkring nu...:-)

Har ikke tid til at kikke det igennem lige nu :(

ok fair nok.. :-)

men jeg er klar når du bare har lidt at arbejde med:-)

jeg prøver for sjov at se om der er nogen der kan hjælpe i mellemtiden :-)

jeg skulle skrive en lille note reminder :-) tak og do weekend

jeg er total klar når du er :-)

Jeg var ikke hjemme hele weekenden. Blev inviteret til Århus med vennerne, så jeg har ikke kikket på din kode. Det må du meget undskylde :(

Og jeg har heller ikke tid de næste 3 aftner.

ok det er bare helt ok... kan du når bare at lave et på linier kode så kan jeg selv resten......-)

Jeg har kikket lidt på det. Dette er hvad jeg kom frem til:

<%
dim egen, chef, medarbejder, Kollega, andre, total
dim bg1, bg2, bg3, bg4, bg5, bg6

egen = 0
chef = 0
medarbejder = 0
Kollega = 0
andre = 0
total = 0

strSQL = "Select fBy, AVG(a1_1) 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")
  elseif rs("fby") = "andre" then
    andre = rs("gennemsnit")
  end if
  rs.MoveNext
wend
strSQL = "Select AVG(a1_1) as gennemsnit From skema Where telefon = '" & Request.Querystring("id") & "'"
set rs = DataConn.Execute(strSQL)
total = rs("gennemsnit")

bg1 = "#66CC33"
bg2 = "#66CC33"
bg3 = "#66CC33"
bg4 = "#66CC33"
bg5 = "#66CC33"
bg6 = "#66CC33"

if egen <= 2.49 then
  bg1 = "#FF3333"
elseif egen <= 3.5 then
  bg1 = "#FFFF33"
end if
if chef <= 2.49 then
  bg2 = "#FF3333"
elseif chef <= 3.5 then
  bg2 = "#FFFF33"
end if
if medarbejder <= 2.49 then
  bg3 = "#FF3333"
elseif medarbejder <= 3.5 then
  bg3 = "#FFFF33"
end if
if Kollega <= 2.49 then
  bg4 = "#FF3333"
elseif Kollega <= 3.5 then
  bg4 = "#FFFF33"
end if
if andre <= 2.49 then
  bg5 = "#FF3333"
elseif andre <= 3.5 then
  bg5 = "#FFFF33"
end if
if total <= 2.49 then
  bg6 = "#FF3333"
elseif total <= 3.5 then
  bg6 = "#FFFF33"
end if

strSQL = "Select * From skema Where telefon = '" & Request.Querystring("id") & "'"
Set rs = DataConn.Execute(strSQL)

%>
<BR>
Resultat side for <%=rs("telefon")%>
  <%=rs("a1_1")%>
<BR><BR>
<B>Katagori: Selvledelse</B><BR>
<TABLE >
<TR>
    <TD bgcolor="#cccccc">&nbsp;</TD>
    <TD bgcolor="#cccccc"><B>Udviser lederskab</B></TD>
    <TD bgcolor="#cccccc" width="50" align="center"><B>Egen</B></TD>
    <TD bgcolor="#cccccc" width="50" align="center"><B>Chef</B></TD>
    <TD bgcolor="#cccccc" width="50" align="center"><B>Medarb.</B></TD>
    <TD bgcolor="#cccccc" width="50" align="center"><B>Kollega</B></TD>
    <TD bgcolor="#cccccc" width="50" align="center"><B>Andre</B></TD>
    <TD bgcolor="#cccccc" width="50" align="center"><B>Total</B></TD>
    <TD bgcolor="#cccccc" width="50" align="center"><B>Vægt</B></TD>
</TR>
<TR>
    <td>1</td>
    <td >Har forudseenhed</td>
    <td bgcolor="<%= bg1 %>" align="right"><%= formatnumber(egen,1)%></td>
    <td bgcolor="<%= bg2 %>"  align="right"><%= formatnumber(chef,1)%></td>
    <td bgcolor="<%= bg3 %>"  align="right"><%= formatnumber(medarbejder,1)%></td>
    <td bgcolor="<%= bg4 %>"  align="right"><%= formatnumber(Kollega,1)%></td>
    <td bgcolor="<%= bg5 %>"  align="right"><%= formatnumber(andre,1)%></td>
    <td bgcolor="<%= bg6 %>"  align="right"><%= formatnumber(total,1)%></td>
    <td></td>
</TR>

hold da kæft det ser godt ud.. men den viser ikke de rigtige farver og regner ikke rigtigt ud..

husk jeg skal vise resultater på 96 sprg. vi er bare ved sprg 1.nu :-) hvad skete der med:

<%
Response.write "<table  cellpadding='3' cellspacing='1'  >"
Response.write "<tr><td bgcolor='#cccccc'><B>Udviser lederskab</B></td><td bgcolor='#cccccc'><B>Andre</B></td><td bgcolor='#cccccc'><B>Chef</B></td><td bgcolor='#cccccc'><B>Medarb</B></td><td bgcolor='#cccccc'><B>Kollega</B></td><td bgcolor='#cccccc'><B>Andre</B></td><td bgcolor='#cccccc'><B>Total</B></td><td bgcolor='#cccccc'><B>Vægt</B></td></tr> <tr>"

Response.write "</td><td bgcolor='#cccccc'>"
set rs20 = DataConn.execute("Select AVG(a1_1) as gennemsnit, fBy From skema Where telefon = '" & Request.Querystring("id") & "' group by fBy")
while not rs20.eof

  response.write  rs20("gennemsnit")& vbCrLf & "<br>"
  rs20.MoveNext '<-- MEGET VIGTIGT PUNKT
wend
  Response.write "</td></tr>"


Response.Write "</table>"
  %>

jeg er ved at have farverne på plads men den regner det ikke rigtigt ud ligesom det først du lavede.. det er ikke de samme tal den udskriver

forfanden jeg har lavet den !!!!!! :-)

sidste, nu skal jeg have den til at hive sprg 2 ud felt = 'a2_1' ..

hvordan får jeg det smartest ind ?

<%
dim egen, chef, medarbejder, Kollega, andre, total
dim bg1, bg2, bg3, bg4, bg5, bg6

egen = 0
chef = 0
medarbejder = 0
Kollega = 0
andre = 0
total = 0

strSQL = "Select fBy, AVG(a1_1) 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")
  elseif rs("fby") = "Andre" then
    andre = rs("gennemsnit")
  end if
  rs.MoveNext
wend
strSQL = "Select AVG(a1_1) as gennemsnit From skema Where telefon = '" & Request.Querystring("id") & "'"
set rs = DataConn.Execute(strSQL)
total = rs("gennemsnit")

bg1 = "#66CC33"
bg2 = "#66CC33"
bg3 = "#66CC33"
bg4 = "#66CC33"
bg5 = "#66CC33"
bg6 = "#66CC33"

if egen <= 2.49 then
  bg1 = "#FF3333"
elseif egen <= 3.5 then
  bg1 = "#FFFF00"
end if
if chef <= 2.49 then
  bg2 = "#FF3333"
elseif chef <= 3.5 then
  bg2 = "#FFFF00"
end if
if medarbejder <= 2.49 then
  bg3 = "#FF3333"
elseif medarbejder <= 3.5 then
  bg3 = "#FFFF00"
end if
if Kollega <= 1.49 then
  bg4 = "#FF3333"
elseif Kollega <= 3.5 then
  bg4 = "#FFFF00"
end if
if andre <= 2.49 then
  bg5 = "#FF3333"
elseif andre <= 3.5 then
  bg5 = "#FFFF00"
end if
if total <= 2.49 then
  bg6 = "#FF3333"
elseif total <= 3.5 then
  bg6 = "#FFFF00"
end if

strSQL = "Select * From skema Where telefon = '" & Request.Querystring("id") & "'"
Set rs = DataConn.Execute(strSQL)

%>
<BR>
Resultat side for <%=rs("telefon")%>
 
<BR><BR>
<B>Katagori: Selvledelse</B><BR>
<TABLE >
<TR>
    <TD bgcolor="#cccccc">&nbsp;</TD>
    <TD bgcolor="#cccccc"><B>Udviser lederskab</B></TD>
    <TD bgcolor="#cccccc" width="50" align="center"><B>Egen</B></TD>
    <TD bgcolor="#cccccc" width="50" align="center"><B>Chef</B></TD>
    <TD bgcolor="#cccccc" width="50" align="center"><B>Medarb.</B></TD>
    <TD bgcolor="#cccccc" width="50" align="center"><B>Kollega</B></TD>
    <TD bgcolor="#cccccc" width="50" align="center"><B>Andre</B></TD>
    <TD bgcolor="#cccccc" width="50" align="center"><B>Total</B></TD>
    <TD bgcolor="#cccccc" width="50" align="center"><B>Vægt</B></TD>
</TR>
<TR>
    <td>1</td>
    <td >Har forudseenhed</td>
    <td bgcolor="<%= bg1 %>" align="right"><%= formatnumber(egen,1)%></td>
    <td bgcolor="<%= bg2 %>"  align="right"><%= formatnumber(chef,1)%></td>
    <td bgcolor="<%= bg3 %>"  align="right"><%= formatnumber(medarbejder,1)%></td>
    <td bgcolor="<%= bg4 %>"  align="right"><%= formatnumber(Kollega,1)%></td>
    <td bgcolor="<%= bg5 %>"  align="right"><%= formatnumber(andre,1)%></td>
    <td bgcolor="<%= bg6 %>"  align="right"><%= formatnumber(total,1)%></td>
    <td></td>
</TR>
<TR> 'her skal 'a2_1' hives ud ..
    <td>2</td>
    <td >Har situationsfornemmelse</td>
    <td bgcolor="<%= bg1 %>" align="right"><%= formatnumber(egen,1)%></td>
    <td bgcolor="<%= bg2 %>"  align="right"><%= formatnumber(chef,1)%></td>
    <td bgcolor="<%= bg3 %>"  align="right"><%= formatnumber(medarbejder,1)%></td>
    <td bgcolor="<%= bg4 %>"  align="right"><%= formatnumber(Kollega,1)%></td>
    <td bgcolor="<%= bg5 %>"  align="right"><%= formatnumber(andre,1)%></td>
    <td bgcolor="<%= bg6 %>"  align="right"><%= formatnumber(total,1)%></td>
    <td></td>
</TR>

er det den smarteste måde `?

<%
dim egen, chef, medarbejder, Kollega, andre, total
dim bg1, bg2, bg3, bg4, bg5, bg6

egen = 0
chef = 0
medarbejder = 0
Kollega = 0
andre = 0
total = 0

strSQL = "Select fBy, AVG(a1_1) 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")
  elseif rs("fby") = "Andre" then
    andre = rs("gennemsnit")
  end if
  rs.MoveNext
wend
strSQL = "Select AVG(a1_1) as gennemsnit From skema Where telefon = '" & Request.Querystring("id") & "'"
set rs = DataConn.Execute(strSQL)
total = rs("gennemsnit")

strSQL = "Select fBy, AVG(a1_2) as gennemsnit From skema Where telefon = '" & Request.Querystring("id") & "' group by fby"
set rs1111 = DataConn.Execute(strSQL)
while not rs1111.eof
  if rs1111("fby") = "Egen" then
    egen1 = rs1111("gennemsnit")
  elseif rs1111("fby") = "Chef" then
    chef1 = rs1111("gennemsnit")
  elseif rs1111("fby") = "Medarbejder" then
    medarbejder1= rs1111("gennemsnit")
  elseif rs1111("fby") = "Kollega" then
    Kollega1 = rs1111("gennemsnit")
  elseif rs1111("fby") = "Andre" then
    andre1 = rs1111("gennemsnit")
  end if
  rs1111.MoveNext
wend
strSQL = "Select AVG(a1_2) as gennemsnit From skema Where telefon = '" & Request.Querystring("id") & "'"
set rs1111 = DataConn.Execute(strSQL)
total1 = rs1111("gennemsnit")


bg1 = "#66CC33"
bg2 = "#66CC33"
bg3 = "#66CC33"
bg4 = "#66CC33"
bg5 = "#66CC33"
bg6 = "#66CC33"

if egen <= 2.49 then
  bg1 = "#FF3333"
elseif egen <= 3.5 then
  bg1 = "#FFFF00"
end if
if chef <= 2.49 then
  bg2 = "#FF3333"
elseif chef <= 3.5 then
  bg2 = "#FFFF00"
end if
if medarbejder <= 2.49 then
  bg3 = "#FF3333"
elseif medarbejder <= 3.5 then
  bg3 = "#FFFF00"
end if
if Kollega <= 1.49 then
  bg4 = "#FF3333"
elseif Kollega <= 3.5 then
  bg4 = "#FFFF00"
end if
if andre <= 2.49 then
  bg5 = "#FF3333"
elseif andre <= 3.5 then
  bg5 = "#FFFF00"
end if
if total <= 2.49 then
  bg6 = "#FF3333"
elseif total <= 3.5 then
  bg6 = "#FFFF00"
end if

strSQL = "Select * From skema Where telefon = '" & Request.Querystring("id") & "'"
Set rs = DataConn.Execute(strSQL)

%>
<BR>
Resultat side for <%=rs("telefon")%>
 
<BR><BR>
<B>Katagori: Selvledelse</B><BR>
<TABLE >
<TR>
    <TD bgcolor="#cccccc">&nbsp;</TD>
    <TD bgcolor="#cccccc"><B>Udviser lederskab</B></TD>
    <TD bgcolor="#cccccc" width="50" align="center"><B>Egen</B></TD>
    <TD bgcolor="#cccccc" width="50" align="center"><B>Chef</B></TD>
    <TD bgcolor="#cccccc" width="50" align="center"><B>Medarb.</B></TD>
    <TD bgcolor="#cccccc" width="50" align="center"><B>Kollega</B></TD>
    <TD bgcolor="#cccccc" width="50" align="center"><B>Andre</B></TD>
    <TD bgcolor="#cccccc" width="50" align="center"><B>Total</B></TD>
    <TD bgcolor="#cccccc" width="50" align="center"><B>Vægt</B></TD>
</TR>
<TR>
    <td>1</td>
    <td >Har forudseenhed</td>
    <td bgcolor="<%= bg1 %>" align="right"><%= formatnumber(egen,1)%></td>
    <td bgcolor="<%= bg2 %>"  align="right"><%= formatnumber(chef,1)%></td>
    <td bgcolor="<%= bg3 %>"  align="right"><%= formatnumber(medarbejder,1)%></td>
    <td bgcolor="<%= bg4 %>"  align="right"><%= formatnumber(Kollega,1)%></td>
    <td bgcolor="<%= bg5 %>"  align="right"><%= formatnumber(andre,1)%></td>
    <td bgcolor="<%= bg6 %>"  align="right"><%= formatnumber(total,1)%></td>
    <td></td>
</TR>
<TR>
    <td>2</td>
    <td >Har situationsfornemmelse</td>
    <td bgcolor="<%= bg1 %>" align="right"><%= formatnumber(egen1,1)%></td>
    <td bgcolor="<%= bg2 %>"  align="right"><%= formatnumber(chef1,1)%></td>
    <td bgcolor="<%= bg3 %>"  align="right"><%= formatnumber(medarbejder1,1)%></td>
    <td bgcolor="<%= bg4 %>"  align="right"><%= formatnumber(Kollega1,1)%></td>
    <td bgcolor="<%= bg5 %>"  align="right"><%= formatnumber(andre1,1)%></td>
    <td bgcolor="<%= bg6 %>"  align="right"><%= formatnumber(total1,1)%></td>
    <td></td>
</TR>
</BODY>
</HTML>

Nej. Smid det hele i em stor løkke:

<%
dim egen, chef, medarbejder, Kollega, andre, total
dim bg1, bg2, bg3, bg4, bg5, bg6

strSQL = "Select * From skema Where telefon = '" & Request.Querystring("id") & "'"
Set rs = DataConn.Execute(strSQL)

%>
<BR>
Resultat side for <%=rs("telefon")%>
 
<BR><BR>
<B>Katagori: Selvledelse</B><BR>
<TABLE >
<TR>
    <TD bgcolor="#cccccc">&nbsp;</TD>
    <TD bgcolor="#cccccc"><B>Udviser lederskab</B></TD>
    <TD bgcolor="#cccccc" width="50" align="center"><B>Egen</B></TD>
    <TD bgcolor="#cccccc" width="50" align="center"><B>Chef</B></TD>
    <TD bgcolor="#cccccc" width="50" align="center"><B>Medarb.</B></TD>
    <TD bgcolor="#cccccc" width="50" align="center"><B>Kollega</B></TD>
    <TD bgcolor="#cccccc" width="50" align="center"><B>Andre</B></TD>
    <TD bgcolor="#cccccc" width="50" align="center"><B>Total</B></TD>
    <TD bgcolor="#cccccc" width="50" align="center"><B>Vægt</B></TD>
</TR>
<%

for f = 1 to 96

    egen = 0
    chef = 0
    medarbejder = 0
    Kollega = 0
    andre = 0
    total = 0
   
    strSQL = "Select fBy, AVG(a1_"& f &") 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")
      elseif rs("fby") = "Andre" then
        andre = rs("gennemsnit")
      end if
      rs.MoveNext
    wend
    strSQL = "Select AVG(a1_"& f &") as gennemsnit From skema Where telefon = '" & Request.Querystring("id") & "'"
    set rs = DataConn.Execute(strSQL)
    total = rs("gennemsnit")
   
    bg1 = "#66CC33"
    bg2 = "#66CC33"
    bg3 = "#66CC33"
    bg4 = "#66CC33"
    bg5 = "#66CC33"
    bg6 = "#66CC33"
   
    if egen <= 2.49 then
      bg1 = "#FF3333"
    elseif egen <= 3.5 then
      bg1 = "#FFFF00"
    end if
    if chef <= 2.49 then
      bg2 = "#FF3333"
    elseif chef <= 3.5 then
      bg2 = "#FFFF00"
    end if
    if medarbejder <= 2.49 then
      bg3 = "#FF3333"
    elseif medarbejder <= 3.5 then
      bg3 = "#FFFF00"
    end if
    if Kollega <= 1.49 then
      bg4 = "#FF3333"
    elseif Kollega <= 3.5 then
      bg4 = "#FFFF00"
    end if
    if andre <= 2.49 then
      bg5 = "#FF3333"
    elseif andre <= 3.5 then
      bg5 = "#FFFF00"
    end if
    if total <= 2.49 then
      bg6 = "#FF3333"
    elseif total <= 3.5 then
      bg6 = "#FFFF00"
    end if
%>

<TR>
    <td><%= f %></td>
    <td >Har forudseenhed</td>
    <td bgcolor="<%= bg1 %>" align="right"><%= formatnumber(egen,1)%></td>
    <td bgcolor="<%= bg2 %>"  align="right"><%= formatnumber(chef,1)%></td>
    <td bgcolor="<%= bg3 %>"  align="right"><%= formatnumber(medarbejder,1)%></td>
    <td bgcolor="<%= bg4 %>"  align="right"><%= formatnumber(Kollega,1)%></td>
    <td bgcolor="<%= bg5 %>"  align="right"><%= formatnumber(andre,1)%></td>
    <td bgcolor="<%= bg6 %>"  align="right"><%= formatnumber(total,1)%></td>
    <td></td>
</TR>

<%
next
%>
</table>
</BODY>
</HTML>

Hvis du har navnet på spørgsmålet i databasen ("Har forudseenhed", "Har situationsfornemmelse" osv) kan du lave en select til som trækker det ud. Ellers skal der hardcodes en stor if/else eller case som knyter 1-96 til det rigtige navn. Det kan med fordel laves i en funktion, som så bare skal kaldes i løkken:

function getName(fNum)
  select case fNum
    case 1 getName = "Har forudseenhed"
    case 2 getName = "Har situationsfornemmelse"
    case 3 getName = "Har ..."
    case 4 getName = "Har ..."
  end select
end function

super men den laver ikke totalen helt rigtigt :-)

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

skide smart hvordan sætter jeg denne ind

function getName(fNum)
  select case fNum
    case 1 getName = "Har forudseenhed"
    case 2 getName = "Har situationsfornemmelse"
    case 3 getName = "Har ..."
    case 4 getName = "Har ..."
  end select
end function

strSQL = "Select * From skema Where telefon = '" & Request.Querystring("id") & "'"
Set rs = DataConn.Execute(strSQL)
%>
<%
dim egen, chef, medarbejder, Kollega, andre, total
dim bg1, bg2, bg3, bg4, bg5, bg6

strSQL = "Select * From skema Where telefon = '" & Request.Querystring("id") & "'"
Set rs = DataConn.Execute(strSQL)

%>
<BR>
Resultat side for <%=rs("telefon")%>
 
<BR><BR>
<B>Katagori: Selvledelse</B><BR>
<TABLE >
<TR>
    <TD bgcolor="#cccccc">&nbsp;</TD>
    <TD bgcolor="#cccccc"><B>Udviser lederskab</B></TD>
    <TD bgcolor="#cccccc" width="50" align="center"><B>Egen</B></TD>
    <TD bgcolor="#cccccc" width="50" align="center"><B>Chef</B></TD>
    <TD bgcolor="#cccccc" width="50" align="center"><B>Medarb.</B></TD>
    <TD bgcolor="#cccccc" width="50" align="center"><B>Kollega</B></TD>
    <TD bgcolor="#cccccc" width="50" align="center"><B>Andre</B></TD>
    <TD bgcolor="#cccccc" width="50" align="center"><B>Total</B></TD>
    <TD bgcolor="#cccccc" width="50" align="center"><B>Vægt</B></TD>
</TR>
<%

for f = 1 to 96

    egen = 0
    chef = 0
    medarbejder = 0
    Kollega = 0
    andre = 0
    total = 0
   
    strSQL = "Select fBy, AVG(a"& f &") 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")
      elseif rs("fby") = "Andre" then
        andre = rs("gennemsnit")
      end if
      rs.MoveNext
    wend
    strSQL = "Select AVG(a"& f &") as gennemsnit From skema Where telefon = '" & Request.Querystring("id") & "'"
    set rs = DataConn.Execute(strSQL)
    total = rs("gennemsnit")
   
    bg1 = "#66CC33"
    bg2 = "#66CC33"
    bg3 = "#66CC33"
    bg4 = "#66CC33"
    bg5 = "#66CC33"
    bg6 = "#66CC33"
   
    if egen <= 2.49 then
      bg1 = "#FF3333"
    elseif egen <= 3.5 then
      bg1 = "#FFFF00"
    end if
    if chef <= 2.49 then
      bg2 = "#FF3333"
    elseif chef <= 3.5 then
      bg2 = "#FFFF00"
    end if
    if medarbejder <= 2.49 then
      bg3 = "#FF3333"
    elseif medarbejder <= 3.5 then
      bg3 = "#FFFF00"
    end if
    if Kollega <= 1.49 then
      bg4 = "#FF3333"
    elseif Kollega <= 3.5 then
      bg4 = "#FFFF00"
    end if
    if andre <= 2.49 then
      bg5 = "#FF3333"
    elseif andre <= 3.5 then
      bg5 = "#FFFF00"
    end if
    if total <= 2.49 then
      bg6 = "#FF3333"
    elseif total <= 3.5 then
      bg6 = "#FFFF00"
    end if
%>

<TR>
    <td><%= f %></td>
    <td >Har forudseenhed</td>
    <td bgcolor="<%= bg1 %>" align="right"><%= formatnumber(egen,1)%></td>
    <td bgcolor="<%= bg2 %>"  align="right"><%= formatnumber(chef,1)%></td>
    <td bgcolor="<%= bg3 %>"  align="right"><%= formatnumber(medarbejder,1)%></td>
    <td bgcolor="<%= bg4 %>"  align="right"><%= formatnumber(Kollega,1)%></td>
    <td bgcolor="<%= bg5 %>"  align="right"><%= formatnumber(andre,1)%></td>
    <td bgcolor="<%= bg6 %>"  align="right"><%= formatnumber(total,1)%></td>
    <td></td>
</TR>

<%
next
%>
</table>
</BODY>
</HTML>

Dvs at den altid skal finde gennemsnittet for Egen, Chef, Medarbejder og Kollega og lægge disse 4 tal sammen, også dividere med 4 for at få totalen??

egen og chef er der kun en af.

men der kan være 7 medarbejder der giver point
og 5 kollegarer der giver point

og det er gennemsnittet vi skal have totalen af ikke som nu hvor den henter alle tal i feltet a1 og ligger sammen og /

håber du forstår

Det tror jeg nok jeg gør. Ret dette:

strSQL = "Select AVG(a"& f &") as gennemsnit From skema Where telefon = '" & Request.Querystring("id") & "'"
set rs = DataConn.Execute(strSQL)
total = rs("gennemsnit")

Til:
total = (egen+chef+medarbejder+Kollega)/4

den skal jeg lige have igen kan du sætte den ind i kode ?

sorry jeg har den :-) hvad med  11:21:25

Duer alt for sej takker :-)

<TR>
    <td><%= f %></td>
    <td ><%= getName(f) %></td>
    <td bgcolor="<%= bg1 %>" align="right"><%= formatnumber(egen,1)%></td>
    <td bgcolor="<%= bg2 %>"  align="right"><%= formatnumber(chef,1)%></td>
    <td bgcolor="<%= bg3 %>"  align="right"><%= formatnumber(medarbejder,1)%></td>
    <td bgcolor="<%= bg4 %>"  align="right"><%= formatnumber(Kollega,1)%></td>
    <td bgcolor="<%= bg5 %>"  align="right"><%= formatnumber(andre,1)%></td>
    <td bgcolor="<%= bg6 %>"  align="right"><%= formatnumber(total,1)%></td>
    <td></td>
</TR>

perfekt sidste twist på det hele....

total = (egen+chef+medarbejder+Kollega)/4

hvis medarbejder eller kollega gennemsnit = 0 (altså der ikke er nogen medarbejder der har udfyldt skemaet) skal den kun dividerer med 2 eller 3

for nu giver den forkert total hvis en af de 4 ikke har udfyldt skemaet :-)

Så skift den linje ud med disse:

totalDiv = 0
if egen > 0 then totalDiv = totalDiv + 1
if chef > 0 then totalDiv = totalDiv + 1
if medarbejder > 0 then totalDiv = totalDiv + 1
if Kollega > 0 then totalDiv = totalDiv + 1
if totalDiv > 0 then
  total = (egen+chef+medarbejder+Kollega)/totalDiv
else
  'Hvis slet ingen udfylninger er lavet af nogen
  total = 0
end if

hvordan kandu det lort :-) tak :-) må jeg ikke sende noget til dig ?

jeg skal have en top ti af og en bund 10 :-)

totalDiv = 0
if egen > 0 then totalDiv = totalDiv + 1
if chef > 0 then totalDiv = totalDiv + 1
if medarbejder > 0 then totalDiv = totalDiv + 1
if Kollega > 0 then totalDiv = totalDiv + 1
if totalDiv > 0 then
  total = (egen+chef+medarbejder+Kollega)/totalDiv
else
  'Hvis slet ingen udfylninger er lavet af nogen
  total = 0
end if

hvis du har tid :-)

Se den var straks værre, for det bliver en hæftig SQL-sætning, der skal bruges, hvis det ellers kan lade sig gøre i ren SQL. Ellers skal den forrige kode køres for hver person, og resultatet lægges i et array. Det array kan så sorteres.

Hvis det bare måtte være det almindelige gennemsnit, man kan finde med AVG() kunne det laves på 5 min. Men det er det jo desværre ikke :o)

Den må jeg lige tænke over, om der kan laves noget view eller lign på databasen, så det kan trækkes ud. Ellers er der kun array muligheden.

ja jeg tænkte nok den var svær... kan vi sætte de 96 totale gennemsnit ind i databasen og derefter trække dem ud ?

medens du grubler på den har jeg lige en anden

Før har vi tage gennemsnit af felt a1

Nu skal jeg bruge et totat på felt a1+a2+a3+a4 for egen, chef, medarb osv ligesom vi har gjort før... nu er det så horizontalt for første 4 sprg ... :-)

Et eller andet sted, kunne jeg måske godt tænke mig en helt anden database opbygning.
Jeg kan forstille mig, at det vil være nemmere at løse disse problemer. Er det i orden med dig at ændre opbygningen, for så kan jeg tage det med i mine overvejelser??

puha hvad tænker du på her

jeg har selv løst 14:13:09

vedr. 13:39:13 den skal jo ikke ud samme med den anden løkke .. vi kan bare vise det på en side for sig selv.. så kan vi ikke bare probbe alle totalgennemsnitterne i en tabel eller lave noget smart

Jeg havde forstillet mig en opbygning med spørgsmål i en tabel (et ? pr linje), og en svar tabel (et svar på linje), så vi kommer helt uden om alle de a1_x kolonner. Men det skal jeg først tegn einden jeg har den rigtige opbygning.

Når du siger en top/bund 10. Er det så pr ? eller pr total score?
Jeg kan se man har bruge for begge dele. F.eks se hvem der har scoret bedst total, men også hvem der er bedst til "Har situationsfornemmelse".

total score der er 96 total gennesnitter .. og det er de ti top og ti bund vi skal have ud...

a1 total = 4.3
a2 total = 2.3

osv så skal den vise a1 fordi den er top 1 ... det skal så bare være top 10

Dvs at det er de 10 ting, som en enkelt person er bedst og dårligst til, der skal trækkes ud?? Og ikke top 10 over hvem, der har fået den bedste score total??

nemlig til det første

Så laver vi et array og bruger det i den løkke du allerede har:

dim dataArr(1,95)
...
for f = 1 to 96
...
...
  if totalDiv > 0 then
    total = (egen+chef+medarbejder+Kollega)/totalDiv
  else
    'Hvis slet ingen udfylninger er lavet af nogen
    total = 0
  end if 
  dataArr(0,f-1) = f
  dataArr(1,f-1) = total
  ...
next

Så snupper vi funktionen herfra:
http://www.4guysfromrolla.com/webtech/011601-1.shtml

Sub DualSorter( byRef arrArray, DimensionToSort )
    Dim row, j, StartingKeyValue, StartingOtherValue, _
        NewStartingKey, NewStartingOther, _
        swap_pos, OtherDimension
    Const column = 1
   
    ' Ensure that the user has picked a valid DimensionToSort
    If DimensionToSort = 1 then
        OtherDimension = 0
    ElseIf DimensionToSort = 0 then
        OtherDimension = 1
    Else
        'Shoot, invalid value of DimensionToSort
        Response.Write "Invalid dimension for DimensionToSort: " & _
                      "must be value of 1 or 0."
        Response.End
    End If
   
    For row = 0 To UBound( arrArray, column ) - 1
    'Start outer loop.
   
        'Take a snapshot of the first element
        'in the array because if there is a
        'smaller value elsewhere in the array
        'we'll need to do a swap.
        StartingKeyValue = arrArray ( row, DimensionToSort )
        StartingOtherValue = arrArray ( row, OtherDimension )
       
        ' Default the Starting values to the First Record
        NewStartingKey = arrArray ( row, DimensionToSort )
        NewStartingOther = arrArray ( row, OtherDimension )
       
        swap_pos = row
       
        For j = row + 1 to UBound( arrArray, column )
        'Start inner loop.
            If arrArray ( j, DimensionToSort ) < NewStartingKey Then
            'This is now the lowest number -
            'remember it's position.
                swap_pos = j
                NewStartingKey = arrArray ( j, DimensionToSort )
                NewStartingOther = arrArray ( j, OtherDimension )
            End If
        Next
       
        If swap_pos <> row Then
        'If we get here then we are about to do a swap
        'within the array.
            arrArray ( swap_pos, DimensionToSort ) = StartingKeyValue
            arrArray ( swap_pos, OtherDimension ) = StartingOtherValue
           
            arrArray ( row, DimensionToSort ) = NewStartingKey
            arrArray ( row, OtherDimension ) = NewStartingOther
           
        End If   
    Next
End Sub

Og bruger den til at sortere vores array:
call DualSorter(dataArr, 1)

Du skulle nu gerne have et sorteret array:
for f=0 to 95
  response.write getName(dataArr(0,f)) &": "
  response.write dataArr(1,f) &"<br>"
next

Du kan så vælge kun at udskrive de første og sidste 10 resultater.

jeg kigger på det, hvordan sletter de tre sessions jeg sætter her ?

<form action="opretskema1.asp" method="post" onsubmit="return checkRadios(this);">
<input type="hidden" name="id" value="<%=Request.Querystring("id")%>">

<TABLE width="500">
<TR>
    <TD>Bruger: </TD>
    <TD><input type="text"  name="efternavn" size="45"  class="Formindhold" value="<%=session("efternavn")%>">
   
</TR>



<TR>
    <TD>Hvem skal evalueres:</TD>
    <TD><input type="text"  name="telefon" size="45"  class="Formindhold" value="<%=session("telefon")%>">
             
</TR>

<TR>
    <TD></TD>
    <TD><input type="text" name="fby" size="45"  class="Formindhold" value="<%=session("fby")%>"></TD>
</TR>
</TABLE>
    <TABLE>
    <TR>
.  </TD>
    </TR>
    </TABLE>
<tD><CENTER><input type="submit" value="Afslut" name="send" class="knap" ></CENTER>

Session kan ikke slettes enkeltvis. Enten bruger du:
session.abandon
response.redirect("enSide.asp")

som nulstiller ALLE sessions, eller også sætter du dem simpelthen til ingenting med:
session("fby") = ""

Det er vigtigt at bemærke, at abandon først træder i kraft efter man skifter til en ny side. Derfor skal en abandon oftes efterfølges af en redirect. Et eks:

session("test") = "Hej med dig"
session.abandon
response.write session("test")

vil udskrive "Hej med dig" på skræmen, da man stadig er på samme side.

den er tæt på

<%
dim dataArr(1,95)

for f = 1 to 96


  if totalDiv > 0 then
    total = (egen+chef+medarbejder+Kollega)/totalDiv
  else
    'Hvis slet ingen udfylninger er lavet af nogen
    total = 0
  end if 
  dataArr(0,f-1) = f
  dataArr(1,f-1) = total
 
next

Sub DualSorter( byRef arrArray, DimensionToSort )
    Dim row, j, StartingKeyValue, StartingOtherValue, _
        NewStartingKey, NewStartingOther, _
        swap_pos, OtherDimension
    Const column = 1
   
    ' Ensure that the user has picked a valid DimensionToSort
    If DimensionToSort = 1 then
        OtherDimension = 0
    ElseIf DimensionToSort = 0 then
        OtherDimension = 1
    Else
        'Shoot, invalid value of DimensionToSort
        Response.Write "Invalid dimension for DimensionToSort: " & _
                      "must be value of 1 or 0."
        Response.End
    End If
   
    For row = 0 To UBound( arrArray, column ) - 1
    'Start outer loop.
   
        'Take a snapshot of the first element
        'in the array because if there is a
        'smaller value elsewhere in the array
        'we'll need to do a swap.
        StartingKeyValue = arrArray ( row, DimensionToSort )
        StartingOtherValue = arrArray ( row, OtherDimension )
       
        ' Default the Starting values to the First Record
        NewStartingKey = arrArray ( row, DimensionToSort )
        NewStartingOther = arrArray ( row, OtherDimension )
       
        swap_pos = row
       
        For j = row + 1 to UBound( arrArray, column )
        'Start inner loop.
            If arrArray ( j, DimensionToSort ) < NewStartingKey Then
            'This is now the lowest number -
            'remember it's position.
                swap_pos = j
                NewStartingKey = arrArray ( j, DimensionToSort )
                NewStartingOther = arrArray ( j, OtherDimension )
            End If
        Next
       
        If swap_pos <> row Then
        'If we get here then we are about to do a swap
        'within the array.
            arrArray ( swap_pos, DimensionToSort ) = StartingKeyValue
            arrArray ( swap_pos, OtherDimension ) = StartingOtherValue
           
            arrArray ( row, DimensionToSort ) = NewStartingKey
            arrArray ( row, OtherDimension ) = NewStartingOther
           
        End If   
    Next
End Sub


call DualSorter(dataArr, 1)

for f=0 to 10
  response.write getName(dataArr(0,f)) &": "
  response.write dataArr(1,f) &"<br>"
next
%>
udskrift
: 1
: 2
Kan planlægge og prioritere: 0
Kan revurdere en given situation, når dette er påkrævet: 0
Er modtagelig for nye ideer og tanker: 0
Er nytænkende og finder nye veje: 0
Er hurtig til at gennemføre ny viden og høste erfaringer : 0
Er nysgerrig og spørgelysten : 0
Trives med at have mange bolde i luften samtidig : 0
Kan forstå komplicerede sammenhænge: 0
Kan finde løsningen på selv vanskelige problemer : 0

jeg tror ikke helt det er sådan det skal se ud er det ?

Det er det, men du manger resten af koden i loopet. Det gad jeg bare ikke klippe ind (dovenskaben længe leve :o)

for f = 1 to 96
    egen = 0
    chef = 0
    medarbejder = 0
    Kollega = 0
    andre = 0
    total = 0
   
    strSQL = "Select fBy, AVG(a"& f &") 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")
      elseif rs("fby") = "Andre" then
        andre = rs("gennemsnit")
      end if
      rs.MoveNext
    wend
    if totalDiv > 0 then
      total = (egen+chef+medarbejder+Kollega)/totalDiv
    else
      'Hvis slet ingen udfylninger er lavet af nogen
      total = 0
    end if 
    dataArr(0,f-1) = f
    dataArr(1,f-1) = total
next

Og jeg kan ikke klip/klistre rigtigt :o)

for f = 1 to 96
    egen = 0
    chef = 0
    medarbejder = 0
    Kollega = 0
    andre = 0
    total = 0
   
    strSQL = "Select fBy, AVG(a"& f &") 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")
      elseif rs("fby") = "Andre" then
        andre = rs("gennemsnit")
      end if
      rs.MoveNext
    wend
    totalDiv = 0
    if egen > 0 then totalDiv = totalDiv + 1
    if chef > 0 then totalDiv = totalDiv + 1
    if medarbejder > 0 then totalDiv = totalDiv + 1
    if Kollega > 0 then totalDiv = totalDiv + 1
    if totalDiv > 0 then
      total = (egen+chef+medarbejder+Kollega)/totalDiv
    else
      'Hvis slet ingen udfylninger er lavet af nogen
      total = 0
    end if
    dataArr(0,f-1) = f
    dataArr(1,f-1) = total
next

sådan her så kommer der slet ikke noget ud :-)


<%
dim dataArr(1,95)

for f = 1 to 96


  if totalDiv > 0 then
    total = (egen+chef+medarbejder+Kollega)/totalDiv
  else
    'Hvis slet ingen udfylninger er lavet af nogen
    total = 0
  end if 
  dataArr(0,f-1) = f
  dataArr(1,f-1) = total
 
next

Sub DualSorter( byRef arrArray, DimensionToSort )
    Dim row, j, StartingKeyValue, StartingOtherValue, _
        NewStartingKey, NewStartingOther, _
        swap_pos, OtherDimension
    Const column = 1
   
    ' Ensure that the user has picked a valid DimensionToSort
    If DimensionToSort = 1 then
        OtherDimension = 0
    ElseIf DimensionToSort = 0 then
        OtherDimension = 1
    Else
        'Shoot, invalid value of DimensionToSort
        Response.Write "Invalid dimension for DimensionToSort: " & _
                      "must be value of 1 or 0."
        Response.End
    End If
   
    For row = 0 To UBound( arrArray, column ) - 1
    'Start outer loop.
   
        'Take a snapshot of the first element
        'in the array because if there is a
        'smaller value elsewhere in the array
        'we'll need to do a swap.
        StartingKeyValue = arrArray ( row, DimensionToSort )
        StartingOtherValue = arrArray ( row, OtherDimension )
       
        ' Default the Starting values to the First Record
        NewStartingKey = arrArray ( row, DimensionToSort )
        NewStartingOther = arrArray ( row, OtherDimension )
       
        swap_pos = row
       
        For j = row + 1 to UBound( arrArray, column )
        'Start inner loop.
            If arrArray ( j, DimensionToSort ) < NewStartingKey Then
            'This is now the lowest number -
            'remember it's position.
                swap_pos = j
                NewStartingKey = arrArray ( j, DimensionToSort )
                NewStartingOther = arrArray ( j, OtherDimension )
            End If
        Next
       
        If swap_pos <> row Then
        'If we get here then we are about to do a swap
        'within the array.
            arrArray ( swap_pos, DimensionToSort ) = StartingKeyValue
            arrArray ( swap_pos, OtherDimension ) = StartingOtherValue
           
            arrArray ( row, DimensionToSort ) = NewStartingKey
            arrArray ( row, OtherDimension ) = NewStartingOther
           
        End If   
    Next
End Sub


call DualSorter(dataArr, 1)

for f = 1 to 10
    egen = 0
    chef = 0
    medarbejder = 0
    Kollega = 0
    andre = 0
    total = 0
   
    strSQL = "Select fBy, AVG(a"& f &") 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")
      elseif rs("fby") = "Andre" then
        andre = rs("gennemsnit")
      end if
      rs.MoveNext
    wend
    totalDiv = 0
    if egen > 0 then totalDiv = totalDiv + 1
    if chef > 0 then totalDiv = totalDiv + 1
    if medarbejder > 0 then totalDiv = totalDiv + 1
    if Kollega > 0 then totalDiv = totalDiv + 1
    if totalDiv > 0 then
      total = (egen+chef+medarbejder+Kollega)/totalDiv
    else
      'Hvis slet ingen udfylninger er lavet af nogen
      total = 0
    end if
    dataArr(0,f-1) = f
    dataArr(1,f-1) = total
next
%>

Forkert løkke du har skiftet ud:

<%
dim dataArr(1,95)

for f = 1 to 96
    egen = 0
    chef = 0
    medarbejder = 0
    Kollega = 0
    andre = 0
    total = 0
   
    strSQL = "Select fBy, AVG(a"& f &") 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")
      elseif rs("fby") = "Andre" then
        andre = rs("gennemsnit")
      end if
      rs.MoveNext
    wend
    totalDiv = 0
    if egen > 0 then totalDiv = totalDiv + 1
    if chef > 0 then totalDiv = totalDiv + 1
    if medarbejder > 0 then totalDiv = totalDiv + 1
    if Kollega > 0 then totalDiv = totalDiv + 1
    if totalDiv > 0 then
      total = (egen+chef+medarbejder+Kollega)/totalDiv
    else
      'Hvis slet ingen udfylninger er lavet af nogen
      total = 0
    end if
    dataArr(0,f-1) = f
    dataArr(1,f-1) = total
next

Sub DualSorter( byRef arrArray, DimensionToSort )
    Dim row, j, StartingKeyValue, StartingOtherValue, _
        NewStartingKey, NewStartingOther, _
        swap_pos, OtherDimension
    Const column = 1
   
    ' Ensure that the user has picked a valid DimensionToSort
    If DimensionToSort = 1 then
        OtherDimension = 0
    ElseIf DimensionToSort = 0 then
        OtherDimension = 1
    Else
        'Shoot, invalid value of DimensionToSort
        Response.Write "Invalid dimension for DimensionToSort: " & _
                      "must be value of 1 or 0."
        Response.End
    End If
   
    For row = 0 To UBound( arrArray, column ) - 1
    'Start outer loop.
   
        'Take a snapshot of the first element
        'in the array because if there is a
        'smaller value elsewhere in the array
        'we'll need to do a swap.
        StartingKeyValue = arrArray ( row, DimensionToSort )
        StartingOtherValue = arrArray ( row, OtherDimension )
       
        ' Default the Starting values to the First Record
        NewStartingKey = arrArray ( row, DimensionToSort )
        NewStartingOther = arrArray ( row, OtherDimension )
       
        swap_pos = row
       
        For j = row + 1 to UBound( arrArray, column )
        'Start inner loop.
            If arrArray ( j, DimensionToSort ) < NewStartingKey Then
            'This is now the lowest number -
            'remember it's position.
                swap_pos = j
                NewStartingKey = arrArray ( j, DimensionToSort )
                NewStartingOther = arrArray ( j, OtherDimension )
            End If
        Next
       
        If swap_pos <> row Then
        'If we get here then we are about to do a swap
        'within the array.
            arrArray ( swap_pos, DimensionToSort ) = StartingKeyValue
            arrArray ( swap_pos, OtherDimension ) = StartingOtherValue
           
            arrArray ( row, DimensionToSort ) = NewStartingKey
            arrArray ( row, OtherDimension ) = NewStartingOther
           
        End If   
    Next
End Sub


call DualSorter(dataArr, 1)

for f=0 to 10
  response.write getName(dataArr(0,f)) &": "
  response.write dataArr(1,f) &"<br>"
next
%>

jeg skal lave gennemsnittet af a1+a2+a3+a4) er det sådan jeg kan gøre det ?

strSQL = "Select fBy, AVG(a1+a2+a3+a4) as gennemsnit From skema Where telefon = '" & Request.Querystring("id") & "' group by fby"

ok nu lister den bare top 10 sprg.

Har forudseenhed: 4
Har situationsfornemmelse: 4
Kan planlægge og prioritere: 5
Kan revurdere en given situation, når dette er påkrævet: 4
Er modtagelig for nye ideer og tanker: 4
Er nytænkende og finder nye veje: 4
Er hurtig til at gennemføre ny viden og høste erfaringer : 3
Er nysgerrig og spørgelysten : 5
Trives med at have mange bolde i luften samtidig : 3
Kan forstå komplicerede sammenhænge: 4
Kan finde løsningen på selv vanskelige problemer : 4


men ikke i de ti topscore ud af 96 sprg :-) den skal vi de 10 sprg som har højeste total = total = (egen+chef+medarbejder+Kollega)/totalDiv

ok har så løst 12:44:37 nu mangler vi bare den top 10 så er vi færsige ! og så vil jeg gerne have lov at takke dig på en eller anden måde !!!!!!!!!!!

Det var så ikke nemt at vide, men arrayet skal vendes om:
dim dataArr(1,95)
skal være:
dim dataArr(95,1)

dataArr(0,f-1) = f
dataArr(1,f-1) = total
skal være:
dataArr(f-1,0) = f
dataArr(f-1,0) = total

og
for f=0 to 10
  response.write getName(dataArr(0,f)) &": "
  response.write dataArr(1,f) &"<br>"
next
skal være:
for f=0 to 10
  response.write getName(dataArr(f,0)) &": "
  response.write dataArr(f,1) &"<br>"
next

så ser den sådan her ud..

<%
dim dataArr(95,1)

for f = 1 to 96
    egen = 0
    chef = 0
    medarbejder = 0
    Kollega = 0
    andre = 0
    total = 0
   
    strSQL = "Select fBy, AVG(a"& f &") 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")
      elseif rs("fby") = "Andre" then
        andre = rs("gennemsnit")
      end if
      rs.MoveNext
    wend
    totalDiv = 0
    if egen > 0 then totalDiv = totalDiv + 1
    if chef > 0 then totalDiv = totalDiv + 1
    if medarbejder > 0 then totalDiv = totalDiv + 1
    if Kollega > 0 then totalDiv = totalDiv + 1
    if totalDiv > 0 then
      total = (egen+chef+medarbejder+Kollega)/totalDiv
    else
      'Hvis slet ingen udfylninger er lavet af nogen
      total = 0
    end if
    dataArr(f-1,0) = f
dataArr(f-1,0) = total
next

Sub DualSorter( byRef arrArray, DimensionToSort )
    Dim row, j, StartingKeyValue, StartingOtherValue, _
        NewStartingKey, NewStartingOther, _
        swap_pos, OtherDimension
    Const column = 1
   
    ' Ensure that the user has picked a valid DimensionToSort
    If DimensionToSort = 1 then
        OtherDimension = 0
    ElseIf DimensionToSort = 0 then
        OtherDimension = 1
    Else
        'Shoot, invalid value of DimensionToSort
        Response.Write "Invalid dimension for DimensionToSort: " & _
                      "must be value of 1 or 0."
        Response.End
    End If
   
    For row = 0 To UBound( arrArray, column ) - 1
    'Start outer loop.
   
        'Take a snapshot of the first element
        'in the array because if there is a
        'smaller value elsewhere in the array
        'we'll need to do a swap.
        StartingKeyValue = arrArray ( row, DimensionToSort )
        StartingOtherValue = arrArray ( row, OtherDimension )
       
        ' Default the Starting values to the First Record
        NewStartingKey = arrArray ( row, DimensionToSort )
        NewStartingOther = arrArray ( row, OtherDimension )
       
        swap_pos = row
       
        For j = row + 1 to UBound( arrArray, column )
        'Start inner loop.
            If arrArray ( j, DimensionToSort ) < NewStartingKey Then
            'This is now the lowest number -
            'remember it's position.
                swap_pos = j
                NewStartingKey = arrArray ( j, DimensionToSort )
                NewStartingOther = arrArray ( j, OtherDimension )
            End If
        Next
       
        If swap_pos <> row Then
        'If we get here then we are about to do a swap
        'within the array.
            arrArray ( swap_pos, DimensionToSort ) = StartingKeyValue
            arrArray ( swap_pos, OtherDimension ) = StartingOtherValue
           
            arrArray ( row, DimensionToSort ) = NewStartingKey
            arrArray ( row, OtherDimension ) = NewStartingOther
           
        End If   
    Next
End Sub


call DualSorter(dataArr, 1)

for f=0 to 10
  response.write getName(dataArr(f,0)) &": "
  response.write dataArr(f,1) &"<br>"
next
%>

vi er tæt på:

her er hvad den skriver til mig...

Kan revurdere en given situation, når dette er påkrævet:
Kan revurdere en given situation, når dette er påkrævet:
Er modtagelig for nye ideer og tanker:
Kan revurdere en given situation, når dette er påkrævet:
Kan revurdere en given situation, når dette er påkrævet:
Kan revurdere en given situation, når dette er påkrævet:
Kan planlægge og prioritere:
Er modtagelig for nye ideer og tanker:
Kan planlægge og prioritere:
Kan revurdere en given situation, når dette er påkrævet:
Kan revurdere en given situation, når dette er påkrævet:

min fejl:
dataArr(f-1,0) = total

skal være:
dataArr(f-1,1) = total

SMUKT så er vi ved vejs ende (tror jeg) og ved at lave en recordt i indlæg !

nu må du altså lade mig give sende dig noget !!!!!!!! :-)

Hvad havde du forstillet dig at sende??

ja enlille gave eller noget som tak for den flotte hjælp :-)

sidst sidste ting... nu vise de lidt omvendt top 10 viser 10-9-8 den skal hellere vise 1-2-3-4  jeg har prøvet men kan ikke lige få det til at virke

Bund 10:
for f=0 to 10
  response.write getName(dataArr(f,0)) &": "
  response.write dataArr(f,1) &"<br>"
next

Top 10
for f=95 to 85 step -1
  response.write getName(dataArr(f,0)) &": "
  response.write dataArr(f,1) &"<br>"
next

Så skal du jo have min adresse :o)

Hvordan pokker klare vi den, for jeg er selvfølgelig ikke intresseret i at den står herinde til evigtid.

for f=0 to 10
  response.write getName(dataArr(f,0)) &": "
  response.write dataArr(f,1) &"<br>"
next

jeg har denne kode på men den skriver stadig ud i forkert rækkefølge vi skal have noget order by =
Top 10
for f=95 to 85 step -1
  response.write getName(dataArr(f,0)) &": "
  response.write dataArr(f,1) &"<br>"
next

du kan jo sende en mail til lottohaj snabela gmail.com

med adr og en lille ønkseseddel :-)

Hvad er bedst på listen. 1 eller 5??

Denne skulle jo gerne sortere så tallene blivere større og større. Jeg gik derfor ud fra at de 10 første var de dårligste og de 10 sidste var de bedste.

5 er bedst men det virker også den skrive det bare ud forkert rækkefølge .. den med 5 point skal komme først ..

og kan vi bruge formatnumber her så den kun skriver 2 decimaler efter..

Kan revurdere en given situation, når dette er påkrævet: 4
Besidder forandringsparathed: 4
Arbejder proaktivt med vidensdeling i teamet : 4
Er modtagelig for nye ideer og tanker : 4
Er modtagelig for nye ideer og tanker : 4
Er modtagelig for nye ideer og tanker : 4
Kan planlægge og prioritere: 4
Har forudseenhed: 4
Er modtagelig for nye ideer og tanker : 4
Er proaktiv selvudviklende: 4
Giver udtryk for egne holdninger og meninger : 5

Så burde:
for f=95 to 85 step -1
  response.write getName(dataArr(f,0)) &": "
  response.write dataArr(f,1) &"<br>"
next

virke. De bedste ligger jo sidst i tabellen, og edn udskriver vi baglæns. Det svare til at skrive:

response.write getName(dataArr(95,0)) &": "
response.write dataArr(95,1) &"<br>"
response.write getName(dataArr(94,0)) &": "
response.write dataArr(94,1) &"<br>"
response.write getName(dataArr(93,0)) &": "
response.write dataArr(93,1) &"<br>"
...

super det virker.. nu skal der bare ikke være mere end 2 decimaler efter

Er konsekvent i både ord og handling : 1.33333333333335 point
Kan modtage konstruktiv feedback og ændre adfærd: 1.33333333333335 point
Bruger teamet aktivt til at vurdere og analysere situationer: 1.33333333333335 point
Går foran med et godt eksempel: 1.33333333333335 point
Søger refleksion fra teamet over egen lederindsats: 1.33333333333335 point
Kan planlægge og prioritere: 1.33333333333335 point
Har forudseenhed: 1.33333333333335 point
Skaber et godt og konstruktiv engagement og korpsånd: 1.5 point
Kan planlægge og prioritere: 1.5 point
Kan revurdere en given situation, når dette er påkrævet: 1.5 point
Har situationsfornemmelse: 1.5 point

husk at sende mig en mail på gmail.com  :-)

Bare smid det igennem formatnumber(), som du har gjort tidligere.

jeg har prøvet men kan ikke helt få det til at virke

response.write dataArr formatnumber(f,1) &" point<br>"

response.write formatnumber(dataArr(f,1),1) &" point<br>"

smukt og kom så med den mail :-)

Den sendte jeg her i morges omkring kl 8:00. Har du ikke fået den??

var røget  spam :-)