procent udtræk af exell

Nååå ja, her er scriptet :-)


<%
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
          "Data Source=C:\mappe\mappr\dagenstal med navne.xls;" & _
          "Extended Properties=""Excel 8.0;HDR=No;"";"
          Set oRS = Server.CreateObject("ADODB.Recordset")

Set oRS = Server.CreateObject("ADODB.Recordset")

oRS.Open "SELECT * from `indtast$A3:V3`", oConn, 1, 2

Response.Write "Aldersgennemsnittet blandt beboerne er idag den <b>" & round(oRS(4),1) & "</b> år.<br>"
'Response.Write "Der er  <b>" & oRS(3) & "</B> på Grenen i afgiftningen og  <b>" & oRS(0) + oRS(1)+ oRS(2) & " </b> på

Alfa-Fredensborg i Fredensborg.<br>"
'Response.Write "De <b>" & oRS(0) + oRS(1)+ oRS(2) & "</B> på Alfa-Fredensborg er fordelt som  <b>" & oRS(2) & "</b> i Primær

1, <b>" & oRS(1) & "</b> i primær 2 og <b>" & oRS(0) & "</b>  i udslusning.<br>"
'Response.Write "<br><b>Hvordan er Kønsfordelingen ?</b><br>Der er <b>" & oRS(5) & "</b> mænd og <b>" & oRS(6) & "</b>

kvinder i behandling på Alfa og grenen tilsammen.<br>"
Response.Write "Der er <b>" & oRS(7) & "</B> par i behandling sammen."
Response.Write "<br>Den yngste er <b>" & oRS(8) & "</B> og den ældste <b>" & oRS(9) & "</b> år gammel.<br>"
'Response.Write "<br><b>Hvor mange beboere har de forskellige Amter og kommuner på Alfa-Fredensborg ?</b><br>"
Response.Write "<br>"
Response.Write "<table width=200 border=0>"
'If oRS(10)>0 Then Response.Write "<td width=150 px>Københavns Amt </td><td><b>" & oRS(10) & "</b></td></tr>"
'If oRS(11)>0 Then Response.Write "<td width=150 px>Ribe Amt </td><td><b>" & oRS(11) & "</b></td></tr>"
'If oRS(12)>0 Then Response.Write "<td width=150 px>Viborg Amt </td><td><b>" & oRS(12) & "</b></td></tr>"
'If oRS(13)>0 Then Response.Write "<td width=150 px>Frederiksborg Amt </td><td><b>" & oRS(13) & "</b></td></tr>"
'If oRS(14)>0 Then Response.Write "<td width=150 px>Københavns kommune </td><td><b>" & oRS(14) & "</b></td></tr>"
'If oRS(15)>0 Then Response.Write "<td width=150 px>Skriv amtet her </td><td><b>" & oRS(15) & "</b></td></tr>"
'If oRS(16)>0 Then Response.Write "<td width=150 px>Skriv amtet her </td><td><b>" & oRS(16) & "</b></td></tr>"
'If oRS(17)>0 Then Response.Write "<td width=150 px>Skriv amtet her </td><td><b>" & oRS(17) & "</b></td></tr>"
'If oRS(18)>0 Then Response.Write "<td width=150 px>Skriv amtet her </td><td><b>" & oRS(18) & "</b></td></tr>"
'If oRS(19)>0 Then Response.Write "<td width=150 px>Skriv amtet her </td><td><b>" & oRS(19) & "</b></td></tr>"
Response.Write "</table>"
oRS.Close
Set oRS = Nothing
oConn.Close
Set oConn = Nothing
%>

Prøv med:

Response.Write "<br><b>Hvordan er Kønsfordelingen ?</b><br>Der er <b>" & (oRS(5)/(oRS(5) + oRS(6))) * 100 & "%</b> mænd og <b>" & (oRS(6)/(oRS(5) + oRS(6))) * 100 & "%</b>kvinder i behandling på Alfa og grenen tilsammen.<br>"

//sostack

lukker