---
title: "Function"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/45585-function"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Peeer"
published: "2002-06-10T18:27:07.000Z"
updated: "2002-06-11T13:36:33.000Z"
replies: 3
views: 219
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/45585-function"
---

# Function

## #1 — Peeer, 2002-06-10T18:27Z

Varför funkar inte nedstående kod (teckenkombinationerna byts inte ut mot bilder)?? Det funkade fint innan, men sen så la den bara av. Jag sitter vid samma dator fortfarande (med PWS). Kan det bero på att jag har samma namn på en annan funktion (på en annan sida)??

```
strSQL = "SELECT id, namn, mail, meddelande, datum FROM [gb] Order by datum DESC"
Set RS = Server.CreateObject("ADODB.Recordset")
Set RecSet = Connect.Execute("SELECT Count(*) As antal FROM gb")
inlagg = RecSet("antal")
RecSet.close
Set RecSet = nothing
RS.Open strSQL, Connect, 3, 1
Function tecken(strText) 
strText = Server.HTMLEncode(strText) 
tecken = strText 
end function

Function smile(strText) 
strText = Server.HTMLEncode(strText) 
strText = Replace(strText,":)","<img src=""images/smile/smile.gif"" alt=""glad"">")
strText = Replace(strText,":(","<img src=""images/smile/frown.gif"" alt=""sorgsen"">")
strText = Replace(strText,":r","<img src=""images/smile/shame.gif"" alt=""generad"">")
strText = Replace(strText,":e","<img src=""images/smile/supergrin.gif"" alt=""stort flin"">")
strText = Replace(strText,";)","<img src=""images/smile/wink.gif"" alt=""glimt i ögat"">")
strText = Replace(strText,":p","<img src=""images/smile/tongue.gif"" alt=""räcker ut tungan"">")
strText = Replace(strText,":h","<img src=""images/smile/cool.gif"" alt=""I'm cool"">")
strText = Replace(strText,":OO","<img src=""images/smile/look.gif"" alt=""sökande"">")
strText = Replace(strText,"x(","<img src=""images/smile/angry.gif"" alt=""arg"">")
strText = Replace(strText,":o","<img src=""images/smile/redface.gif"" alt=""förvånad"">")
strText = Replace(strText,":q","<img src=""images/smile/quest.gif"" alt=""frågande"">")
strText = Replace(strText,":D","<img src=""images/smile/biggrin.gif"" alt=""glad"">")
strText = Replace(strText,":P","<img src=""images/smile/blah.gif"" alt=""har ni hört?"">")
strText = Replace(strText,":x","<img src=""images/smile/dead.gif"" alt=""livlös"">")
strText = Replace(strText,"&#167;jr","<img src=""images/smile/devel.gif"" alt=""småjävlas lite"">")
strText = Replace(strText,"&#167;e","<img src=""images/smile/devilgrin.gif"" alt=""har baktankar"">")
strText = Replace(strText,":f","<img src=""images/smile/flirt.gif"" alt=""flirt"">")
strText = Replace(strText,":/","<img src=""images/smile/hrmpf.gif"" alt=""skeptisk"">")
strText = Replace(strText,":|","<img src=""images/smile/hrmpf.gif"" alt=""skeptisk"">")
strText = Replace(strText,":i","<img src=""images/smile/idea.gif"" alt=""idé"">")
strText = Replace(strText,":stud","<img src=""images/smile/stud.gif"" alt=""oskyldig"">")
intMaxLength = 65
arrString = Split(strText, " ")
For intIndex = 0 To UBound(arrString)
If Len(arrString(intIndex)) > intMaxLength Then
intSIndex = 0
While intSIndex < (Len(arrString(intIndex)) / intMaxLength)
splittOrd = splittOrd & Mid(arrString(intIndex), (1 + intSIndex * intMaxLength), intMaxLength) & "<br>"
intSIndex = intSIndex + 1
Wend
arrString(intIndex) = splittOrd
End If

strNewString = strNewString & arrString(intIndex) & " "
Next

Strang = strNewString
smile = strNewString
end function

%>
Totalt <b><%=inlagg%></b> inlägg i denna gästbok!<br><br>
<table border="0" cellpadding="5" cellspacing="0" width="400">
<%
If RS.EOF Then
Response.Write "<b>Antingen finns inga inlägg inskrivna, eller så har det blivit fel!</b>"
End If
Do until RS.EOF 
namn = tecken(rs("namn"))
datum = FormatDateTime(rs("datum"),1)
tid = FormatDateTime(rs("datum"),4)
mail = tecken(rs("mail"))
meddelande = smile(rs("meddelande"))
cnt = cnt + 1
strColor = "#ffffcc" 
If cnt Mod 2 = 0 then strColor = "#ccccff"
%>

<tr>
<td width="350" bgcolor="<%=strColor%>">
<font face="Times new roman" size="2"><%=meddelande%></font><br>
<font face="Verdana" size="1">Inskriven <%=datum%>, <%=tid%> av 
<%If mail <> "nopp" then
Response.write "<a href=""mailto:"&mail&""" class=""link"">"&namn&"</a>"
else
Response.write namn
end if
%></font>
</td>
</tr>
<%
RS.MoveNext
Loop
RS.close
%>
```

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

## #2 — icaaq, 2002-06-10T20:30Z

Re: Function

> *Ursprungligen av Peeer*  **Varför funkar inte nedstående kod (teckenkombinationerna byts inte ut mot bilder)?? Det funkade fint innan, men sen så la den bara av. Jag sitter vid samma dator fortfarande (med PWS). Kan det bero på att jag har samma namn på en annan funktion (på en annan sida)??**

Testa att starta om datorn. :)

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

## #3 — Peeer, 2002-06-11T12:22Z

har jag redan provat (flera gånger), men det funkar inte ändå! Är det något fel i koden, lr är det bara datorn som sjukar sig??

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

## #4 — Peeer, 2002-06-11T13:36Z

Det löste sig tillslut. Jag bytte bara namn på funktionen så funkade den sen! Varför gjorde den det?? :q

Kommer aldrig bli klok på microsofts produkter!

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/45585-function