vis overskrift og derefter punkterne under

Noget i stil af:

Response.Write \"<b>\" & rs(\"mdr\") & \"</b><br>\"
Do Until rs.EOF
  Response.Write rs(\"dag\") & \" - \" & rs(\"overskrift\")
  rs.MoveNext
Loop

Do while Not objRS.EOF
if Sidstemaaned = objRS(\"maaned\") Then
  Response.write objRS(\"dag\") & \"-\" & objRS(\"overskrift\") & \"<br>\"
Else
    Response.write objRS(\"maaned\") & \"<br>\"
    Response.write objRS(\"dag\") & \"-\" & objRS(\"overskrift\") & \"<br>\"
    Sidstemaaned = objRS(\"maaned\")
End if
objRS.Movenext
Loop

Dette kræver selvfølgelig at du bruger ORDER by Maaned i din SQL sætning.

Jeg vil gerne have en komplet fil.

<%
Option Explicit
Dim objConn, objRS, Sidstemaaned
Set objConn = Server.CreateObject(\"ADODB.Connection\")
objConn.Connectionstring = \"INDSÆT DIN CONNECTIONSTRING HER\"
objConn.Open

Set objRS = objConn.Execute(\"SELECT mdr, dag, overskrift FROM DITTABELNAVN ORDER BY mdr\")

Do while Not objRS.EOF
if Sidstemaaned = objRS(\"maaned\") Then
  Response.write objRS(\"dag\") & \"-\" & objRS(\"overskrift\") & \"<br>\"
Else
    Response.write objRS(\"maaned\") & \"<br>\"
    Response.write objRS(\"dag\") & \"-\" & objRS(\"overskrift\") & \"<br>\"
    Sidstemaaned = objRS(\"maaned\")
End if
objRS.Movenext
Loop
%>

Husk at indsætte rigtigt connectionstring og tabelnavn

Her

<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"Driver={Microsoft Access Driver (*.mdb)};DBQ=e:support.mdb\"
strSQL = \"SELECT * FROM Kalender order by Mdr,dag\"
set RS = conn.execute(strSQL)

Do while Not RS.EOF
if Sidstemaaned = MonthName(RS(\"mdr\")) Then
  Response.write RS(\"dag\") & \"-\" & RS(\"Event\") & \"<br><br>\"
Else
    Response.write MonthName(RS(\"mdr\")) & \"<br>\"
    Response.write RS(\"dag\") & \"-\" & RS(\"Event\") & \"<br>\"
    Sidstemaaned = RS(\"mdr\")
End if
RS.Movenext
Loop
%>

-Per

Fik lavet en lille fejl

if Sidstemaaned = RS(\"mdr\") Then
  Response.write RS(\"dag\") & \"-\" & RS(\"Event\") & \"<br><br>\"
Else
    Response.write MonthName(RS(\"mdr\")) & \"<br>\"
    Response.write RS(\"dag\") & \"-\" & RS(\"Event\") & \"<br>\"
    Sidstemaaned = RS(\"mdr\")
End if

>> perla

Jeg har lige prøvet dit, og det virker perfekt. Jeg har været ved at lave lidt om på designet, da jeg gerne vil have den til at indsætte det i en tabel. Jeg kan fint få den første til at stå i tabellen, men med de andre kan jeg ikke få det til at virke, så jeg ville hører, om jeg kan logge dig til det :-)

<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (\"spejder.mdb\")
strSQL = \"SELECT * FROM Kalender order by Mdr,dag\"
set RS = conn.execute(strSQL)

Do while Not RS.EOF
if Sidstemaaned = RS(\"mdr\") Then



  Response.write RS(\"dag\") & \"-\" & RS(\"overskrift\") & \"<br><br>\"
Else
Response.write \"<TABLE BORDER=0 CELLSPACING=0 class=tabel4>\"
Response.write \"<tr><TD class=tabel1 width=600><span class=overskrift>\" & MonthName(RS(\"mdr\")) & \"</span></TD></tr>\"
Response.write \"<TR><TD width=600><span class=normal><IMG SRC=images/pil.gif BORDER=0 WIDTH=5 HEIGHT=10 ALIGN=bottom>&nbsp;\" & RS(\"dag\") & \".&nbsp;-&nbsp;\" & RS(\"overskrift\") & \"<br>Gren(e):&nbsp;\" & RS(\"gren\") & \"</TD></span></tr>\"
Response.write \"<tr><TD class=tabel1 width=1></TD>\"
Response.write \"</tr></tr></TABLE>\"
Sidstemaaned = RS(\"mdr\")
End if
RS.Movenext
Loop
%>