exel i asp??

du kan ændre det så du hendter et område fra E3 til E8:


oRS.Open "SELECT * from `indtast$E3:E8`", oConn, 1, 2

Der er en masse korte sætninger med f. ex.

Der er 5 kvinder
der er 3 mænd
der er 2 i afgiftning
der er 7 i primærbehandling osv osv der er kun den ene vi har lavet er handler om gennemsnit

øh?  i excel arket eller skal det udskrives?

Det skal udskrives på en asp side

ligessom den første du lavede

Ja det som er i excel arket er det:

Der er 5 kvinder

eller er det
5

og så sætter ASP siden Der er ... kvinder omkring?

5
asp= der er 5 kvinder og 4 mænd
der er 4 i afgiftning og 3 i primær beh.

der er kun tal i arket. Jeg har lavet et felt der samler dataerne fra de enkelte kolonner. Det er dem jeg gerne vil have resten af vejen ud på hjemmesiden http://www.alfa-fredensborg.dk/alder.asp

Kan det så ikke lave i stil med:


oRS.Open "SELECT * from `indtast$E3:E8`", oConn, 1, 2

Response.Write "Aldersgennemsnittet blandt beboerne er idag den " & date & " <b>" & round(oRS(0),1) & "</b> år ..."
oRs.Movenext
Response.Write "Der er " & oRs(0) & " kvinder<br>"
oRs.Movenext
Response.Write "Der er " & oRs(0) & " mænd<br>"
oRs.Movenext
Response.Write "Der er " & oRs(0) & " afgitning<br>"
oRs.Movenext
Response.Write "Der er " & oRs(0) & " i primærbehandling osv osv der er kun den ene vi har lavet er handler om gennemsnit<br>"

det ene tal er i e3 det andet i f3 det 3 i h3 osv.

Så skal oRs.Open men SQL være:

oRS.Open "SELECT * from `indtast$E3:H3`", oConn, 1, 2

Jeg har prøvet med det her. Hvad er der galt??
<%
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
          "Data Source=C:\Company Shared Folders\administration\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$E3:E3`", oConn, 1, 2
If not (oRs.bof or oRs.eof) Then
While
  Response.Write "Aldersgennemsnittet blandt beboerne er idag den " & date & " <b>" & round(oRS(0),1) & "</b> år ..." & vbCrLf
  Response.Write "Andet tal: " & oRS(1) & "<br>" & vbCrLf
  Response.Write "Tredie tal: " & oRS(2) & "<br>" & vbCrLf
  Response.Write "Fjerde tal: " & oRS(3) & "<br>" & vbCrLf
  oRs.MoveNext
Wend
End If
oRS.Close
Set oRS = Nothing
oConn.Close
Set oConn = Nothing
%>

Enten skal du hendte dem alle på en gang eller lave 4 SQL sætninger som hendter en af gangen. Hvis man hendte alle på en gang skal det laves så man rykker frem med movenext efter hver:


oRS.Open "SELECT * from `indtast$E3:I3`", oConn, 1, 2

Response.Write "Aldersgennemsnittet blandt beboerne er idag den " & date & " <b>" & round(oRS(0),1) & "</b> år ..."
oRs.Movenext
Response.Write "Der er " & oRs(0) & " kvinder<br>"
oRs.Movenext
Response.Write "Der er " & oRs(0) & " mænd<br>"
oRs.Movenext
Response.Write "Der er " & oRs(0) & " afgitning<br>"
oRs.Movenext
Response.Write "Der er " & oRs(0) & " i primærbehandling osv osv der er kun den ene vi har lavet er handler om gennemsnit<br>"

med X antal SQL sætninger:

oRS.Open "SELECT * from `indtast$E3:E3`", oConn, 1, 2
Response.Write "Aldersgennemsnittet blandt beboerne er idag den " & date & " <b>" & round(oRS(0),1) & "</b> år ..."
oRS.Close

oRS.Open "SELECT * from `indtast$F3:F3`", oConn, 1, 2
Response.Write "Der er " & oRs(0) & " kvinder<br>"
oRS.Close

oRS.Open "SELECT * from `indtast$G3:G3`", oConn, 1, 2
Response.Write "Der er " & oRs(0) & " mænd<br>"
oRS.Close

osv..