<%
session("text") = abcdefg

Function bildtext(bytText)
bytText = Replace(bytText,"a","<img src=""bilder/abc/a.png"">")
bytText = Replace(bytText,"b","<img src=""bilder/abc/b.png"">")
bytText = Replace(bytText,"c","<img src=""bilder/abc/c.png"">")
bytText = Replace(bytText,"d","<img src=""bilder/abc/d.png"">")
bytText = Replace(bytText,"e","<img src=""bilder/abc/e.png"">")
bytText = Replace(bytText,"f","<img src=""bilder/abc/f.png"">")
bytText = Replace(bytText,"g","<img src=""bilder/abc/g.png"">")

bildtext = bytText
End Function
%>

<%=bildtext(session("text"))%>

Varför fungerar det inte med bokstäver? det fungerar om jag byter till siffror

henkoz hann före... :)

Testa med:
<code>
Function bildtext(Value)
Dim Char
Dim Index
Dim Result
ReDim Result(1 To Len(Value))
For Index = 1 To Len(Value)
Char = Mid(Value, Index, 1)
Select Case Char
Case "a"
Result(Index) = "<img src=""bilder/abc/a.png"">"
Case "b"
Result(Index) = "<img src=""bilder/abc/b.png"">"
Case "c"
Result(Index) = "<img src=""bilder/abc/c.png"">"
Case "d"
Result(Index) = "<img src=""bilder/abc/d.png"">"
Case "e"
Result(Index) = "<img src=""bilder/abc/e.png"">"
Case "f"
Result(Index) = "<img src=""bilder/abc/f.png"">"
Case "g"
Result(Index) = "<img src=""bilder/abc/g.png"">"
Case Else
Result(Index) = Char
End Select
Next
bildtext = Join(Result, "")
End Function
</code>

sidan fungera inte överhuvudtaget :(

Du får ju lägga till:
<code>
<%=bildtext("abcdefg")%>
</code>

Eller någon kod som anropar funktionen eller får du ett felmeddelande?

Nu fungerar det