omskrivning af kode

Hej jeg har noget kode jeg skal have skrevet om så det bliver lidt bedre men jeg er gået helt i baglås..

Koden der virker men er besværlig for der er 90 sprg og her er resultatet for det første sprg. !

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>


Her er hvad er er i gang med Husk at baggrunden skifter farve alt efter hvilket tal man får 1= rød osv.

<%
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>"
  %>

Bare jeg får den første linie til at virke kan jeg resten :-)