hvorfor virker denne funktion ikke
function replaceTxt( inpTxt,whatTxt,toTxt)toTxtArr = split(toTxt,",")
whatTxtArr = split(whatTxt,",")
for i=0 to ubound(toTxtArr)
todo = replace(inpTxt,whatTxtArr(i),toTxtArr(i))
next
replaceTxt = todo
end function
input: replaceTxt(request.Form("title"),"'"&chr(34),"´,″")
Fejl:
Subscript out of range: 'i'