---
title: "smilies, räkna kompisar, räkna meddelanden"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/8346-smilies-räkna-kompisar-räkna-meddelanden"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "crisse6"
published: "2001-02-25T19:48:00.000Z"
updated: "2001-02-27T13:24:00.000Z"
replies: 17
views: 398
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/8346-smilies-räkna-kompisar-räkna-meddelanden"
---

# smilies, räkna kompisar, räkna meddelanden

## #1 — crisse6, 2001-02-25T19:48Z

he he, tre frågor i ett ämne... vill hålla det coolt med att starta 3 nya..

jag har en meddelande funktion och undrar nu hur man gör för att få :) osånt i sina meddelanden?

jag har en sida där det står "Välkommen till groda.net användare!

sedan vill jag ha så att det står hur många NYA meddelanden man har samt hur många man är kompis med, det borde ju inte vara så svårt???

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

## #2 — @nders, 2001-02-25T19:55Z

din första fråga är inte så klurig egentligen:

```
response.write replace(rs("meddelande")," :) ", "<img src=""smiley.gif"">")
```

de andra två frågorna är nog ganska lätta också, det gäller bara att ställa rätt sql-frågor. hur ser dina tabeller ut?

mvh,

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

## #3 — crisse6, 2001-02-25T20:04Z

jag har ju en databas för kompisar som heter kompis.mdb med tabellen kompisar

fält:

ID &#0124; räknare
username &#0124; text
kompis &#0124; text

och meddelanden har jag mess.mdb och tabellen meddelande med fälten:

ID &#0124; räknare
fran &#0124; text
till &#0124; text
datum &#0124; datum/tid
meddelande &#0124; PM
status &#0124; text
rubrik &#0124; text

går det eller?

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

## #4 — crisse6, 2001-02-25T20:07Z

bara en fråga vart ska jag lägga den kodsnutten med smiliesarna?

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

## #5 — @nders, 2001-02-25T20:12Z

joda, det är klart att det går. :)
men varför har du olika databaser? jag hade helt klart valt att lägga tabellerna i samma databas.

```
strsql1 = "select count(*) as antalpolare from kompisar where username = '" & session("inloggad") & "'"
set rs1=conn1.execute(strsql1)
response.write "antal polare: " & rs1("antalpolare")
```

```
strsql2 = "select count(*) as antalnya from meddelanden where till = '" & session("inloggad") & "' and status='nytt'"
set rs2=conn2.execute(strsql2)
response.write "antal nya meddelanden: " & rs2("antalnya")
```

nu gissar jag en aning, men du hajar väl? :)

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

## #6 — @nders, 2001-02-25T20:13Z

när du ska skriva ut meddelandet. det är det response.write gör ju. :)

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

## #7 — crisse6, 2001-02-26T18:15Z

kan någon förklara hur jag ska lägga in först den koden som ersätter smilies med smiliebilder... jag ska lägga in det i denna kod:

```
<%
Set Databas = Server.CreateObject("ADODB.Connection")
Set rsMess = Server.CreateObject("ADODB.Recordset")
MdbFilePath = Server.MapPath("mess.mdb")
Databas.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ= " & MdbFilePath & ";"

SQL = "SELECT * From meddelande WHERE id =" & request.querystring("id") & ";"
rsMess.Open SQL, Databas, 1, 2

If rsMess.EOF then
%>
Hittade inte meddelandet!
<%

%>
<% End If %>
<font face="Verdana" size="1" color="white">
<%
'##### Vi skriver här ut rubrik, vem som skickade samt meddelandet
%>
<b>Ämne:</b> <%=rsMess("rubrik")%><br>
<b>Från:</b> <a href="blikompis.asp?username=<%=rsMess("fran")%>"><%=rsMess("fran")%></a><br>
<b>Meddelande:</b><br><br></font>
<table border="0" cellpadding="0" cellspacing="0" bgcolor="#F7F7E7" style="border-width:1; border-color:black; border-style:solid;">
    <tr>
        <td width="382"><p><font face="Verdana" size="1" color="black"><%=rsMess("meddelande")%></font></td>
    </tr>
</table>

<% rsMess.Close %>
<%
SQL = "UPDATE meddelande SET status = 'Läst' WHERE id =" & request.querystring("id")

Databas.Execute(SQL)
%>
```

och fråga två, dom kodsnuttarna du gav mig @nders som räknar meddelande samt polare, hur ska jag lägga in dom i denna kod, jag fattar inte :( :

```
<%
'##### Lite databaskoppling
%>
<%
Set Databas = Server.CreateObject("ADODB.Connection")
MdbFilePath = Server.MapPath("kompis.mdb")
Databas.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ= " & MdbFilePath & ";"
%>
<%
'######### Skriver ut vem som är inloggad
%>
<%
Response.Write"Välkommen in till grodan, " & Session ("Username") & ""

%>
```

blir bara fel....

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

## #8 — @nders, 2001-02-26T18:23Z

1: **\<%=rsMess("meddelande")%\>** använder du för att skriva ut meddelandet. ersätt det med **\<%=replace(rsMess("meddelande")," :) ", "\<img src=""smiley.gif""\>")%\>**, se till att ändra så teckenkombination till smileyn och sökväg till bilden lirar.

2:

```
<%
'##### Lite databaskoppling
%>
<%
Set Databas = Server.CreateObject("ADODB.Connection")
MdbFilePath = Server.MapPath("kompis.mdb")
Databas.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ= " & MdbFilePath & ";"
strsql1 = "select count(*) as antalpolare from kompisar where username = '" & session("inloggad") & "'"
set rs1=Databas.execute(strsql1)
polare = & rs1("antalpolare")
rs1.close
%>
<%
'######### Skriver ut vem som är inloggad
%>
<%
Response.Write"Välkommen in till grodan, " & Session ("Username") & ", du har " & polare & "kompisar."
%>
```

funkar inte det :q

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

## #9 — crisse6, 2001-02-26T19:10Z

@nders, dina koder funkar, iaf på det med att räkna kompisar, men man kan säga att det med smilie grejen funkar (inget felmeddelande) men den ersätter inte "smilie koden" till en bild :( 

sedan, om jag vill räkna antal nya meddelanden på samma sida som räknar kompisar, hur gör man då, det är ju två helt olika meddelanden...????

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

## #10 — @nders, 2001-02-26T19:21Z

hur ser smileysarna ut i databasen då? har du skrivit rätt sökväg till bilden?

\- - - - 

man lägger då bara de två frågorna på samma sida...

```
<%
'##### Lite databaskoppling
%>
<%
Set Databas = Server.CreateObject("ADODB.Connection")
Set Databas2 = Server.CreateObject("ADODB.Connection")
MdbFilePath = Server.MapPath("kompis.mdb")
MdbFilePath2 = Server.MapPath("meddelanden.mdb")

Databas.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ= " & MdbFilePath & ";"
strsql1 = "select count(*) as antalpolare from kompisar where username = '" & session("inloggad") & "'"
strsql2 = "select count(*) as antalnya from meddelanden where till = '" & session("inloggad") & "' and status='nytt'"

set rs1=Databas.execute(strsql1)
set rs2=Databas2.execute(strsql2)
polare = rs1("antalpolare")
nyameddelanden = rs2("antalnya")
rs1.close
rs2.close
%>
<%
'######### Skriver ut vem som är inloggad
%>
<%
Response.Write"Välkommen in till grodan, " & Session ("Username") & ", du har " & polare & "kompisar och " & rs2("antalnya") & " nya meddelanden."
%>
```

borde inte någonting sånt funka?

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

## #11 — M@rtin, 2001-02-26T21:21Z

Så här ska smiley koden se ut:

```
response.write replace(rs("meddelande"),":)", "<img src='smiley.gif'>")
```

@nders hade 2 " istället för ' runt bildens url...

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

## #12 — @nders, 2001-02-27T05:03Z

m@rtin:

response.write "\<img src=""smiley.gif""\>" resulterar i 

```
<img src="smiley.gif">
```

 

i html-koden. var är felet?

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

## #13 — JaktJanne, 2001-02-27T07:17Z

Ursäkta en newbee, skall det inte vara response.write ("\<img src=""smiley.gif""\>")

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

## #14 — @nders, 2001-02-27T07:24Z

**jaktjanne**: ja, eller nej, lite beroende på hur man ser det. ;)

här har detta diskuterats: <http://cgi.webforum.nu/wf/Forum11/HTML/003004.html> 

mvh,

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

## #15 — crisse6, 2001-02-27T12:03Z

kan någon förklara hur man gör för att få sitt skript att ersätta mer än bara en smilie, jag vill liksom ha typ glad, sur, cool osv... snälla hjälp mig, min fördelsedag å allt :) här är min kod jag vill ha in det på, ni ser nog var jag har koden för EN ersättning :q

