---
title: "Ej skriva html till databasen"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/12681-ej-skriva-html-till-databasen"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "jboy_87"
published: "2001-11-15T21:04:00.000Z"
updated: "2001-11-17T11:26:00.000Z"
replies: 17
views: 341
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/12681-ej-skriva-html-till-databasen"
---

# Ej skriva html till databasen

## #1 — jboy_87, 2001-11-15T21:04Z

Hur gör man typ??

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

Permalänk: https://www.webforum.nu/p/12681

## #2 — jboy_87, 2001-11-15T21:05Z

löste det med:

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

tack heheheh börjar lära mig asp

Permalänk: https://www.webforum.nu/p/294810

## #3 — jboy_87, 2001-11-15T22:49Z

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

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

Permalänk: https://www.webforum.nu/p/294811

## #4 — @nders, 2001-11-16T05:32Z

Njaeee...

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

Mvh,

Permalänk: https://www.webforum.nu/p/294812

## #5 — jboy_87, 2001-11-16T14:54Z

jo men det funkar bra :-)
hehe

Permalänk: https://www.webforum.nu/p/294813

## #6 — jboy_87, 2001-11-16T14:55Z

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

Permalänk: https://www.webforum.nu/p/294814

## #7 — @nders, 2001-11-16T15:02Z

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,

Permalänk: https://www.webforum.nu/p/294815

## #8 — jboy_87, 2001-11-16T15:05Z

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

Permalänk: https://www.webforum.nu/p/294816

## #9 — @nders, 2001-11-16T15:14Z

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

Permalänk: https://www.webforum.nu/p/294817

## #10 — jboy_87, 2001-11-16T15:17Z

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

Permalänk: https://www.webforum.nu/p/294818

## #11 — @nders, 2001-11-16T15:20Z

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,

Permalänk: https://www.webforum.nu/p/294819

## #12 — jboy_87, 2001-11-16T15:26Z

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

Permalänk: https://www.webforum.nu/p/294820

## #13 — @nders, 2001-11-16T15:29Z

text=lcase(text)

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

Permalänk: https://www.webforum.nu/p/294821

## #14 — jboy_87, 2001-11-16T15:34Z

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

Permalänk: https://www.webforum.nu/p/294822

## #15 — @nders, 2001-11-16T15:39Z

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,

Permalänk: https://www.webforum.nu/p/294823

## #16 — jboy_87, 2001-11-16T15:41Z

åhhh vad dum jag e tack!!

Permalänk: https://www.webforum.nu/p/294824

## #17 — Erik Juhlin, 2001-11-16T20:29Z

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. :)

Permalänk: https://www.webforum.nu/p/294825

## #18 — @nders, 2001-11-17T11:26Z

Det var som attans!

Tack Erik! :D

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

Mvh,

Permalänk: https://www.webforum.nu/p/294826

---

Tråden på webben: https://www.webforum.nu/amne/asp/12681-ej-skriva-html-till-databasen