Notifikationer

Markér alle som læst Log ud

cotus Nybegynder

07. juni 2002 - 14:38 Der er 27 kommentarer og
4 løsninger

Replace med <br>

Hvordan gør jeg sådan at når en bruger laver et linieskift med enter, så bliver det udskrevet som <br> i show.asp?

Hvilken kode?

Hvor skal koden sættes ind? I show.asp, save.asp, eller add.asp?

/cotus

Synes godt om

skovtrold Nybegynder

07. juni 2002 - 14:41 #1

Du skal indsætte det på siden hvor teksten skal vises.
Indsæt:
<%replace(dintekst,vbcrlf,"<br>")%>

Synes godt om

cotus Nybegynder

07. juni 2002 - 14:43 #2

dintekst?

Synes godt om

skovtrold Nybegynder

07. juni 2002 - 14:45 #3

dintekst er den tekst som brugeren har skrevet.

Synes godt om

xzxzx-kan-ikke-logge Nybegynder

07. juni 2002 - 14:46 #4

når den finder et mellemrum [ENTER] i variablen dintekst indsættes <br> i stedet for og den forsætter til der ikke er flere mellemrum.

Synes godt om

cotus Nybegynder

07. juni 2002 - 14:46 #5

Er ikke helt med...

Synes godt om

cotus Nybegynder

07. juni 2002 - 14:48 #6

Jeg udskriver svaret med: <%= rs("indlaeg")%>

Skal det så hedde:

<%replace(rs("indlaeg"),vbcrlf,"<br>")%>

Synes godt om

criterius.dk Nybegynder

07. juni 2002 - 14:49 #7

hvis dit udtræk til feltet hedder fx besked i recordsettet, så skriver du:
<% replace(besked,vbdrlf,"<br") %>

Synes godt om

criterius.dk Nybegynder

07. juni 2002 - 14:50 #8

<% replace(indlaeg,vbcrlf,"<br>") %>

Synes godt om

cotus Nybegynder

07. juni 2002 - 14:51 #9

Altså:

<% Replace(indlaeg,vbdrlf,"<br") %>

Skal det indsættes før jeg udskriver den, efter, eller mellem hvad og hvor?

Synes godt om

cotus Nybegynder

07. juni 2002 - 14:57 #10

ID = request.querystring("ID")

strSQL = "Select * From thread Where ID = " & ID & " Order by ID Desc"
Set rs = Conn.Execute(strSQL)

If rs.EOF then
Response.write "Fejl"
else

Do while NOT rs.EOF
strBrugernavn = rs("name")
replace(indlaeg,vbcrlf,"<br>")
%>
<h3><%= rs("title")%></h3>

Sådan?

Synes godt om

cyberkox Nybegynder

07. juni 2002 - 15:59 #11

Sådan ska det være:

ID = request.querystring("ID")

strSQL = "Select * From thread Where ID = " & ID & " Order by ID Desc"
Set rs = Conn.Execute(strSQL)

If rs.EOF then
Response.write "Fejl"
else

Do while NOT rs.EOF
strBrugernavn = rs("name")
Replace(indlaeg, vbCrLf, "<BR>")
%>
<h3><%= rs("title")%></h3>

Synes godt om

cotus Nybegynder

07. juni 2002 - 16:03 #12

Microsoft VBScript compilation error '800a0414'

Cannot use parentheses when calling a Sub

show.asp, line 22

Replace(indlaeg, vbCrLf, "<BR>")
--------------------------------^

Synes godt om

cotus Nybegynder

07. juni 2002 - 16:05 #13

Hvis jeg skifter til

Replace"indlaeg, vbCrLf, '<BR>'"

Får jeg denne fejl:
Microsoft VBScript runtime error '800a01c2'

Wrong number of arguments or invalid property assignment: 'Replace'

/mode/forum/show.asp, line 22

Synes godt om

cyberkox Nybegynder

07. juni 2002 - 16:59 #14

Okai, så prøv med dette:
ID = request.querystring("ID")

strSQL = "Select * From thread Where ID = " & ID & " Order by ID Desc"
Set rs = Conn.Execute(strSQL)

If rs.EOF then
Response.write "Fejl"
else

Do while NOT rs.EOF
strBrugernavn = rs("name")
indlaeg = rs("indlaeg")
indlaeg = Replace(indlaeg, vbCrLf, "<BR>")
%>
<h3><%= rs("title")%></h3><BR>
Indlægget: <%=indlæg%>

Synes godt om

cotus Nybegynder

08. juni 2002 - 08:17 #15

Det duer ikke... her er hele show.asp:



<% if request.querystring("mode") = "thread" then%>

<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("/mode/db/community.mdb")
Conn.Open DSN

ID = request.querystring("ID")