```
<%
Set Databas = Server.CreateObject("ADODB.Connection")
Set rsMess = Server.CreateObject("ADODB.Recordset")
MdbFilePath = Server.MapPath("mess.mdb")
Databas.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ= " & MdbFilePath & ";"

SQL = "SELECT * From meddelande WHERE id =" & request.querystring("id") & ";"
rsMess.Open SQL, Databas, 1, 2

If rsMess.EOF then
%>
Hittade inte meddelandet!
<%

%>
<% End If %>
<font face="Verdana" size="1" color="white">
<%
'##### Vi skriver här ut rubrik, vem som skickade samt meddelandet
%>
<b>Ämne:</b> <%=rsMess("rubrik")%><br>
<b>Från:</b> <a href="blikompis.asp?username=<%=rsMess("fran")%>"><%=rsMess("fran")%></a><br>
<b>Meddelande:</b><br><br></font>
<table border="0" cellpadding="0" cellspacing="0" bgcolor="#F7F7E7" style="border-width:1; border-color:black; border-style:solid;">
    <tr>
        <td width="382"><p><font face="Verdana" size="1" color="black"><%response.write replace(rsMess("meddelande"),":)", "<img src=""glad.gif"">")%> 
</font></td>
    </tr>
</table>

<% rsMess.Close %>
<%
SQL = "UPDATE meddelande SET status = 'Läst' WHERE id =" & request.querystring("id")

Databas.Execute(SQL)
%>
```

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

## #16 — @nders, 2001-02-27T12:09Z

joda, eftersom jag inte fick någe mail av dig, så, here goes:

```
<%

function skapaSmileyGubbar (strMeddelande)
       tmp = replace (strMeddelande, " :) ", "<img src=""gladgubbe.gif"">")
       tmp = replace (tmp, " ;D ", "<img src=""supergladgubbe.gif"">")
       tmp = replace (tmp, " :e ", "<img src=""garvgubbe.gif"">")
       skapaSmileyGubbar = tmp
end function

Set Databas = Server.CreateObject("ADODB.Connection")
Set rsMess = Server.CreateObject("ADODB.Recordset")
MdbFilePath = Server.MapPath("mess.mdb")
Databas.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ= " & MdbFilePath & ";"
SQL = "SELECT * From meddelande WHERE id =" & request.querystring("id") & ";"
rsMess.Open SQL, Databas, 1, 2

If rsMess.EOF then
%>
Hittade inte meddelandet!
<%

%>
<% End If %>
<font face="Verdana" size="1" color="white">
<%
'##### Vi skriver här ut rubrik, vem som skickade samt meddelandet
%>
<b>Ämne:</b> <%=rsMess("rubrik")%><br>
<b>Från:</b> <a href="blikompis.asp?username=<%=rsMess("fran")%>"><%=rsMess("fran")%></a><br>
<b>Meddelande:</b><br><br></font>
<table border="0" cellpadding="0" cellspacing="0" bgcolor="#F7F7E7" style="border-width:1; border-color:black; border-style:solid;">
<tr>
<td width="382"><p><font face="Verdana" size="1" color="black"><% response.write [b]skapaSmileyGubbar(rsMess("meddelande"))[/b] %> 
</font></td>
</tr>
</table>

<% rsMess.Close %>
<%
SQL = "UPDATE meddelande SET status = 'Läst' WHERE id =" & request.querystring("id")

Databas.Execute(SQL)
%>
```

ändra i funktionen skapaSmileyGubbar så du får dit din teckenkombination och din bildsökvägar, så borde det fungera. :)

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

## #17 — crisse6, 2001-02-27T13:17Z

gött @nders, det funkar utmärkt!

en fråga, jag presenterar själva meddelandet i en tabellrad, men det blir inga radbrytningar om man gjorde det i formuläret, eftersom den gör ingen radbrytning för än den uppnått tabellens bredd.... någon?

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

## #18 — @nders, 2001-02-27T13:24Z

ändra funktionen till så här:

```
function skapaSmileyGubbar (strMeddelande)
tmp = replace (strMeddelande, " :) ", "<img src=""gladgubbe.gif"">")
tmp = replace (tmp, " ;D ", "<img src=""supergladgubbe.gif"">")
tmp = replace (tmp, " :e ", "<img src=""garvgubbe.gif"">")
[b]tmp = replace(tmp, vbcrlf, "<br>")[/b]
skapaSmileyGubbar = tmp
end function
```

mvh,

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/8346-smilies-räkna-kompisar-räkna-meddelanden