PK

<%
Function Konvert(sIn)
	on error resume next
	err.clear

	Dim oIn : Set oIn = CreateObject("ADODB.Stream")
	oIn.Open
	oIn.CharSet = "ISO-8859-1"
	oIn.WriteText sIn
	oIn.Position = 0
	oIn.CharSet = "UTF-8" 
	Konvert = oIn.ReadText
	oIn.Close

	if err then	Konvert = sIn
End Function
%>

PK 99