CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg
Cookie ikon
Avatar billede integra2ren Nybegynder
25. marts 2001 - 18:11 Der er 15 kommentarer og
1 løsning

mellemrum i teksten

Jeg har et gæstbogsscript i ASP der fylder noget tekst fra en form ind i en access-database. Når jeg udfylder feltet i formen

sådan


her



så vises indholdet af

databasen sådan her uanset hvor mange enter jeg har lavet
Avatar billede place Nybegynder
25. marts 2001 - 18:13 #1
du kan få ASP-scriptet til at lave \" \" om til   som af HTML bliver til mellem rum

<% Replace(tekstfelt,\" \",&nbsp;) %>
Avatar billede place Nybegynder
25. marts 2001 - 18:14 #2
hvor tekstfelt er den tekst du har hentet ud af formen
Avatar billede tpiil Nybegynder
25. marts 2001 - 18:14 #3
brug denne kode:
<%=Replace(rs(\"felt\"), vbCrLf, \"<br>\")%>
Avatar billede place Nybegynder
25. marts 2001 - 18:15 #4
jeg ville nok bruge de to script sammen det ene til at lave mellerum og det andet til linjeskift
Avatar billede integra2ren Nybegynder
25. marts 2001 - 18:15 #5
Hvordan får jeg vist indholdet af databasen på samme måde som den er indtastet.?
Avatar billede tpiil Nybegynder
25. marts 2001 - 18:17 #6
<%=Replace(rs(\"felt\"), vbCrLf, \"<br>\")%>

felt er dit felt i db\'en
Avatar billede place Nybegynder
25. marts 2001 - 18:17 #7
ved at bruge de to script før du indsætter....

når du så henter dataerne så er den i vinkel
Avatar billede integra2ren Nybegynder
25. marts 2001 - 18:18 #8
Hvor i koden skal jeg sætte
<% Replace(tekstfelt,\" \",&nbsp;) %>    og
<%=Replace(rs(\"felt\"), vbCrLf, \"<br>\")%>

ind

Avatar billede integra2ren Nybegynder
25. marts 2001 - 18:19 #9
Det skal altså være i formen der indsætter teksten?
Avatar billede place Nybegynder
25. marts 2001 - 18:21 #10
enten før du indsætter:

<% Replace(tekstfelt,\" \",&nbsp;) 
Replace(tekstfelt, vbCrLf, \"<br>\")

sql = \"INSERT INTO ......\"%>
eller når du viser siden:

<% tekst = Replace(rs(\"felt\"),\" \",&nbsp;) 
tekst = Replace(tekst, vbCrLf, \"<br>\")
response.write \"tekst\"%>

Avatar billede integra2ren Nybegynder
25. marts 2001 - 18:22 #11
Koden ser sådan ud:

<% mode = request(\"mode\") %>
<% if mode = \"\" then %>
<HTML>
<HEAD>
<!-- Minus AutoDato -->
    <TITLE>Joke system.</TITLE>
<META NAME=\"Generator\" CONTENT=\"Stone\'s WebWriter 3\">
</HEAD>
<BODY BGCOLOR=\"#33B0FB\" TEXT=\"#000000\" LINK=\"#000000\" VLINK=\"#808080\" ALINK=\"#C0C0C0\">
<form action=\"tilfny.asp?mode=send?alle=oplysninger\" method=\"POST\" class=\"css\">
    <table border=\"0\" cellpadding=\"2\" cellspacing=\"0\" width=\"80%\">
        <tr>
            <td align=\"left\" width=\"40%\" valign=\"top\"><font size=\"3\"
            face=\"Arial\">Overskrift: </font></td>
            <td colspan=\"2\" width=\"60%\"><INPUT TYPE=\"text\" NAME=\"overskrift\"></td>
        </tr>
        <tr>
            <td align=\"Left\" valign=\"top\" width=\"20%\"><font
            size=\"3\" face=\"Arial\">Joke:</font></td>
            <td valign=\"top\" width=\"80%\">
            <textarea name=\"joke\" rows=\"4\"
            cols=\"40\"></textarea></td>
        </tr>
        <tr>
        <tr>
            <td align=\"left\" width=\"20%\" valign=\"top\"><font size=\"3\"
            face=\"Arial\">Dit navn: </font></td>
            <td colspan=\"2\" width=\"80%\"><INPUT TYPE=\"text\" NAME=\"navn\"></td>
        </tr>
            <td width=\"20%\"></td>
            <td colspan=\"2\" width=\"80%\"><input type=\"submit\"
    name=\"B1\" value=\"Tilføj\"> <INPUT TYPE=\"reset\" NAME=\"Slet\"></td>
        </tr>
    </table>
</BODY>
</HTML>
<% end if %>

<% if mode = \"send?alle=oplysninger\" then %>
<%

Const adOpenKeyset = 1
Const adLockOptimistic = 3

Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"database.mdb\") & \";UID=admin;PWD=;\"

    Set rs = Server.CreateObject(\"ADODB.RecordSet\")
    strSQL = \"Select * From joke\"
    rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic

      rs.AddNew
      rs(\"overskrift\") = Request.form(\"overskrift\")
      rs(\"joke\") = Request.form(\"joke\")
      rs(\"navn\") = Request.form(\"navn\")
      rs.Update

    rs.Close
    Set rs = Nothing

Conn.Close
set Conn = Nothing
response.redirect \"default.asp\"
%>
<HTML>
<HEAD>
<!-- Minus AutoDato -->
    <TITLE>Nyheds system.</TITLE>
<META NAME=\"Generator\" CONTENT=\"Stone\'s WebWriter 3\">
</HEAD>
<BODY BGCOLOR=\"#33B0FB\" TEXT=\"#000000\" LINK=\"#000000\" VLINK=\"#808080\" ALINK=\"#C0C0C0\">

<center><FONT FACE=\"Arial\" SIZE=\"+2\">Nyhed tilføjet.</FONT><BR>
<A HREF=\"default.asp\" TARGET=\"_top\">Til forsiden</A></center>

</BODY>
</HTML>
<% end if %>
Avatar billede place Nybegynder
25. marts 2001 - 18:24 #12
      rs.AddNew
      rs(\"overskrift\") = Request.form(\"overskrift\")
      rs(\"joke\") = Replace(Request.form(\"joke\"),\" \",&nbsp;)
      rs(\"navn\") = Request.form(\"navn\")
      rs.Update
Avatar billede place Nybegynder
25. marts 2001 - 18:25 #13
UPS glemte lige:

      rs.AddNew
      rs(\"overskrift\") = Request.form(\"overskrift\")
      rs(\"joke\") = Replace(Replace(Request.form(\"joke\"),\" \",&nbsp;),vbCrLf, \"<br>\")
      rs(\"navn\") = Request.form(\"navn\")
      rs.Update 
Avatar billede place Nybegynder
25. marts 2001 - 18:25 #14
UPS igen:

      rs.AddNew
      rs(\"overskrift\") = Request.form(\"overskrift\")
      rs(\"joke\") = Replace(Replace(Request.form(\"joke\"),\" \",\"&nbsp;\"),vbCrLf, \"<br>\")
      rs(\"navn\") = Request.form(\"navn\")
      rs.Update 
Avatar billede integra2ren Nybegynder
25. marts 2001 - 18:26 #15
Før eller efter?

Sådan??

<% Replace(tekstfelt,\" \",&nbsp;) 
Replace(tekstfelt, vbCrLf, \"<br>\")

      rs.AddNew
      rs(\"overskrift\") = Request.form(\"overskrift\")
      rs(\"joke\") = Replace(Request.form(\"joke\"),\" \",&nbsp;)
      rs(\"navn\") = Request.form(\"navn\")
      rs.Update 

Avatar billede integra2ren Nybegynder
25. marts 2001 - 18:28 #16
Tak for hjælpen
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
Access kurser
Dyk ned i databasernes verden på et af vores praksisnære Access-kurser
Se alle Access kurser

Flere spørgsmål fra Access kategorien

Titel Indlæg Oprettet Seneste aktivitet
DoCmd.TransferText - eksport af forespørgsel til .csv med brugerdefineret filsti Af per2edb i Access 1 29/03/202515:47 29/03/202517:55
Access 2021 Af bsn i Access 17 28/03/202513:25 29/03/202511:15
Hent på FTP server Af AccessBruger i Access 4 26/03/202509:32 29/03/202508:24
Tilgang til hovedformens Vedindlæsning Af per2edb i Access 4 25/03/202510:44 25/03/202513:28
Gantt kort Af per2edb i Access 5 14/03/202514:28 25/03/202510:34
Se alle spørgsmål i kategorien Opret spørgsmål

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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester



Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I dag 15:46 Meta AI = Svær at foor væk ? Af Ikke-ekspert i Chat & Messaging
I dag 12:05 Intet signal Af Gnuff i PC
I går 20:01 Coca-Cola - eller Pepsi-Cola automater i The White House, USA ? Af Ikke-ekspert i Fri debat
I går 16:53 Mailkonto iPhone fungerer ikke Af carstenpri i E-mail programmer
15/0415:32 Skype telefon nummer Af Nørdnot i Chat & Messaging
White papers
Flere white papers »


Premium
Teaser billede
CVE-databasen reddet i allersidste øjeblik - ny bevilling godkendt
Læs mere »
Netcompany-stifterne André Rogaczewski og Claus Bo Jørgensen skovler penge ind: Har tjent næsten 600 millioner kroner på et år
Sådan modererer Mads og 20 andre danskere alt indhold på Metas danske platforme fra et center i Barcelona
Jeg købte tømmermands-pizza for alle mine bitcoins og gik glip af en formue: Nu overvejer jeg at gå all-in igen
Se alle »
Computerworld
Teaser billede
USA annullerer it-kontrakter for 35 milliarder kroner med omgående virkning: Accenture og Deloitte rammes hårdt
Læs mere »
Test af monster-tablet: Det er den skøreste og mærkeligste computer, som jeg har testet i lang tid – men jeg vil nu gerne have den alligevel
Dansk hardware-producent har blokeret ERP-system for at undgå Trump-told
Keanu Reeves vender uventet tilbage som lejemorder
Se alle »
CIO
Teaser billede
Danske virksomheder søger væk fra amerikanske tech-giganter: Mange vil skifte til tysk Microsoft-alternativ
Læs mere »
Overblik: Får du den rigtige løn? Så meget tjener de danske it-faggrupper om måneden i gennemsnit
Kræver nye systemer: Folk siger op, hvis virksomheden ikke skifter til S/4 Hana
Google udnytter Microsoft-brugernes modvilje mod at skifte fra Windows 10 til 11: Klar med ny løsning
Se alle »
Job & Karriere
Teaser billede
Den danske it-branche er på vagt: Hvad nu hvis Trump lukker for Microsoft 365 og AWS fra på mandag?
Læs mere »
Carsten advarede som it-sikkerhedschef om problemer og blev fyret: "Det endte med voksen-mobning af værste skuffe"
Microsoft fyrer de dårligst performende ansatte: Disse jobtitler bliver ramt
Danske it-folk lokkes med store tiltrædelses-bonusser: Nu kan du score mere end 100.000 kroner ved at skrive under på ny jobkontrakt
Se alle »
White paper
Teaser billede
Sådan: Virtualisering uden vendor lock-in og høje omkostninger
Læs mere »
Udnyt Genesys Cloud CX optimalt og styrk kundeoplevelsen
Sikkerhed gjort enkelt: Beskyt din virksomhed direkte i browseren
AI og kunderejsen: Sådan vinder du fremtidens forbrugere
Se alle »

Events
Flere events »
White papers
Flere white papers »
IT-Kurser
Se alle vores it-kurser »