Nyheds Script

Hejsa

Jeg er ved at lave et nyheds script som vise de 10 sidste nyheder på min forside den skal vise Overskrift og så skal den vise 250 tegn af selve nyheden... Lige nu der viser den Overskrift og hele nyheden på forsiden og det fylder for meget....

Her er det ASP jeg bruger på min forside:

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("../Database/Bodykits.dk/Nyheder.mdb")
strSQL = "select top 10 * from nyheder ORDER BY id DESC"
set rs = Conn.execute(strSQL)

if rs.EOF then
Response.write "<font face=""Arial"" size=""1"" Color=""RED"">Databasen er tom.</font>"
else
Do Until rs.EOF
%>

<font face="Verdana" size="1"><B><A HREF="nyhed.asp?id=<%=RS("id")%>" TARGET="_top"><%=RS("overskrift")%></A></B></FONT><br>
<font face="Verdana" size="1"><%=RS("nyhed")%></FONT><br>

<%
RS.MoveNext
Loop
end if

Conn.Close
Set Conn = Nothing
%>