Hvorfor blir billedet og teksten gentaget 10 gange ??

Din første while skal vel være en if

Har forsøgt, men ved ikke præcist hvor IF skal ende. Kan du ikke kopiere det som du vil skrive ind her ;-)

Thanx

Din kode skal sandsynligvis se ud i retningen af

Sub A()
    Response.write("<Center><h2>Krydderurter A</h2></Center>")
    sSQL = "SELECT * FROM URT, OPLYSNINGER Where urtID='A'"
    Set ObjRs = ObjConn.Execute(sSQL)
    ' Denne linje er unødvendig da cursor'en allerede peger på første record ObjRs.MoveFirst
    If Not ObjRs.EOF
        Response.Write("<TABLE Cellspacing=25 ALIGN='center' WIDTH='400' >")
        Do While Not ObjRs.EOF 
            Response.write("<TR><TD><IMG SRC=" & ObjRs("Billede") & ">")
            Response.Write("<TD>" & ObjRs("dansknavn") & ObjRs("latinnavn"))
            ObjRs.MoveNext 
        Loop
        'Response.Write("<TR><TD><INPUT NAME='FNæste' TYPE='submit' VALUE='Næste'>")
        Response.Write("</TABLE>")
        'Response.Write ("<img src=" & ObjRs("Sti") & "><BR>" & ObjRs("Tekst") & "<BR>")
        'ObjRs.MoveNext
    End If
End sub

Du skal også være opmærksom på at afslutte dine td'er og tr'er