Hej!

Det är nämligen så att jag försöker göra en funktion som kan göra en replace, så som nedan.

<%strMoney = FormatNumber(Produkter.Fields.Item("p_pris").Value, 2)
strFind = ","
strByt = ":"
strNyText = Replace(strMoney,strFind,strByt)
response.write "Från&nbsp;"&strNyText%>

Koden ovan har jag liggande i rs.EOF och det känns väldigt onödigt att ha så många rader skrivas ut flera gånger.

Jag har provat olika function men jag får bara inte till det, någon som har en aning?

<code>
Do While Not rs.EOF
Response.Write FixData(produkter("p_pris").Value)
Rs.MoveNext
Loop
Rs.Close


Function FixData(Indata)

strMoney = FormatNumber(InData, 2)
FixData = Replace(strMoney,",",":")

End Function
</code>

Vackert Pelle.

Tack

Oops... global variabel... ;)

Function FixData(Indata)
Dim strMoney

strMoney = FormatNumber(InData, 2) 
FixData = Replace(strMoney,",",":") 

End Function