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
Filter tal Af hlnviv i Access 10 17/12/202413:35 18/12/202412:31
Søgeknap Af erlandsen i Access 3 02/12/202415:32 02/12/202417:04
Hændelse ved tryk på knap Af erlandsen i Access 1 01/12/202413:51 01/12/202413:54
Vis Valuta og Pris i SQL Af per2edb i Access 7 28/11/202411:48 28/11/202417:31
Kan en kombinationsbox formateres om til en text box og omvendt Af per2edb i Access 3 21/11/202418:03 22/11/202411:38
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
15 min siden Nyt tekstdokument er forsvundet. Af valby i Windows
I dag 16:48 "Defragmentering" af Windows 11 ? Af Ikke-ekspert i Windows
I går 19:53 CD Burner XP (Sætte den til at optage nogle numre fra en CD - Men ikke alle ? Af Ikke-ekspert i Musik & videoafspillere
I går 17:42 Katastrofe med Pc Af LilBe i PC
I går 09:44 Mine emails kan pluselig ikke læses af modtagerne, kun uforståelige tal og bogstaver Af gunnarb i E-mail programmer
White papers
Flere white papers »


Premium
Teaser billede
Historisk million-bøde får Region Syddanmarks it-direktør til at efterlyse nye GDPR-retningslinjer
Læs mere »
Ser med 'stor alvor' på problemer med vand, varme og manglende kontrol i politiets datacenter
Brugere rammes af Microsoft-fejl: M365-produkter er på mystisk vis blevet deaktiveret
Overblik: Danske it-selskaber strømmer ind mod den centrale storby - og det handler ikke om penge
Se alle »
Computerworld
Teaser billede
Netværkstest: Første mesh-sæt med komplette WiFi 7-features sætter nye rekorder for dækning og hastighed
Læs mere »
Til næste år kommer iPhone 17 – og ifølge rygtestrømmene vil den byde på tre nyheder
Her er dommen: Region Syddanmark skal betale historisk stor bøde for grove overtrædelser af GDPR
Nørgaard: Copilot scorer pænt højt i min kendte 3D-test (Dyrt, Dumt, Dårligt)
Se alle »
CIO
Teaser billede
Dansk headhunter: Dette spørgsmål bliver jeg næsten altid stillet, når jeg forsøger at rekruttere it-folk
Læs mere »
En af verdens største it-distributører dropper samarbejdet med Broadcom: Kunne ikke nå til enighed
Sådan vil Domstolsstyrelsen nedbringe legacy og teknisk gæld: Her er den nye plan
CISO Sarah Aalborg forlader Tivoli: Her er hendes planer for fremtiden
Se alle »
Job & Karriere
Teaser billede
Microsoft klar med ny direktion for den danske forretning: Her er de nye direktører
Læs mere »
Merete Søby klar med nyt top-job efter pludselig exit fra Schultz: Her er hendes nye job
Linus Torvalds giver russiske Linux-udviklere sparket: Vil ikke have noget med dem at gøre
Dansk headhunter: Dette spørgsmål bliver jeg næsten altid stillet, når jeg forsøger at rekruttere it-folk
Se alle »
White paper
Teaser billede
Cyberangreb bliver mere kostbare: Er du forberedt?
Læs mere »
Managed Detection & Response: Forsvar din virksomhed mod cybertrusler døgnet rundt
Beskyt virksomheden mod trusler – og hold ressourceforbruget nede
Sådan: Én løsning til compliance, sikkerhed og overblik
Se alle »

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