CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

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

Synes godt om

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,\" \", ) %>

Synes godt om

place Nybegynder

25. marts 2001 - 18:14 #2

hvor tekstfelt er den tekst du har hentet ud af formen

Synes godt om

tpiil Nybegynder

25. marts 2001 - 18:14 #3

brug denne kode:
<%=Replace(rs(\"felt\"), vbCrLf, \"<br>\")%>

Synes godt om

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

Synes godt om

integra2ren Nybegynder

25. marts 2001 - 18:15 #5

Hvordan får jeg vist indholdet af databasen på samme måde som den er indtastet.?

Synes godt om

tpiil Nybegynder

25. marts 2001 - 18:17 #6

<%=Replace(rs(\"felt\"), vbCrLf, \"<br>\")%>

felt er dit felt i db\'en

Synes godt om

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

Synes godt om

integra2ren Nybegynder

25. marts 2001 - 18:18 #8

Hvor i koden skal jeg sætte
<% Replace(tekstfelt,\" \", ) %> og
<%=Replace(rs(\"felt\"), vbCrLf, \"<br>\")%>

ind

Synes godt om

integra2ren Nybegynder

25. marts 2001 - 18:19 #9

Det skal altså være i formen der indsætter teksten?

Synes godt om

place Nybegynder

25. marts 2001 - 18:21 #10

enten før du indsætter:

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

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

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

Synes godt om

integra2ren Nybegynder

25. marts 2001 - 18:22 #11

Koden ser sådan ud:

<% mode = request(\"mode\") %>
<% if mode = \"\" then %>
<HTML>
<HEAD>

<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>

<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 %>

Synes godt om

place Nybegynder

25. marts 2001 - 18:24 #12

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

Synes godt om

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\"),\" \", ),vbCrLf, \"<br>\")
rs(\"navn\") = Request.form(\"navn\")
rs.Update

Synes godt om

place Nybegynder

25. marts 2001 - 18:25 #14

UPS igen:

rs.AddNew
rs(\"overskrift\") = Request.form(\"overskrift\")
rs(\"joke\") = Replace(Replace(Request.form(\"joke\"),\" \",\" \"),vbCrLf, \"<br>\")
rs(\"navn\") = Request.form(\"navn\")
rs.Update

Synes godt om

integra2ren Nybegynder

25. marts 2001 - 18:26 #15

Før eller efter?

Sådan??

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

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

Synes godt om

integra2ren Nybegynder

25. marts 2001 - 18:28 #16

Tak for hjælpen

Synes godt om

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.

Følg dette spørgsmål

Opret Preview

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
Gantt Chart Wizard Af per2edb i Access	0	I går 17:57	-
Me.Form.Painting = True/False ore Me.Painting = True/false Af per2edb i Access	3	03/11/202416:41	03/11/202418:05
Fejl i Combobox med RowSourceType = "Value List" Af per2edb i Access	10	29/10/202414:32	01/11/202408:46
Hvordan åbnes en fil med extension accde vha koder Af per2edb i Access	7	24/10/202412:07	24/10/202418:08
hjælp til problem med filtrering af formular Af dsj1972 i Access	7	15/10/202413:19	21/10/202412:35

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.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS