Er der en der kan se fejlen ?

Du skal nok lige poste koden så vi har noget at gå ud fra :-)

doohh jeg glemte koden :
<%
Dim objConnads
Set objConnads = Server.CreateObject ("ADODB.Connection")
objConnads.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\aconsult.us\www\upload\ads.mdb"
objConnads.Open () 

Dim objRS
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open "SELECT id,images FROM comments" ,objConnads, adOpenDynamic, adLockOptimistic
%>                   
                    <td valign="top" width="350">
                        <table width="100%" border="0" cellspacing="5" cellpadding="5">
                            <tr>
                                <td>ID</td>
                                <td colspan="2">
                                    <div align="center">
                                        aconsult har for tiden disse oplysninger : </div>
                                </td>
                            </tr>
                           
<%
Set objRS=objConnads.Execute("SELECT id, images FROM comments")
Do while Not objRS.EOF
Response.Write"<tr><td>" & objRS("id") &"</td>"
%>
<td><% if ObjRS("images")<>""then %><img src='<%= ObjRS ("images")%>'><% end if %></td>                   
                            </tr>
                           
                       
                    </td>
<%
objRS.Movenext
Loop

objRS.Close
Set objRS = Nothing


objConnads.Close
Set objConnads = Nothing
%>

din kode burde vise alle poster i tabellen comments, er du sikker på at der er flere end én.

Der er nu en fejl, idet du åbner dit recordset to gange, slet disse to linier:
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open "SELECT id,images FROM comments" ,objConnads, adOpenDynamic, adLockOptimistic

og denne:
objRS.Close

så er det i hvert fald mere rigtigt

ja der er flere poster, den skriver mine id felter godt nok men viser kun det første billede

Nu har jeg fået det til at virke med billeder men hvordan får jeg den til at vise txt filer ?

Du kan ikke få vist en txt eller doc fil på samme måde som du kan få vist billeder, der er du nødt til at lave det til links som man så kan klikke på og få vist.

hmmm da jeg lavede mit første forsøg med upload kunne jeg skrive txt filen (uden database) med FileObject tror jeg det var , jeg er dog ikke helt sikker . Så det må vel kunne lade sig gøre på en eller anden facon

Ja ok på den måde, så skal du åbne den og læse en linie og skrive linien indtil filen er tom.

Tak men hvordan gør jeg så det ikke kommer til at konflikte ? Jeg har jo mine filer i same mappe, skal jeg lade FileObject udskrive i et <td> for sig eller skal der laves et If - else ? kunne man evt det? lave det så det chekker på fileextensions? Havd er den bedste måde at angribe det på ?

Jeg fandt noget kode som henter en mappe ind i en Filescollection og løber dem igennem, jeg vil mene at du kan tage udgangspunkt i dette og så evt. teste for extension, jeg har nemlig ikke fundet noget hvor man kan hente filer af en bestemt type. Her er koden jeg fandt

<%
Dim filesys, demofolder, fil, filecoll, filist
Set filesys = CreateObject("Scripting.FileSystemObject")
Set demofolder = filesys.GetFolder("foldername") 
Set filecoll = demofolder.Files
For Each fil in filecoll
    filist = filist & fil.name 
    filist = filist & "<BR>" 
Next 
Response.Write filist
%>

Den kommer herfra http://www.devguru.com/Technologies/vbscript/quickref/filescollection.html hvor du også kan finde de events mm der hører til FileSystemObject.

Håber dette hjælper dig videre.

hmm... det er vist på tide at lukke, bertie hvis du ser dette så smid lige et svar

Jo da :-)