strSQL = "Select * From thread Where ID = " & ID & " Order by ID Desc"
Set rs = Conn.Execute(strSQL)

If rs.EOF then
Response.write "Fejl"
else

Do while NOT rs.EOF
strBrugernavn = rs("name")
%>
<h3><%= rs("title")%></h3>
<i><a href="/mode/navn.asp?id=<% Response.write strBrugernavn %>"><% Response.write strBrugernavn %></a></i> - <%= rs("dato")%>
<bR>
<br><%= rs("indlaeg")%>
<hr noshade size=2 color="#41628F">

<%
Set Conn1 = Server.CreateObject("ADODB.Connection")
DSN1 = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN1 = DSN1 & "DBQ=" & Server.MapPath("/mode/db/community.mdb")
Conn1.Open DSN1

strSQL1 = "Select * From answer Where TID = " & ID & ""
Set rs1 = Conn.Execute(strSQL1)

If rs1.EOF then
%>

Ingen svar endnu

<%
else

Do while NOT rs.EOF
strBrugernavn = rs("name")
%>
<i><a href="/mode/navn.asp?id=<% Response.write strBrugernavn %>"><% Response.write strBrugernavn %></a></i> - <%= rs1("dato")%>
<bR>
<br><%= rs1("indlaeg")%>
<hr noshade size=2 color="#41628F">

<%
rs1.MoveNext

loop

end if
Conn1.Close
Set Conn1 = Nothing
%>

<%
rs.MoveNext

loop

end if
Conn.Close
Set Conn = Nothing
%>

<form action="save.asp?mode=answer" method="post">
<br><input type="hidden" name="title" value="Re:">
<br><input type="hidden" name="name" value="<% Response.write Session("mode") %>">
<bR><input type="hidden" name="TID" value="<%= ID%>">
<bR>Svar : <textarea cols="100%" rows="15" name="indlaeg"></textarea>
<br>
<br><input type="Submit" value="Send">
</form>
<% End if %>

Synes godt om

killer_r Nybegynder

08. juni 2002 - 10:07 #16

Prov at bruge dette:
Det har virket en gang imellem hos mig :)

***

ID = request.querystring("ID")

strSQL = "Select * From thread Where ID = " & ID & " Order by ID Desc"
Set rs = Conn.Execute(strSQL)

If rs.EOF then
Response.write "Fejl"
else

Do while NOT rs.EOF
strBrugernavn = rs("name")
indlaeg = Replace rs("indlaeg"), vbCrLf, "<BR>"
%>
<h3><%= rs("title")%></h3><BR>
Indlægget: <%=indlæg%>

Synes godt om

cotus Nybegynder

08. juni 2002 - 10:09 #17

Du mener vel:

Indlægget: <%=indlaeg%>

Synes godt om

cotus Nybegynder

08. juni 2002 - 12:39 #18

Microsoft VBScript compilation error '800a0401'

Expected end of statement

/mode/forum/show.asp, line 36

indlaeg = Replace rs("indlaeg"), vbCrLf, "<BR>"
------------------^

Synes godt om

cyberkox Nybegynder

08. juni 2002 - 12:49 #19

Dette burde virke:
***

ID = request.querystring("ID")

strSQL = "Select * From thread Where ID = " & ID & " Order by ID Desc"
Set rs = Conn.Execute(strSQL)

If rs.EOF then
Response.write "Fejl"
else

Do while NOT rs.EOF
strBrugernavn = rs("name")
indlaeg = rs("indlaeg")
indlaeg = Replace indlaeg, vbCrLf, "<BR>"
%>
<h3><%= rs("title")%></h3><BR>
Indlægget: <%=indlaeg%>

Synes godt om

cyberkox Nybegynder

08. juni 2002 - 12:51 #20

Hov, der var en fejl:
***

ID = request.querystring("ID")

strSQL = "Select * From thread Where ID = " & ID & " Order by ID Desc"
Set rs = Conn.Execute(strSQL)

If rs.EOF then
Response.write "Fejl"
else

Do while NOT rs.EOF
strBrugernavn = rs("name")
indlaeg = rs("indlaeg")
indlaeg = Replace(indlaeg, vbCrLf, "<BR>")
%>
<h3><%= rs("title")%></h3><BR>
Indlægget: <%=indlaeg%>

Synes godt om

cotus Nybegynder

08. juni 2002 - 13:01 #21

Hmm... nu har jeg bare to spørgsmål:

- Hvordan replacer jeg f.eks. "A" med "B"?
- Hvorfor kan jeg lidt længere nede ved mine kommentarer ikke skrive:
strSQL1 = "Select * From answer Where TID = " & ID & " Order by MID"
Set rs1 = Conn.Execute(strSQL1)

navn = rs("name")

If rs1.EOF then

