---
title: "Inga radbrytningar?"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/70376-inga-radbrytningar"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "syrolis"
published: "2003-03-07T13:15:18.000Z"
updated: "2003-03-07T15:00:20.000Z"
replies: 5
views: 183
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/70376-inga-radbrytningar"
---

# Inga radbrytningar?

## #1 — syrolis, 2003-03-07T13:15Z

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%>
```

Permalänk: https://www.webforum.nu/p/70376

## #2 — Jesper T, 2003-03-07T13:44Z

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

Permalänk: https://www.webforum.nu/p/969892

## #3 — syrolis, 2003-03-07T13:58Z

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\*\*

Permalänk: https://www.webforum.nu/p/969913

## #4 — alj, 2003-03-07T14:02Z

:)

```
 <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>
```

Permalänk: https://www.webforum.nu/p/969917

## #5 — syrolis, 2003-03-07T14:23Z

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

Permalänk: https://www.webforum.nu/p/969941

## #6 — syrolis, 2003-03-07T15:00Z

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

Permalänk: https://www.webforum.nu/p/969988

---

Tråden på webben: https://www.webforum.nu/amne/asp/70376-inga-radbrytningar