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,"§jr","<img src=""images/smile/devel.gif"" alt=""småjävlas lite"">")
strText = Replace(strText,"§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
%>