Avatar billede fedtmuledk Nybegynder
24. juli 2001 - 01:28 Der er 1 kommentar og
1 løsning

HJÆLP - linieskift virker ikke i form

hej hvorfor kommer der ikke linie skift når man laver et linie skift i denne form ?

<%
\' FP_ASP ASP genereret automatisk af en FrontPage-komponent. Undlad at redigere.
On Error Resume Next

strErrorUrl = \"\"

If Request.ServerVariables(\"REQUEST_METHOD\") = \"POST\" Then
If Request.Form(\"VTI-GROUP\") = \"0\" Then
    Err.Clear

    Set fp_conn =  Server.CreateObject(\"ADODB.Connection\")
    FP_DumpError strErrorUrl, \"Der kan ikke oprettes forbindelse.\"

    Set fp_rs = Server.CreateObject(\"ADODB.Recordset\")
    FP_DumpError strErrorUrl, \"Postsæt kan ikke åbnes.\"

    fp_conn.Open Application(\"besked_ConnectionString\")
    FP_DumpError strErrorUrl, \"Databasen kan ikke åbnes.\"

    fp_rs.Open \"Resultater\", fp_conn, 1, 3, 2 \' adOpenKeySet, adLockOptimistic, adCmdTable
    FP_DumpError strErrorUrl, \"Postsæt kan ikke åbnes.\"

    fp_rs.AddNew
    FP_DumpError strErrorUrl, \"Der kan ikke føjes nye poster til databasen.\"
    Dim arFormFields0(2)
    Dim arFormDBFields0(2)

    arFormFields0(0) = \"besked\"
    arFormDBFields0(0) = \"besked\"
    arFormFields0(1) = \"navn\"
    arFormDBFields0(1) = \"navn\"

    FP_SaveFormFields fp_rs, arFormFields0, arFormDBFields0

    If Request.ServerVariables(\"REMOTE_HOST\") <> \"\" Then
        FP_SaveFieldToDB fp_rs, Request.ServerVariables(\"REMOTE_HOST\"), \"Navn_på_fjerncomputer\"
    End If
    If Request.ServerVariables(\"HTTP_USER_AGENT\") <> \"\" Then
        FP_SaveFieldToDB fp_rs, Request.ServerVariables(\"HTTP_USER_AGENT\"), \"Web-browsertype\"
    End If
    FP_SaveFieldToDB fp_rs, Now, \"Tidsstempel\"
    If Request.ServerVariables(\"REMOTE_USER\") <> \"\" Then
        FP_SaveFieldToDB fp_rs, Request.ServerVariables(\"REMOTE_USER\"), \"Brugernavn\"
    End If

    fp_rs.Update
    FP_DumpError strErrorUrl, \"Databasen kan ikke opdateres.\"

    fp_rs.Close
    fp_conn.Close

    Response.Redirect \"r-b-k.asp\"

End If
End If

%>
<html>

<head>
<meta http-equiv=\"Content-Language\" content=\"da\">
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=windows-1252\">
<meta name=\"GENERATOR\" content=\"Microsoft FrontPage 4.0\">
<meta name=\"ProgId\" content=\"FrontPage.Editor.Document\">
<title>navn</title>
</head>

<body>

<form method=\"POST\" name=\"besked\" action=\"--WEBBOT-SELF--\">
  <!--webbot bot=\"SaveDatabase\" startspan SuggestedExt=\"asp\"
  U-ASP-Include-Url=\"../_fpclass/fpdbform.inc\" S-DataConnection=\"besked\"
  S-RecordSource=\"Resultater\" U-Database-URL=\"besked.mdb\"
  U-Confirmation-Url=\"r-b-k.asp\"
  S-Builtin-Fields=\"REMOTE_HOST HTTP_USER_AGENT Timestamp REMOTE_USER\"
  S-Builtin-DBFields=\"Navn_på_fjerncomputer Web-browsertype Tidsstempel Brugernavn\"
  S-Form-Fields=\"besked navn\" S-Form-DBFields=\"besked navn\" --><input TYPE=\"hidden\" NAME=\"VTI-GROUP\" VALUE=\"0\"><!--#include file=\"../_fpclass/fpdbform.inc\"--><!--webbot
  bot=\"SaveDatabase\" endspan -->
  <div align=\"center\">
    <center>
<table border=\"3\" width=\"500\" bordercolorlight=\"#000080\" bordercolordark=\"#000080\" bordercolor=\"#000080\" cellspacing=\"1\">
  <tr>
    <td width=\"100%\" bgcolor=\"#000080\" bordercolorlight=\"#000080\" bordercolordark=\"#000080\">
      <p align=\"center\"><font color=\"#FFFFFF\"><b>Velkommen&nbsp;</b></font></p>
    </td>
  </tr>
  <tr>
    <td width=\"100%\" bordercolorlight=\"#000080\" bordercolordark=\"#000080\">
      <table border=\"0\" width=\"100%\">
        <tr>
          <td width=\"10%\"><font color=\"#000080\">navn :</font></td>
          <td width=\"90%\"><input type=\"text\" name=\"navn\" size=\"50\"></td>
        </tr>
        <tr>
          <td width=\"10%\" valign=\"top\"><font color=\"#000080\">Tekst:</font></td>
          <td width=\"90%\"><textarea rows=\"6\" name=\"besked\" cols=\"42\"></textarea></td>
        </tr>
        <tr>
          <td width=\"10%\"></td>
          <td width=\"90%\">
  <input type=\"submit\" value=\"Send besked\" name=\"send\"><input type=\"reset\" value=\"fortryd\" name=\"fortryd\"></td>
        </tr>
      </table>
    </td>
  </tr>
</table>

    </center>
  </div>
</form>

</body>

</html>
Avatar billede karitolsen Nybegynder
24. juli 2001 - 09:03 #1
Jeg ved ikke, om jeg forstår dig rigtigt. Hvor vil du se linieskiftet henne?

Når du henter besked-data\'erne ud af db\'en igen skal du bare skrive:

<% dim besked
  besked = replace(fp_rs(\"navn på kolonnen i din db, hvor beskeden er gemt i\"), vbCrLf, \"<br>\")
  response.write besked
%>
Avatar billede sbm Nybegynder
24. juli 2001 - 17:31 #2
Jeg gad ikke nærlæse din kode, men det lyder som om du har lavet et textarea hvor du kan lave nogle linieskift, og når så denne side igen vises som alm. html, så vil du gerne have linieskift vist korrekt.

Du kan bruge replace funktionen, og det kan sågar være at du kan bruge htmlencode, men jeg er ikke sikker på om den fungerer korrekt på linieskift...?

Med andre ord: Tag den streng som du ønsker at skrive ud med linieskift. Smid den ind i en replace og erstat alle VbCrLf med <br>

Eksempel:
Replace(denStrengDerIndeholderDinTekst, vbCrLf, \"<br>\")

Så er den klar til at blive skrevet ud.
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