mere end 2 mellemrum

Jeg har også prøvet med
tekst = Server.HTMLEncode(tekst)

hva så med

Replace(tekst, \" \", \" \") 

går det heller ikke godt ?

/ntue

Det lyder mærkeligt!

Vis lige koden fra Replace til DB-indsættelse

hmm, nej den kommer med en fejl.
Der opstod en Microsoft VBScript-kompileringsfejl

fejl \'800a0408\'
Tegnet er ugyldigt
/www/Opretforum.asp, linje 29
tekst = Replace(tekst, \" \", \" \")
-----------------------------------------^

tekst = Replace(tekst, \"\'\", \"\'\'\")
  tekst = Replace(tekst, chr(34), \"\"\"\")   
  tekst = Replace(tekst, \"  \", \" \")
  tekst = Replace(tekst, \"  \", \" \")
  tekst = Replace(tekst, \"    \", \" \")
  Tekst = replace(Tekst, \"<\", \"&lt;\")
  Tekst = replace(Tekst, \">\", \"&gt;\")
  Tekst = replace(Tekst, vbcrlf, \"<br>\")
  tekst = Replace(tekst, \" \", \"&amp;nbsp;\")
 

så er der også nogle replace til nogle smilies, men det burde ikke gøre nogen forskel...

Du skal ikke bruge &amp;

tekst = Replace(tekst, \" \", \"&nbsp;\")

hmm, er det min PWS der går amok her?
Jeg få en fejl på den der...

tekst = Replace(tekst, \" \", \"&nbsp;\") 

hmm, kan det lade sig gøre at lave en lykke rundt om

tekst = Replace(tekst, \" \", \"&nbsp;\") 

eller vil det ikke have en effekt?

hvorfor skriver du \'tekst\' noen ganger med stor forbokstav og andre ganger med liten forbbokstav ??

/nute

hmmm, ved det ikke... 

jeg vet ikke hvorfor du har problemer, men denne kode fungerer perfekt hos meg:


tekst = \" dette      er en liten test  hva er dette?    ? ???    ?\"
tekst = Replace(tekst, \"\'\", \"\'\'\")
tekst = Replace(tekst, chr(34), \"\"\"\")   
tekst = Replace(tekst, \"  \", \" \")
tekst = Replace(tekst, \"  \", \" \")
tekst = Replace(tekst, \"    \", \" \")
Tekst = replace(Tekst, \"<\", \"&lt;\")
Tekst = replace(Tekst, \">\", \"&gt;\")
Tekst = replace(Tekst, vbcrlf, \"<br>\")
tekst = Replace(tekst, \" \", \"&amp;nbsp;\")
response.write tekst

Jeg kan godt se at dit eksempel der virker... men det gør det bare ikke sammen med min kode :(
Der laver den kun 1 mellemrum selvom det er med overstående kode.

Jeg kan ikke skrive sådan her:

    f.eks. med 4 mellemrum fra kanten.

så laver den kun 1.

hmm....men oki...du replacer jo alle etterfølgende spaces med denne kode:

tekst = Replace(tekst, \"  \", \" \")
tekst = Replace(tekst, \"  \", \" \")
tekst = Replace(tekst, \"    \", \" \")

hvis du fjerner disse tre linjer, så skal det vel fungere ?

nute ->> jeg synes lige du skal skrive det som svar :) det virker!

svarer :-)

aaaargh !!! litt for tidlig på morgenen :-)

/nute

hehe

takker for hjælpen :)

selv takk....