Hur får jag ut allt?

Visa mer kod.

Vad vill du se?

Tja, från dess att du öppnar ställer sql-frågan, inkl. hela loopen, till exempel.

Denna är inte helt 100, se min andra tråd om det...

<%
Dim rs
Dim rs_numRows

Set rs = Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection = MM_XXX_STRING
rs.Source = "SELECT *  FROM meny_datum, meny  WHERE Startdatum = Date()  ORDER BY Startdatum Desc"
rs.CursorType = 0
rs.CursorLocation = 2
rs.LockType = 1
rs.Open()

rs_numRows = 0
%>

Ok, här är loopen.

<% 
While ((Repeat1__numRows <> 0) AND (NOT rs.EOF)) 
%>
                  <% IF (rs.Fields.Item("Veckodag").Value) = "Måndag" THEN Response.Write (rs.Fields.Item("dagens_inlagg").Value) & "<br>" END IF %>
                  <% 
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  rs.MoveNext()
Wend
%>

Nästa loop ser ut så här:

<% 
While ((Repeat2__numRows <> 0) AND (NOT rs.EOF)) 
%>
                  <% IF (rs.Fields.Item("Veckodag").Value) = "Tisdag" THEN Response.Write (rs.Fields.Item("dagens_inlagg").Value) & "<br>" END IF %>
                  <% 
  Repeat2__index=Repeat2__index+1
  Repeat2__numRows=Repeat2__numRows-1
  rs.MoveNext()
Wend
%>

När du har loopat igenom recordsetet för måndag är det eof. Det innebär att du inte kommer in i while-loopen för de andra dagarna. Om du nu måste loopa igenom samma recordset flera gånger, då måste du flytta upp markören överst innan du loopar de andra gångerna.

rs.MoveFirst

Eventuellt får du byta cursortype, om den du nu använder inte tillåter att du kör MoveFirst.

Får inte fram sidan alls när jag ändrar till MoveFirst.

Vadå "får inte fram sidan alls"?
Och vadå "ändrar till MoveFirst"? Du ska inte ändra till någonting. Du ska lägga till.

@nders skrev:

Eventuellt får du byta cursortype, om den du nu använder inte tillåter att du kör MoveFirst.

Tack. Jag tänkte ju fel. Är såååååå trött. Det funkar nu i alla fall. Tack tack! :birp