---
title: "smiles i gästboken"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/133967-smiles-i-gästboken"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "ptr_lks"
published: "2005-09-08T18:57:08.000Z"
updated: "2005-10-12T18:36:44.000Z"
replies: 18
views: 971
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/133967-smiles-i-gästboken"
---

# smiles i gästboken

## #1 — ptr_lks, 2005-09-08T18:57Z

Hej,
har kodat en gästbok, som finns hos Brinkster. (ASP + Access 2003)
Nu vill jag möjliggöra att man läggar till smiles till sina inlägg. På samma sätt som wf har, dvs man klicka på lämplig smile så "ritas" smile´n ut på gästboksidan. Hur gör jag detta?

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

## #2 — Peter S, 2005-09-08T19:11Z

Hej!

Det gör du med JavaScript. En sökning kan ge följande resultat: <http://www.webforum.nu/search.php?searchid=3944>.

Red./ Sedan använder du t.ex. Replace():
<http://www.webforum.nu/showthread.php?t=62604>

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

## #3 — ptr_lks, 2005-09-09T06:22Z

> **Peter S skrev:**
>
> Hej!
> 
> Det gör du med JavaScript. En sökning kan ge följande resultat: <http://www.webforum.nu/search.php?searchid=3944>.
> \]

Länken funkar ej!

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

## #4 — Peter S, 2005-09-09T06:56Z

Hm, hur gör man då för att länka till ett sökresultat? Bifogar två direkta trådlänkar istället:
<http://www.webforum.nu/showthread.php?t=130268>
<http://www.webforum.nu/showthread.php?t=129595>

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

## #5 — ptr_lks, 2005-10-11T14:01Z

