Avatar billede sneakraid Nybegynder
16. marts 2005 - 16:37 Der er 2 kommentarer og
1 løsning

Tekst break i nyhedssystem

Hej alle på experten :)

Jeg sidder og har lavet mit eget smarte og simple nyhedssystem. Jeg kan sagtens skrive en masse tekst og så skifter den bare linie i nyheden. Det er jo også godt nok, men man SKAL skrive nyheden i Èn lang smøre, for at lave et break.

Kan man ikke skrive en smart kode, sådan at når man f.eks. laver et mellemrum i teksten, ligesom jeg har gjort her ^
så kommer den det linie-mellemrum også i nyheden ?.
Avatar billede eagleeye Praktikant
16. marts 2005 - 17:08 #1
Mener du return ?

I et textarea er return lig med vbCrLf (ASP konstant) og i browseren får man et linje skift ved brug af <br> så for at linje skift i et textarea bliver vist i browseren skal man replace vbCrLf med "<br>" eks:

teskt = Replace(request.form("textareanavn"), vbCrLf, "<br>")
reponse.write teskt


Teksten kan naturligvis også kommer fra en database eller andet sted end lige et textarea :)
Avatar billede sneakraid Nybegynder
16. marts 2005 - 17:21 #2
Jah okay.. kan ik lige umiddelbart lige helt forstå hvad det er du siger :)
Har du evt. et link eller noget hvor jeg kan læse ?

Ellers ser min kode sådan her ud, hvor jeg henter tekst fra databasen:

<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)};"
DSN = DSN & "DBQ=" & Server.MapPath ("pages/database.mdb")
Conn.Open DSN

strSQL = "Select * From news Order by ID Desc"
Set rs = Conn.Execute(strSQL)

if not (rs.EOF or rs.BOF) then

Do

strOverskrift = rs("overskrift")
strHistorie = rs("historie")
strDato = rs("dato")
strBillede = rs("billede")

%>
<div class="billede"><img src="images/<% =strBillede %>"></div>
<div class="box">
  <div class="overskrift"><% =strOverskrift %></div>
  <div class="historie"><% =strHistorie %></div>
    <div class="dato"><% =strDato %></div>
</div>
<br />
<%

rs.MoveNext
Loop While Not rs.EOF

Conn.Close
Set Conn = Nothing

else
response.write("Der findes ik nogle nyheder i databasen")
end if
%>

Hvordan fanden vil du skrive det, hvis man skal skrive ligesom det du forklarede før ? :) hehe
Avatar billede eagleeye Praktikant
16. marts 2005 - 17:23 #3
Hvis det er "historie" der skal linje skift i så prøv at rette denne linje:

strHistorie = rs("historie")

Til dette:

strHistorie = replace(rs("historie"), vbCrLf, "<br>")
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester