Ej skriva html till databasen

löste det med:

RecSet("fnamn") = Server.HTMLEncode(Request.Form("fnamn"))

tack heheheh börjar lära mig asp

kan man göra så här typ:

if lcase(text = lcase(Replace(text,":-d","<img src=""Bilder/Smile/01.gif"">")

Njaeee...

Vad är det du försöker göra?

Mvh,

jo men det funkar bra :-)
hehe

ops
typ replace :-d med smile. Funkar inte med att skriva in :-D med stort D

Antingen får du göra två replace eller så får du göra det med Regular Expressions.

Jag hade nog gjort det med två replace.

Vad har if med detta att göra?

Mvh,

jag har en messs sida när man typ skriven in :-) då visas en smilegubbe istället och när man skriver in :-D så kommer det ut glab gubbe men när man skriver :-d med litet bokstav så blir kommer det ingen smile gubben så vill använda lcase

Jag hade nog gjort det med två replace.

text = Replace(text,":-d","<img src=""Bilder/Smile/01.gif"">")
text = Replace(text,":-D","<img src=""Bilder/Smile/01.gif"">")

Använder du LCase så gör du hela innehållet i variabeln text till gemener, och det vill du väl inte?

Mvh,

amen jag vet att man kan göra så men vill använda lcase det blir ju mycket onödig text

Då har du två val. Antingen gör du LCase() på hela variabeln och får ut bara små bokstäver i variabeln text. Eller så använder du Regular Expressions, och då blir det säg fem rader för att göra den ersättningen. Jag tror att det bästa sättet faktiskt är de två raderna jag gav dig ovan, om inte det är massor av "dubbelersättningar" som skall göras med hjälp av RegExp, då du kan använda samma objekt till en hel del ersättningar.

Mvh,

så hör ser koden ut hur lägger jag in lcase??

Function Smiley(text)

text = server.HTMLEncode(text)
text = Replace(text,vbCrLf,"<br>")
text = Replace(text,":-)","<img src=""Bilder/Smile/01.gif"">")

text = Replace(text,":-(","<img src=""Bilder/Smile/02.gif"">")

text = Replace(text,";-)","<img src=""Bilder/Smile/03.gif"">")

text = Replace(text,":-D","<img src=""Bilder/Smile/04.gif"">")
text = Replace(text,":-d","<img src=""Bilder/Smile/04.gif"">")

text = Replace(text,":-P","<img src=""Bilder/Smile/08.gif"">")
text = Replace(text,":-p","<img src=""Bilder/Smile/08.gif"">")

text = TRIM(text) 

Response.Write text

End Function

text=lcase(text)

direkt under server.htmlencode är ett ställe du kan lägga det på.

nope funkar inte

text = server.HTMLEncode(text)
text = lcase(text)
text = Replace(text,vbCrLf,"<br>")
text = Replace(text,":-)","<img src=""Bilder/Smile/01.gif"">")
text = Replace(text,":-(","<img src=""Bilder/Smile/02.gif"">")
text = Replace(text,";-)","<img src=""Bilder/Smile/03.gif"">")
text = Replace(text,":-d","<img src=""Bilder/Smile/04.gif"">")
text = Replace(text,":-P","<img src=""Bilder/Smile/08.gif"">")

text = TRIM(text)

Det finns ju inga stora p:n längre, så du får göra replace på det lilla:

text = Replace(text,":-p","<img src=""Bilder/Smile/08.gif"">")

Mvh,

åhhh vad dum jag e tack!!

Men herr snabel!
Du vet väl att man kan skriva Replace icke case sensitive.

text = Replace(text, ":-d", "<img src=""Bilder/Smile/01.gif"">", 1, -1, 1)

Ettan på slutet är betyder att det är TextCompare och inte DatabaseCompare.

Det var som attans!

Tack Erik!

jboy, ändra genast så blir allt så mycket bättre.

Mvh,