<code><!-- #include Virtual="adovbs.inc" -->
<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access Driver (*.mdb)};dbq=h:\asp\friends.mdb"
If Request.QueryString("Ordning") ="Fnamn" OR Request.QueryString("Ordning") ="Enamn" Or Request.QueryString("ordning") ="Land" or request.QueryString("Ordning") ="Datum" Then
Set RecSet = Server.CreateObject("ADODB.RecOrdSet")
If Request.QueryString("ordning") ="Fnamn" Then
Addera ="Select * From Friends"
ElseIf Request.QueryString("Ordning") ="Enamn" Then
Addera ="Select * From Friends" ' 10
ElseIf Request.QueryString("Ordning") ="Land" Then
Addera ="select * From Friends"
ElseIf Request.QueryString("Ordning") ="Datum" Then
Addera ="Select * From Friends"
End If
RecSet.Open Addera,Connect,AdOpenStatic,AdLockOptimistic
%>
<ol> Sorterad adress lista
<% Do No Until RecSet.EOF %> Allt här och till början funkar</code>
<code><hr>
<li>
<% =RecSet("Fnamn") %>   <% =RecSet("Enamn") %>
<% =RecSet("Adress") %> <br> <% =Datum %> </code>
<li>
</ol>
<%
RecSet.MoveNext
loop
RecSet.Close
Connect.Close
End If
%>


Hejsan
<ol>allt funkar men t.om <ol> Sorerad lista (det här syns på sidan)
DO Until Not RecSet.Eof
det som kommer här koderna som skriver ut det på skärmen kommer inte ut på skärmen <hr> kommer inte ut heller vad är då fel?
allt annat funkar!
men inte resten.
Vad är då fel?
det färgade vissas inte.
vad är fel?

Problemet är löst.

Tuff kod, men forumet gillar den inte, du kan inte placera den inanför "code"-taggar?