ASP og Access

replace(rs("ditindhold"),vbcrlf, "<br>")

Hvis f.eks. bruger et tekstarea til at indtaste data, der skal gemmes i databasen, ligger linjeskift gemt. De er bare lagret på en anden måde, end det tag du normalt skriver i HTML.

Linjeskift i ASP/Access: vbCrLf
Linjeskift i HTML: <br>

Så skal du bare have vbCrLf lavet om til <br>, når du henter data ud af din database. Dette gøres med funktionen Replace():

Response.Write Replace(rs("feltnavn"), vbCrLf, "<br>")

Hvor rs er dit RecordSet, og "feltnavn" er navnet på det felt du har i tabellen i din database.

Det kan du sagtens jeg anvender ikke Response.Write direkte jeg anvender denne sub.

sub RWL(strLine)
  Response.Write(strLine & "<br>" & vbCrLf)
end sub

Den kan jo anvendes til lidt af hvert.

RWL("<td>" & RS("Navn") & "</td>")

Eller har jeg misforstået ?

Den se sådan ud:
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("../db/database.mdb")
strSQL = "select * FROM T WHERE (ID = " & Request.QueryString("id") & ")"
%>
Her skal den så være
<%
Conn.Close
set Conn = Nothing
%>

Så forstår jeg ikke. ?

forstår ikke hvad?

Du skriver at du mangler linieskift ("<br>") - men hvad vil du have at der skal "ske/indsættes" i din kode, hvor du skriver: her skal den så være. ?

Nej
I min database står der:
Test<br>
Test<br>
test

Jeg ville godt ha det sådan, af der stå:
Test
Test
Test
Uden af jeg skal skrive <br>

Jeg tror jeg forstår. Når du indtaster i et textarea er det nødvendigt at indtaste <br> hvergang du ønsker et linieskift. ?
Hvis det er rigtigt kan du undgå at indtaste <br> hvis du udskriver sådan.

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("../db/database.mdb")
strSQL = "select * FROM T WHERE (ID = " & Request.QueryString("id") & ")"

Response.Write(Replace(RS("tekst"), vbCrLf, "<br>")) ' Her skal den så være

Conn.Close
set Conn = Nothing
%>

Hvis altså dit felt i databasen hedder: RS("tekst")