Avatar billede bogologo Nybegynder
22. marts 2004 - 22:38 Der er 5 kommentarer og
1 løsning

Linieskift i ASP igen igen!

Det sædvanlige problem med at få ASP til at lave linieskift i en Access DB.

Jeg har lavet en simpel gæstebog, hvor der er brug for at når brugeren trykker enter sættes der et linieskift ind.

jeg bruger 3 filer til min gb, hvis nogen kan se hvordan jeg skal få linieskift ind så er hjælpen velkommen, koderne til filerne er som følger:
---------------------------------

<!--#include file="forbindelse.asp"-->

<%
Set fri = Server.CreateObject ("ADODB.Recordset")
fri.Open "SELECT TOP 8 * FROM fri ORDER BY ID DESC", database
%>

<html>

<head>
<link rel="stylesheet" type="text/css" href="main-style.css">
<title>Frit ord</title>
</head>

<body topmargin="0" leftmargin="0" scroll="yes">

<table>
  <tr>
    <td class="tittle" colspan="2">Gæstebog</td>
  </tr>
  <tr>
    <td class="td-left">

<p><a onFocus="blur()" onMouseOver="status='Smid En Besked!'; return true;" onMouseOut="status=''; return true;" href="addfri.asp" target="main">Smid En Besked!</a></p>

<%
While NOT fri.EOF
%> 
<h2><% = fri.Fields ("title")%></h2>

<p><% = fri.Fields ("text")%></p>

<h3><a onFocus="blur()" class="mail" href="mailto:<% = fri.Fields ("mail")%>">//<% = fri.Fields ("writer")%> </a> --- <% = fri.Fields ("date")%>
<hr noshade size="1" color="#0081dF">

<%
fri.MoveNext
Wend
%>
    </td>
    <td class="td-right">
      <p class="img-center"><img border="0" src="images/gb1.jpg" width="115" height="106">
      </p>
      <p class="img-center"><img border="0" src="images/gb2.jpg" width="115" height="106"><br />
</p>
    </td>
  </tr>
</table>

</body>

</html>


-----------------------------------
<html>
<head>
<link rel="stylesheet" type="text/css" href="main-style.css">
</head>

<body topmargin="0" leftmargin="0" scroll="yes">

<table>
  <tr>
    <td class="tittle" colspan="2">Sidste nyt</td>
  </tr>
  <tr>
    <td class="td-left">

<form name="add" method="get" action="addfri-do.asp">
  <h2>Titel: <br />
  <input type="text" class="formular-text" name="title" size="20">
  </h2>
  Tekst: <br />
  <textarea class="formular-textarea" name="text" rows="3" cols="20"/></textarea>
  <br />
  <h3>Forfatter: <br />
  <input type="text" class="formular-text" name="writer" size="20">
  <br />
  Mail: <br />
  <input type="text" class="formular-text" name="mail" size="20">
  </h3>
  <input class="formular-knap" type="submit" name="Submit" value="Tilføj">
  </form>

    </td>
    <td class="td-right">
      <p class="img-center"><img border="0" src="images/gb1.jpg" width="115" height="106">
      </p>
      <p class="img-center"><img border="0" src="images/gb2.jpg" width="115" height="106"><br />
</p>
    </td>
  </tr>
</table>

</body>
</html>
----------------------------------------------------
<!--#include file="forbindelse.asp"-->

<%
Set fri = Server.CreateObject("ADODB.Recordset")
fri.Open "fri", database, 2, 2
%>

<%
fri.AddNew
    fri("title") = Request.QueryString("title")
    fri("text") = Request.QueryString("text")
    fri("writer") = Request.QueryString("writer")
    fri("mail") = Request.QueryString("mail")       
fri.Update

Response.Redirect("fri.asp")
%>
Avatar billede eagleeye Praktikant
22. marts 2004 - 22:41 #1
Prøv at rette denne linje:

<p><% = fri.Fields ("text")%></p>

Til denne:

<p><% = Replace(fri.Fields ("text"),vbCrLf,"<br>")%></p>
Avatar billede ducks Nybegynder
22. marts 2004 - 22:43 #2
Når du trækker det ud af databasen, vil alle linieskift ligge som vbCrLf, derfor skal du replace dem med et HTML linieskift:

Replace(databaseUdtræk, vbCrLf, "<br />")

Der skal ikke "" rundt om vbCrLf
Avatar billede want2learn Nybegynder
22. marts 2004 - 22:45 #3
TAG DETTE:

<form name="add" method="get" action="addfri-do.asp">
  <h2>Titel: <br />
  <input type="text" class="formular-text" name="title" size="20">
  </h2>
  Tekst: <br />
  <textarea class="formular-textarea" name="text" rows="3" cols="20"/></textarea>
  <br />
  <h3>Forfatter: <br />
  <input type="text" class="formular-text" name="writer" size="20">
  <br />
  Mail: <br />
  <input type="text" class="formular-text" name="mail" size="20">
  </h3>
  <input class="formular-knap" type="submit" name="Submit" value="Tilføj">
  </form>

OG LAV DET TIL DETTE:

<form name="add" method="get" action="addfri-do.asp">
  <h2>Titel: <br />
  <input type="text" class="formular-text" name="title" size="20">
  </h2>
  Tekst: <br />
  <textarea class="formular-textarea" name="text" rows="3" cols="20"/></textarea>
  <br />
  <h3>Forfatter: <br />
  <input type="text" class="formular-text" name="writer" size="20">
  <br />
  Mail: <br />
  <input type="text" class="formular-text" name="mail" size="20"><input name="lineBreak" type="hidden" id="lineBreak" value="true" checked>
  </h3>
  <input class="formular-knap" type="submit" name="Submit" value="Tilføj">
  </form>

TAG DETTE:

<%
fri.AddNew
    fri("title") = Request.QueryString("title")
    fri("text") = Request.QueryString("text")
    fri("writer") = Request.QueryString("writer")
    fri("mail") = Request.QueryString("mail")       
fri.Update

Response.Redirect("fri.asp")
%>

OG RET DET TIL DETTE:

<%
Tekst = Request.QueryString("text")

If Request.Form("lineBreak") = "true" Then
   
    Tekst = Replace(Tekst, vbCrLf, "<br>")
end if

fri.AddNew
    fri("title") = Request.QueryString("title")
    fri("text") = Tekst
    fri("writer") = Request.QueryString("writer")
    fri("mail") = Request.QueryString("mail")       
fri.Update

Response.Redirect("fri.asp")
%>

så skulle det virke
Avatar billede bogologo Nybegynder
22. marts 2004 - 22:55 #4
Jeg sir tak det virkede perfekt eagle:D
Avatar billede steen_hansen Forsker
22. marts 2004 - 23:11 #5
Undskyld jeg bryder ind: ducks, leverer du lige pointene tilbage?
Avatar billede steen_hansen Forsker
22. marts 2004 - 23:11 #6
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