loop i loop

ps. alle felter er tekst felter

set Rs=server.createObject("adodb.recordset")
set conn=server.createObject("adodb.connection")'

databaseSti="Provider=Microsoft.Jet.OleDb.4.0;Data Source="&Server.MapPath("database.mdb")

conn.open databaseSti
Rs.activeconnection=conn
SQL="SELECT * from Tabel"
Rs.open(SQL)
sidsteUgenummer="0"
do while not Rs.eof
    ugenummer=Rs.fields("ugenummer")
    if sidsteUgenummer<>ugenummer then
        response.write"Ugen er"&ugenummer&"<br>"
        sidsteUgenummer=ugenummer
    end if
    response.write rs.fields("vejnavn")&" - "&rs.fields("niveau")&"<br>"
rs.movenext
loop

Hvis jeg har læst det rigtigt vil du have skrevet ugen ud i toppen og derefter alle de vejnavne og nivaeuer der hører til i den uge, derefter den næste uge og dens vejnavne osv...

<%
strSQL ="SELECT * FROM [tabelnavn]"
Set objRs = Conn.Execute(strSQL)

Response.Write "Ugen er " & objRs("ugenummer")
While NOT objRs.EOF ' End Of File
  str1SQL = "SELECT " &_
        "Ugenummer AS ugenummer, " &_
        "Vejnavn AS vejnavn, " &_
        "Niveau AS niveau " &_
        "FROM [tabelnavn] " &_
        "WHERE Ugenummer = " & objRs("ugenummer")
  Set obj1Rs = Conn.Execute(str1SQL)

  Response.Write obj1Rs("vejnavn") & " - " & obj1Rs("niveau")
  obj1Rs.Close
  Set obj1Rs = nothing
objRs.MoveNext
Wend
objRs.Close
Set objRs = nothing 'lukker og slukker for db forbindelsen
%>

Det er ikke sådan du vil have det ..

/ Curriculum

tekstfelter -->
udskift:
"WHERE Ugenummer = " & objRs("ugenummer")
med:
"WHERE Ugenummer = '" & objRs("ugenummer") & "'"

/Curriculum

tak mundi