Loop lopoper ikke fra starten

prøv at sætte en

rs.cursorlocation=3

lige inden du kalder rs.open ...

desuden .. vær lige opmærksom på:

StrTitleOpgavebeskrivelse = replace(opgavebeskrivelse,"""","'")
StrTitleOpgavebeskrivelse = replace(opgavebeskrivelse,"<BR><BR>","<BR>")
StrTitleOpgavebeskrivelse = replace(opgavebeskrivelse,"<BR>",chr(13))

.. der tager du hver gang fra den oprindelige variabel .. du laver altså reelt ikke ALLE replaces .. men kun den sidste.. da ændringerne fra de andre bliver overskrevet ...

Du kan styre hvordan du hendter dine poster ud med ORDER BY kolonne ASC/DESC.
Har du en ORDER BY på eller ?

Efter dawin's rettelse i replace (tak for det) ser det således ud:
<%
    ansvarlig = request.querystring("ansvarlig")
    if ansvarlig = "" then
    ansvarlig = initialer
    end if
    SQL = "SELECT Opgave.ID, Opgave.Betegnelse, Opgave.Kategori, Opgave.Ansvarlig, Opgave.Rekvirent, Opgave.Deadline, Opgave.Prioritet, Opgave.Status, Opgave.Afsluttet, Opgave.Slutdato, Opgave.Registreret, Opgave.Problem, Opgave.Losning, Opgave.Vist, Opgave.Registrant, Opgave.priornr, Opgave.lostaf, Prioritet.Tekst, Opgave.priornr FROM Opgave, Prioritet WHERE Prioritet.Nummer=Opgave.Prioritet AND Ansvarlig = '" & ansvarlig & "' AND Afsluttet=0 Order By " & sortkey
    if Request.QueryString("sortkey") = "" then
    SQL = SQL & " ASC;"
    else
    SQL = SQL & " Desc;"
    End if
    set rs = Conn.Execute(sql)
%>
<% DO WHILE NOT rs.EOF or rs.BOF %>
<%
opgavebeskrivelse = rs("problem")
if isnull(opgavebeskrivelse) then
else
    if Len(opgavebeskrivelse) => 60 then
      KortBeskrivelse = left(opgavebeskrivelse,60) & "..."
    else
      KortBeskrivelse = opgavebeskrivelse
    end if
  StrTitleOpgavebeskrivelse = opgavebeskrivelse
  StrTitleOpgavebeskrivelse = replace(StrTitleOpgavebeskrivelse,"""","&quot;")
  StrTitleOpgavebeskrivelse = replace(StrTitleOpgavebeskrivelse,"<BR><BR>","<BR>")
  StrTitleOpgavebeskrivelse = replace(StrTitleOpgavebeskrivelse,"<BR>",chr(13))
end if
%>
  <tr bgcolor="<%=StrBackgroundColorGrey%>" class="tbltxtSmall">   
    <td align ="right" valign="top"><a class="Tbl" href="default.asp?page=inc_vis_opgave.asp&id=<%=rs("ID")%>" title="Denne opgave er oprettet af <%=StrRekvirentDisName%>, som kan kontaktes på tlf.nr.: <%=StrRekvirentTlfnr1%>"><%=rs("ID")%></a>&nbsp;</td>
    <td valign="top">
      <p class="TblTxt"><a class="Tbl" style="margin: 0;" href="default.asp?page=inc_vis_opgave.asp&id=<%=rs("ID")%>" title="<%=StrTitleOpgavebeskrivelse%>"><%=rs("Betegnelse")%></a></p></b><%=kortbeskrivelse%>&nbsp;<b><br>Prioritet: <%=rs("tekst")%>
    </td>
    <td valign="top" align="center"><a class="Tbl" href="default.asp?page=inc_vis_opgave.asp&id=<%=rs("ID")%>" ><%=rs("priornr")%></a>&nbsp;</td>
    <td valign="top" align="center"><a class="Tbl" href="default.asp?page=inc_vis_opgave.asp&id=<%=rs("ID")%>" title="Rekvirent: <%=StrRekvirentDisName%>"><%=StrRekvirentLogon%></a>&nbsp;</td>
      <% IF rs("status") = "EJ PÅBEGYNDT" THEN%>
    <td valign="top"><a class="Tbl" href="default.asp?page=inc_vis_opgave.asp&id=<%=rs("ID")%>" title="Dette er en ny opgave"><font color="FF0000"><%=rs("Status")%></font></a>&nbsp;</td>
      <% ELSE %>
    <td valign="top"><a class="Tbl" href="default.asp?page=inc_vis_opgave.asp&id=<%=rs("ID")%>" title="Opgavens status: <%=rs("Status")%>"><%=rs("Status")%></a>&nbsp;</td>
      <% END IF %>
      <% IF rs("Deadline") < Date then %>
    <td valign="top"><a class="Tbl" href="default.asp?page=inc_vis_opgave.asp&id=<%=rs("ID")%>" title="Denne opgave er overskredet deadline"><font color="#FF0000"><%=rs("Deadline")%></font></a>&nbsp;</td>
      <% ELSE %>
    <% Duedate = Date-rs("deadline") %>
    <% if duedate = 0 then
        Duedate = "IDAG"
        else
        Duedate = Duedate & " dage"
        end if
    %>
    <% Duedate = Replace(Duedate,"-","")%>
    <td valign="top"><a class="Tbl" href="default.asp?page=inc_vis_opgave.asp&id=<%=rs("ID")%>" title="Denne opgave skal være løst inden <%=duedate%>"><%=rs("Deadline")%></a>&nbsp;</td>
      <% END IF %>
  </tr>
    <%    rs.movenext
        loop
    %>

og den første opgave viser stadig ikke KortBeskrivelse .... ??

istedet for at åbne det med:

set rs = Conn.Execute(sql)

så prøv:

set rs=server.createobject("adodb.recordset")
rs.cursorlcation=3
rs.open sql,conn,1,1

og fjern den der "or rs.BOF" .. den bruger men normalt ikke...

Object doesn't support this property or method: 'cursorlcation'

men - hvis jeg udkommenterede denne, virker det :)
Kan du kort forklare hvad forskellen er på din og min metode, så jeg rent faktisk også lærer lidt af det :D