Inga radbrytningar?

Hej,
Jag har nu suttit med följande kod nu i flera timmar. Det är troligtvis något jag missar (läs: inte förstår) eftersom jag inte får till det.
För den som undrar så är koden från Gruvsjös nyhetsscript.

Man lägger in en nyhet som visas på sida 1 och så kan man läsa mer om man trycker på en länk.

Det blir fina radbrytningar på fortsättningssidan (trots att jag inte tillsätter HTML-kod) men på sidan 1 där folk ska bli intresserade av nyheten körs all text ihop i en massa.

Hur får jag till radbrytningar i förhandsvisningen (som jag har gjort xtra lång eftersom jag har det som artikelskript)?

Jag tackar på förhand!

  <%Set Conn = Server.CreateObject("ADODB.Connection") 
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & db

If Request.QueryString("ID") = "" Then

Set RecSet = Server.CreateObject("ADODB.Recordset")
Sidan = Request.QueryString("sida")
If Sidan = "" then 
     sida = 1 
Else 
     sida = Sidan 
End If 

With RecSet
    .CursorLocation = 3
    .CacheSize = NyhetPerSida
End With

SQL = "SELECT * FROM news Order By id desc"
RecSet.Open SQL, Conn

If RecSet.EOF Then%>
     <tr>
        <td>Inga nyheter inlagda!</td>
     </tr>
<%Else

With RecSet
  .MoveFirst 
  .PageSize = NyhetPerSida
  .AbsolutePage = sida
End With

Sidor =  RecSet.PageCount
x = 0 
Do While Not RecSet.EOF And x < RecSet.PageSize%>
   <tr>
      <td>
      
 
      
      <img src="manadens-kronika/bilder/news.gif" border="0" valign="middle"></td><td width="94%"><b><%=RecSet("rubrik")%></b> | <%=FormatDateTime(RecSet("datum"),2)%> (<%=FormatDateTime(RecSet("datum"),4)%>)</td>
   </tr>
   <tr>

<p>

      <td valign="top" colspan="2"><%If Len(RecSet("nyhet")) > 500Then%><%=Left(RecSet("nyhet"),500)%>...<%Else%><%=RecSet("nyhet")%><%End If%></td>
   </tr>
   <tr>
      <td colspan="2"><b><a href="<%=URL%>?ID=<%=RecSet("ID")%>">Läs mer</a></b></td>
   </tr>
   <tr height="20">
       <td colspan="2">&nbsp;</td>
   </tr>
<%x=x+1 
RecSet.MoveNext
Loop
RecSet.Close
If Sidor > 1 Then%>
  <tr>
     <td valign="top" colspan="2">
       <%For Sid = 1 To Sidor
               If (Int(Sid)) = (Int(sida)) Then%><b><%=Sid%></b><%Else%> <a href="<%=URL%>?sida=<%=Sid%>"><%=Sid%></a> <%End If
         Next%> 
    </td>
  </tr>
<%End If
  End If
End If
If Request.QueryString("ID") <> "" Then
Set RS=Conn.Execute("Select * From news Where id=" & Request.QueryString("ID"))%>
     <tr>
<%If RS("bild") <> "" Then%>
        <td rowspan="3" valign="top"></td>
        <td rowspan="3" width="5">&nbsp;</td>
<%End If%>
        <td width="6%"><img src="<%=RS("bild")%>" border="1" width="<%=Width%>">
          <p>&nbsp;</p>
</td><td width="94%"></td>
     </tr>
     <tr>   
     
     <b><H3><%=RS("rubrik")%></H3></b> | 
   
     
        <td colspan="2">  <%=Replace(RS("nyhet"),vbCrLf,"<br>")%><br><p><br>/&nbsp;<%=RS("namn")%>&nbsp;|&nbsp;<%=FormatDateTime(RS("datum"),2)%> (<%=FormatDateTime(RS("datum"),4)%>)</td>
     </tr>
     <tr>
        <td colspan="2"><br><a href="<%=URL%>">« Tillbaka</a></td>
     </tr>
<%End If%>

Det kan du nog göra med denna rad:
<%=Replace(RS("nyhet"),vbCrLf,"<br>")%>

Tack, jag antar att det är i denna rad det behöver ändras, men hur?

<td valign="top" colspan="2"><%If Len(RecSet("nyhet")) > 500Then%><%=Left(RecSet("nyhet"),500)%>...<%Else%><%=RecSet("nyhet")%><%End If%></td>

Eller har jag missförstått??

**trött i ögonen**

:)

 <td valign="top" colspan="2"><%If Len(RecSet("nyhet")) > 500Then%><%=Left(Replace(RecSet("nyhet"),vbCrLf,"<br>"),500)%>...<%Else%><%=Replace(RecSet("nyhet"),vbCrLf,"<br>")%><%End If%></td>

TACK!
Det fungerade kanon.
Då har jag lärt mig något idag också **glad**

TACK!
Det fungerade kanon.
Då har jag lärt mig något idag också **glad**