Frågan#1
'Katalogen där du lägger bilderna i.
dir = "tecken/"
'specialtecken som skall vara godkända.
sstr=" .,!?"
'Texten som skall omvandlas
text = "Din, textsträng som du vill översätta"
For i = 1 To Len(text)
'Om du använder dig av andra tecken typ ,.?! så måste du döpa dem till tex tecken1.gif, etc.
If instr(sstr,Mid(text,i,1))> 0 then
tmpstr = tmpstr & "<IMG SRC='"&dir&"tecken" & instr(sstr,Mid(text,i,1)) & ".gif'>" & vbCrLf
Else
tmpstr = tmpstr & "<IMG SRC='"&dir& Mid(text,i,1)&".gif'>" & vbCrLf
End If
Next
text = tmpstr
Response.Write(text)
%>
------------------
fencing for you?
http://www.fencing4u.nu/