If Session("sprog") = "da" Then
Response.write "Ingen svar endnu"
Elseif Session("sprog") = "se" Then
Response.write "Inget svar ännu"
Elseif Session("sprog") = "no" Then
Response.write ""
Else
Response.write "No comments yet"
End if

else

Do while NOT rs1.EOF
indlaeg = rs("indlaeg")
indlaeg = Replace(indlaeg, vbCrLf, "<BR>")
%>

<b><%= rs1("title")%></b>
<i><a href="/mode/navn.asp?id=<%=navn%>"><%=navn%></a></i> - <%= rs1("dato")%>
<bR>
<br><%=rs1("indlaeg")%>
<hr>

<%
rs1.MoveNext

loop

end if
%>

Så får jeg fejl???

/cotus

Synes godt om

cotus Nybegynder

08. juni 2002 - 13:03 #22

Fejlen:

Microsoft VBScript runtime error '800a005e'
Invalid use of Null: 'Replace'
/mode/forum/show.asp, line 72

Synes godt om

cyberkox Nybegynder

08. juni 2002 - 13:45 #23

Har du ICQ ?
ICQ: 150953273

Synes godt om

cyberkox Nybegynder

08. juni 2002 - 13:46 #24

strSQL1 = "Select * From answer Where TID = " & ID & " Order by MID"
Set rs1 = Conn.Execute(strSQL1)

navn = rs("name")

If rs1.EOF then

If Session("sprog") = "da" Then
Response.write "Ingen svar endnu"
Elseif Session("sprog") = "se" Then
Response.write "Inget svar ännu"
Elseif Session("sprog") = "no" Then
Response.write ""
Else
Response.write "No comments yet"
End if

else

Do while NOT rs1.EOF
indlaeg = rs1("indlaeg")
indlaeg = Replace(indlaeg, vbCrLf, "<BR>")
%>

<b><%= rs1("title")%></b>
<i><a href="/mode/navn.asp?id=<%=navn%>"><%=navn%></a></i> - <%= rs1("dato")%>
<bR>
<br><%=indlaeg%>
<hr>

<%
rs1.MoveNext

loop

end if
%>

Synes godt om

cyberkox Nybegynder

08. juni 2002 - 13:51 #25

Hvor vil du erstatte A med B ?
- <%=navn%> ?
- <%=rs1("dato")%> ?
- <%=indlaeg%> ?

Synes godt om

cotus Nybegynder

08. juni 2002 - 14:15 #26

Jeg vil ikke erstatte A med B - jeg vil gerne vide, hvordan princippet i Replace er - altså hvor angives A (det jeg gerne vil udskifte) og hvor angives B (det som skal erstatte A)?

/cotus

Synes godt om

cyberkox Nybegynder

08. juni 2002 - 14:19 #27

Nå, okai.
Først ska du bestemme hvilket recordset der ska udskiftes i.
Dette gøres her:
dato = rs("dato")
og så replace'en:
dato = Replace(dato, "A", "B")

Synes godt om

cyberkox Nybegynder

08. juni 2002 - 14:32 #28

Okai, takker for point...

Synes godt om

cotus Nybegynder

09. juni 2002 - 18:38 #29

indlaeg = rs("indlaeg")
indlaeg = Replace(indlaeg, vbCrLf, "<BR>")
smiley1 = Replace(indlaeg, ":)", "<img src='/mode/images/smileys/happy.gif'>")

Hvorfor kan jeg ikke gøre sådan?

Synes godt om

cotus Nybegynder

09. juni 2002 - 18:44 #30

Hmm... med:

indlaeg = rs1("indlaeg")
indlaeg = Replace(indlaeg, vbCrLf, "<BR>") & Replace(indlaeg, ":)", "<img src='/mode/images/smileys/happy.gif'>")

Udskriver den først: :)
Og derefter: <img src="/mode/images/smileys/happy.gif">

Og det er jo ikke så godt!!! :(

/cotus

Synes godt om

cyberkox Nybegynder

10. juni 2002 - 17:07 #31

indlaeg = rs("indlaeg")
smiley1 = rs("smiley1")
indlaeg = Replace(indlaeg, vbCrLf, "<BR>")
smiley1 = Replace(smiley1, ":)", "<img src='/mode/images/smileys/happy.gif'>")

Prøv med dette...

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

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Persits.Upload Af bsn i ASP	9	17/09/202611:37	21/09/202615:15
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	10	25/06/202622:20	04/09/202602:30
Tjek alle checkbox i form Af bsn i ASP	4	18/05/202601:57	19/05/202613:33
Lost focus Af bsn i ASP	1	07/11/202415:34	01/01/202514:58
ASP classic Af bsn i ASP	8	28/10/202423:11	30/10/202422:51

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