Nu har jag [försökt med smilies](http://www45.brinkster.com/spif93/skriv.asp), men som ni kan se blir det 2 fel:

1. jag får inte till det med länkarna, dvs när jag klickar på "gubben" så hamnar inte respektive tecken i meddelande -rutan
2. får en ruta runt 1:a smiliyn.

 
Nedanstående kod använder jag:

```
<table width="710" border="1" align="center" bordercolor="#FFFFFF" bgcolor="#0000FF">
      <tr>
        <td><form name="skriv" method="post" action="p93_skriv.asp?cmd=Send">
          <p><br>
              <span class="style2">Namn:</span><br>
              <input type="text" name="namn" size="50" value="<%=Server.htmlencode(namn)%>">
          &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;[B]<a href="#" onclick="smilie(':)'); return false;"><img src="images/smiley/smile.GIF" height="15" width="15" alt="leende" title=":)"></a><a href="#" onclick="smilie(' :h'); return false;"><img src="images/smiley/cool.GIF" alt="cool" width="15" height="15" border="0"></a>[/B]&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</p>
            <p><span class="style2">E-post</span><br>
                <input type="text" name="mail" size="50" value="<%=Server.htmlencode(Epost)%>">
          </p>
          <p><span class="style2">Meddelande:</span><br>
            <textarea name="message" cols="70" rows="10" wrap="virtual"><%=Server.htmlencode(Message)%></textarea>
        <p align="right">
              <input type="submit" name="skriv" value="Lägg till">
        </form>		</td>
      </tr>
</table>
```

Tacksam för er hjälp

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

## #6 — ptr_lks, 2005-10-11T14:13Z

jag upptäckte att jag glömde

```
<script type="text/javascript">

var cPos,
    fObj,
    ieC = Boolean(document.selection && document.selection.createRange);

function smilie(str) {
    if (ieC) {
	if (typeof cPos != "undefined")
	    cPos.text = str;
	else
	    fObj.value = str;
    }

    else if (typeof window.HTMLTextAreaElement != "undefined")
	fObj.value = fObj.value.substring(0, fObj.selectionStart) + str + fObj.value.substring(fObj.selectionEnd);

    else fObj.value += str;
}

function sC() {
    cPos = document.selection.createRange().duplicate();
}

window.onload = function() {
    fObj = document.forms["vbform"].elements["message"];

    if (ieC) {
	fObj.onclick  = function() { sC(); }
	fObj.onkeyup  = function() { sC(); }
	fObj.onselect = function() { sC(); }
    }
}

</script>
```

så nu verkar det [fungera](http://www45.brinkster.com/spif93/write.asp)  förutom att det blir en liten ruta runt ena gubben..

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

## #7 — @nders, 2005-10-11T16:23Z

Vad skiljer mellan bildtaggarna då?

```
<img src="images/smiley/smile.GIF" height="15" width="15" alt="leende" title=":)"></a>
<a href="#" onclick="smilie(' :h'); return false;"><img src="images/smiley/cool.GIF" alt="cool" width="15" height="15" border="0">
```

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

## #8 — ptr_lks, 2005-10-11T16:28Z

att border = 0 där ingen ram visas

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

## #9 — @nders, 2005-10-11T16:31Z

Katsching!

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

## #10 — ptr_lks, 2005-10-11T16:57Z

> Red./ Sedan använder du t.ex. Replace():
> <http://www.webforum.nu/showthread.php?t=62604>

Nu har jag snickrat ihop följande

```
			Function Smilies(txt)
	txt = Replace(txt, " :)", "<img src=""images/smiley/smile.GIF"">")
	txt = Replace(txt, ":(", "<img src=""images/smiley/frown.GIF"">")
	txt = Replace(txt, ":e", "<img src=""images/smiley/supergrin.GIF"">")
	txt = Replace(txt, ";)", "<img src=""images/smiley/wink.GIF"">")
	txt = Replace(txt, ":p", "<img src=""images/smiley/tongue.GIF"">")
	txt = Replace(txt, ":h", "<img src=""images/smiley/cool.GIF"">")
	txt = Replace(txt, ":OO", "<img src=""images/smiley/look.GIF"">")
	txt = Replace(txt, "x(", "<img src=""images/smiley/angry.GIF"">")
	txt = Replace(txt, ":o", "<img src=""images/smiley/redface.GIF"">")
	txt = Replace(txt, ":q", "<img src=""images/smiley/quest.GIF"">") 
    txt = Replace(txt, ":D", "<img src=""images/smiley/biggrin.GIF"">")
	txt = Replace(txt, ":P", "<img src=""images/smiley/blah.GIF"">")
	txt = Replace(txt, "§jr", "<img src=""images/smiley/devel.GIF"">") 
    txt = Replace(txt, "§e", "<img src=""images/smiley/devilgrin.GIF"">")
	txt = Replace(txt, ":l", "<img src=""images/smiley/hrmpf.GIF"">")
	txt = Replace(txt, ":i", "<img src=""images/smiley/idea.GI"">") 
	txt = Replace(txt, ":D", "<img src=""images/smiley/stud.GIF"">")
	txt = Replace(txt, ":L", "<img src=""images/smiley/laugh.GIF"">")
	txt = Replace(txt, ":bla", "<img src=""images/smiley/jaja.GIF"">") 
	txt = Replace(txt, "(y)", "<img src=""images/smiley/icon7.GIF"">")
	txt = Replace(txt, "(n)", "<img src=""images/smiley/icon6.GIF"">")
	
        Smilies = txt
End Function
```

När jag vill ha gubbarna "utskrivna" hur skall jag ändra min nuvarande kod

```
Replace(rsGbok("Message"), vbCrLf, "<br>" & vbCrLf)
```

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

## #11 — J.N., 2005-10-12T09:34Z

HEJ!

Jag drar till med följande:

```
Replace(Smilies(rsGbok("Message")), vbCrLf, "<br>" & vbCrLf)
```

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

## #12 — ptr_lks, 2005-10-12T11:10Z

mellanslag efter apostrofen

skall det vara mellanslag efter 1:a apostrofen i koden

```
Replace(txt, " :(", "<img src=""images/smiley/frown.GIF"">")
```

 eller inte?
har detta ngt betydelse?

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

## #13 — @nders, 2005-10-12T11:17Z

Det är ingen apostrof i den koden, och huruvida det skall vara ett mellanslag mellan citationstecknet och smileykoden så är ju det upp till dig och bestämma om du vill ha det eller inte.

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

## #14 — ptr_lks, 2005-10-12T11:20Z

> **@nders skrev:**
>
> Det är ingen apostrof i den koden, och huruvida det skall vara ett mellanslag mellan citationstecknet och smileykoden så är ju det upp till dig och bestämma om du vill ha det eller inte.

@nders: jag menar naturligtvis situationstecken

```
Replace(txt, ":e", "<img src=""images/smiley/supergrin.GIF"">")
```

 
Så mellanslaget saknar betydelse för att replacen skall funka?

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

## #15 — @nders, 2005-10-12T11:25Z

Nej, inte saknar betydelse.
Den replacear ju mellanslag+smileykod till en bild, så du får bestämma dig för om det är det du vill.

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

## #16 — ptr_lks, 2005-10-12T16:50Z

Jag tror jag blir galen....
Nu fungerar det inte.. återigen...[Om ni tittar på sidan](http://www45.brinkster.com/spif93/skriv.asp) 

1. går inte infoga smiliisarna
2. längs ner på sidan står det: "fel på sidan"

 För att spara utrymme bifogar jag filen

Bilagor:

- [gbok.zip](https://www.webforum.nu/a/8099.zip)

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

## #17 — @nders, 2005-10-12T17:49Z

För mig fungerar det fint att infoga smileys i meddelanderutan, så länge man har markören i den textrutan.

Ett tips när man jobbar med javascript är att använda exempelvis Firefox som webbläsare, där det är **betydligt** lättare att förstå vad som är fel med den webbläsarens javascript-konsoll.

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

## #18 — ptr_lks, 2005-10-12T18:34Z

@nders: skall ta fasta på ditt råd och ladda ner Firefox!
För övrigt har jag hittat felet: glömde ange formulärets namn. Så här skall det vara:

```
fObj = document.forms["skriv"].elements["message"];
```

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

## #19 — @nders, 2005-10-12T18:36Z

> skall ta fasta på ditt råd och ladda ner Firefox!

Sedan får du fram javascript-konsollen genom att skriva **javascript:** i adressraden. Sedan kan du klicka på ev. felmeddelande och få reda på exakt vilken kod som orsakade det. Kalas, helt enkelt!

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/133967-smiles-i-gästboken