Dato

Forslag:

Set Conn = Server.CreateObject("ADODB.Connection")
dbConn = "SERVER=Local;DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/fpdb/dindatabase.mdb")
Conn.open dbConn

SQL = "SELECT TOP 5 * FROM debat ORDER BY emneID DESC"
Set RS = Conn.Execute( SQL )

while NOT RS.EOF
text = left(RS("kommentar"), 150)
text = replace(text,vbcrLF,"<br>")
response.write "<tr><td><b>" & "Af: " & "</b>" & "<i>" &  RS("nick") & "</i></td></tr>"
response.write "<tr><td>" & "Emne: " & "<i>" & RS("emne") & "</i>" &  "</td></tr>"
response.write "<tr><td><p align=""justify""><b>" & RS("brodtekst") & "</b></td></tr>"
response.write "<tr><td><p align=""justify"">" &  text &  "</p></td></tr>"
response.write "<tr><td>" & "Læs hele emnet her!" & "</td></tr>"
response.write "<tr><td colpan=""2""><img src=""/images/bundlinie.gif"" border=""0""></td></tr>"
RS.MoveNext
text=""
wend
RS.Close
Set RS = nothing
Conn.Close
Set Conn = nothing
%>

Linien text = left(RS("kommentar"), 150) viser de første 150 karakterer fra teksten. Det kan du jo fjerne.

Det hele skal jo tilpasses, men virker fint :o)

Mange tak, det virkede pointene vil å til dig!

Tak for det. Så må jeg jo hellere svare :o)