Omvandla till en funktion

function KonvertText(dir,text)
'-------------------------------------------------------
' Katalogen där du lägger bilderna i
'-------------------------------------------------------

'-------------------------------------------------------
' Specialtecken som skall vara godkända
'-------------------------------------------------------
sstr=" .!,?"

'-------------------------------------------------------
' Texten som skall omvandlas
'-------------------------------------------------------

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=" & chr(34) & dir & "tecken" & instr(sstr,Mid(text,i,1)) & ".gif" & chr(34) & " border=" & chr(34) & "0" & chr(34) & " hspace=" & chr(34) & "1" & chr(34) & ">"
Else 
tmpstr = tmpstr & "<img src=" & chr(34) & dir & Mid(text,i,1) & ".gif" & chr(34) & " border=" & chr(34) & "0" & chr(34) & " hspace=" & chr(34) & "1" & chr(34) & ">"End If

Next

KonvertText= tmpstr
end function

------------------
-------------------
What a waste it is to lose one's mind. Or not to have a mind is being very wasteful. How true that is.
Dan Quayle

Det funkar inte, när jag skriver:
KonvertText("grafik/font/","Konvertera den här texten!")
så säger den att det inte går att använda paranteser när en sub anropas!
Feltyp:
Kompileringsfel i Microsoft VBScript (0x800A0414)
Det går inte att använda parenteser när en Sub anropas.
/design/password.asp, line 36, column 56
KonvertText("grafik/font/","Konvertera den här texten!")
-------------------------------------------------------^

------------------
Hälsningar Ricki
www.ricki.nu

Du ville ha en funktion, inte en sub... :)

texten=KonvertText("grafik/font/","Konvertera den här texten!")

response.write texten

Varför kan man inte göra såhär?:

		\<%
		P1 = KonvertText("grafik/font/","\<%FormatNumber(Procent1,1)%\>%")
		P2 = KonvertText("grafik/font/","\<%FormatNumber(Procent2,1)%\>%")
		%\>

Kan du se vad jag försöker göra?

------------------
Hälsningar Ricki
www.ricki.nu

Därför att man inte kan stoppa in kontextswitchar (<% och %> ) mitt i ASP-koden. De är där för att avgränsa kod från HTML.

P1 = KonvertText("grafik/font/",FormatNumber(Procent1,1) & "%")
P2 = KonvertText("grafik/font/",FormatNumber(Procent2,1) & "%")

------------------
-------------------
What a waste it is to lose one's mind. Or not to have a mind is being very wasteful. How true that is.
Dan Quayle