skift
& rs("kilde") &
med
& replace(rs("kilde"),chr(13),"<br>") &
--
Venlig hilsen
Lars Andersen
"tonny" <lomito@sol.dk> wrote in message
news:ca8bd78b.0409160249.589fdec0@posting.google.com...
> Når jeg skriver noget til min access db, kommer linie skiftene ikke
> med når jeg læser fra db'en, er der nogen der kan hjælpe med det?
> Her er den kode jeg bruger for at læse fra db'en.
>
> <% Response.Buffer = True %>
> <HTML>
> <HEAD>
> <!-- Minus AutoDato -->
> <TITLE>Artikel system.</TITLE>
> <META NAME="Generator" CONTENT="Stone's">
> </HEAD>
> <BODY BGCOLOR="#ffffff" TEXT="#000000" LINK="#000000" VLINK="#808080"
> ALINK="#C0C0C0">
> <%
> Set myConn = Server.CreateObject("ADODB.Connection")
> myConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" &
> Server.MapPath("../bla/bla.mdb")
> If Request.QueryString("id") <> "" Then
> Set rs = Server.CreateObject("ADODB.RecordSet")
> strSQL = "SELECT * FROM artikel WHERE (ID = " &
> Request.QueryString("id") & ")"
> rs.Open strSQL, myConn, 1, 3
> If Not (rs.BOF Or rs.EOF) Then
>
>
> Response.write "<TABLE WIDTH=""100%"" BORDER=""0""
> BGCOLOR=""#FFFFFF"" BORDERCOLOR=""#000000""><TR
> VALIGN=""top""><TD><FONT><B><font face=""verdana""><font
> color=""000000""><FONT SIZE=""2"">" & rs("overskrift") &
> "</B></FONT><p><font face=""verdana""><font color=""000000""><FONT
> SIZE=""1""> Dato " & rs("dato") & "</FONT><BR><FONT><FONT
> SIZE=""1""><font face=""verdana""><font color=""000000"">" &
> rs("artikler") & "</FONT><BR><FONT SIZE=""1""><font
> face=""verdana""><font color=""#d6d6d6"">Kilde: " & rs("kilde") &
> "</FONT></TD></TR></TABLE><BR>"
> rs.Update
> rs.Close
> myConn.Close
> Set rs = Nothing
> Set myConn = Nothing
> End If
> End If
> %>
> <center><A HREF="javascript:history.back(1)" TARGET="_top"><font><font
> face="verdana"><font color="000000"><FONT
> SIZE="1">Tilbage</A></font></center>
> </BODY>
> </HTML>
>
> lomito