undgå ødelagte tagwalls?

besked = Replace(besked, \"<\", \"&lt;\")
besked = Replace(besked, \">\", \"&gt;\")   

så bytter du blot besked, ud med det som du skal bruge

Search/replace < og > med &lt; og &gt; :) så nemt er det...

Brug dette script:
http://www.activeserverpages.dk/aspdigital/kapitel6/remove_html.asp

Det fjerne HTML og SCRIPT-tags

::mushie

uhmmm ljweb???

uhmmm mishie... og det gør mit så også...

I må sku lærer at ikke at svarer det som andre svarer

øhh til jer to første der... hvordan buger jeg det, jeg skrev at jeg er newbies...

Desuden var der også en 2. del af spørgsmålet...

dalbjerg >> ingen grund til at blære sig bare fordi du taster hurtigt :)

Og nej dit fjerne ikke tagsene, det laver <> om til &lt; og &gt

al >> Hvis du bruger et form-felt til indtastning af teksten smider du en maxlength=\"50\" på.

::mushie

al >> hvor har du kopieret tagwallen fra ? *gg* sorry, men når dalbjerg giver dig koden 100% og du ikke kan indsætte den, må du hellere poste hele scriptet herinde...

<%=Server.HTMLencode(rs(\"felt\"))%>
og hvis du skal have linie afstand på f.eks. besked feltet når du trækker ud:
<%
felt = Server.HTMLencode(rs(\"felt\"))
felt = replace(felt, chr(13), \"<br>\")
%>
<=felt%>

damed, hvor skal den indsættes, i min oprettelseform, eller i fremvisningen, eller hva?

det med mange bogstaver er svært at undgå!

fremvisningen!

jeg bruger desuden en textarea til indtastningen...

al...

tpiil, læs lige det først indlæg ikk\' ??? dit og mit gør lige hvad?
Post hele fremvisning scriptet herinde ikk

prøv at kom med koden så kan jeg hurtig lige bikse det sammen, eller send det til webmaster@funz.dk

dit fjerner tags men mit lader det hele være som det er og udskriver det :)

min kode

<%
If \"\" = Request.QueryString(\"Mode\") then
Sql = \"Select * from tagwall order by tid DESC\"
Set Record =  Rs.Execute(Sql)
Do While Not Record.EOF
response.write \"<tr><td width=300 border=0 bgcolor=#bbbbbb><font face=verdana size=1>\" & Record(\"tid\") & \"</font></td></tr>\"
response.write \"<tr><td width=300 border=0><font face=verdana size=1>\" & Record(\"besked\") & \"</font></td></tr>\"
response.write \"<tr><td width=300 border=0><font face=verdana size=1>/\" & Record(\"nick\") & \"</font></td><tr>\"

Record.MoveNext
    Loop
    Record.Close
    RS.Close
end if
%>

gad ikk at fjerne html\'en... hvad skal jeg så gøre her?

nops, mit fjerner ikke tags, den skifter blot < om med html koden for det, og så har den ikke længer html kode, men tekst.

<%
If \"\" = Request.QueryString(\"Mode\") then
Sql = \"Select * from tagwall order by tid DESC\"
Set Record =  Rs.Execute(Sql)
Do While Not Record.EOF
response.write \"<tr><td width=300 border=0 bgcolor=#bbbbbb><font face=verdana size=1>\" & Server.HTMLencode(Record(\"tid\")) & \"</font></td></tr>\"

besked = Server.HTMLencode(Record(\"besked\"))
besked = replace(besked, chr(13), \"<br>\")

response.write \"<tr><td width=300 border=0><font face=verdana size=1>\" & besked & \"</font></td></tr>\"
response.write \"<tr><td width=300 border=0><font face=verdana size=1>/\" & Server.HTMLencode(Record(\"nick\")) & \"</font></td><tr>\"

Record.MoveNext
    Loop
    Record.Close
    RS.Close
end if
%>

Dette fjener ikke længen på teksten... 2 sek, så kommer jeg lige med et indslag...

øhh, der forsvinder beskeden helt... FEDT

<%
If \"\" = Request.QueryString(\"Mode\") then
Sql = \"Select * from tagwall order by tid DESC\"
Set Record =  Rs.Execute(Sql)
Do While Not Record.EOF
response.write \"<tr><td width=300 border=0 bgcolor=#bbbbbb><font face=verdana size=1>\" & Server.HTMLencode(Record(\"tid\")) & \"</font></td></tr>\"

besked = Replace(besked, \"<\", \"&lt;\")
besked = Replace(besked, \">\", \"&gt;\")   

response.write \"<tr><td width=300 border=0><font face=verdana size=1>\" & besked & \"</font></td></tr>\"
response.write \"<tr><td width=300 border=0><font face=verdana size=1>/\" & Server.HTMLencode(Record(\"nick\")) & \"</font></td><tr>\"

Record.MoveNext
    Loop
    Record.Close
    RS.Close
end if
%> 

ØHH gør den det!?!?!

Sorry sådan:
<%
If \"\" = Request.QueryString(\"Mode\") then
Sql = \"Select * from tagwall order by tid DESC\"
Set Record =  Rs.Execute(Sql)
Do While Not Record.EOF
besked = Record(\"besked\")
besked = Replace(besked, \"<\", \"&lt;\")
besked = Replace(besked, \">\", \"&gt;\")
nick = Record(\"nick\")
nick = Replace(nick, \"<\", \"&lt;\")
nick = Replace(nick, \">\", \"&gt;\")   
response.write \"<tr><td width=300 border=0 bgcolor=#bbbbbb><font face=verdana size=1>\" & Record(\"tid\") & \"</font></td></tr>\"
response.write \"<tr><td width=300 border=0><font face=verdana size=1>\" & besked & \"</font></td></tr>\"
response.write \"<tr><td width=300 border=0><font face=verdana size=1>/\" & nick & \"</font></td><tr>\"

Record.MoveNext
    Loop
    Record.Close
    RS.Close
end if
%>

nå men jeg er lige ved at finde ud af noget omkring det med længen af orderne... 2 sek

øhh her røg beskeden også ud... kun nick\'et står der, enddag med htmlkode, jeg har sat en fed skrift på, og det virker =  :(

må jeg lige se, hvilken adresse du tester det på?

sorry, jeg fulget det ikke ordenligt... det virker nu...

jamen så giv mig de points...

havde du noget om længden?

uhmm... kigger på det men det er vist for bølvet til at jeg gider at forsætte for 60 points

ok

Tak for hjælpen, det var alletiders...