RegExp och åäö

Hur ser koden ut? Är du säker på att det är RegExp som konverterar och inget annat?

Tror att det var solbulle som kom med följande exempel för ett tag sedan :)

Kan vara mycket relevant!

<%
function BinToText(varBinData, intDataSizeInBytes)
	const adFldLong = 128
	const adVarChar = 200
	set objRS = Server.CreateObject("ADODB.Recordset")
	objRS.Fields.Append "txt", adVarChar, intDataSizeInBytes, adFldLong
	objRS.Open
	objRS.AddNew
	objRS.Fields("txt").AppendChunk(varBinData)
	tmp = objRS("txt").Value
	objRS.Close
	BinToText = tmp
end function
%>

<%
url = "http://" 
Set xmlhttp = server.CreateObject("MSXML2.ServerXMLHTTP") 
xmlhttp.open "GET", url, False 
xmlhttp.send "" 
myString = xmlhttp.responsetext 
Set xmlhttp = nothing 

Set objRegExp = new RegExp 

function fixLink(myString)    
myString = Replace(myString, "/images", "../images")
fixLink = myString
end function

objRegExp.pattern = "(<table border=0 width=460 cellpadding=2 cellspacing=0 align=left>*[\d\D]*align=right colspan=2>)" 

objRegExp.IgnoreCase = True 
objRegExp.Global = True 

Set myMatches = objRegExp.Execute(myString)

For each item In myMatches
Response.Write fixlink(item.value) & "</td></tr></table>"

Next 
Set objRegExp = Nothing
%>

Ingen som vet?
Detta kan väl inte vara allt för ovanligt?

Har du provat fredrik99s förslag?

Och ja, det är vanligt, sök mer.

Jag vet inte riktigt hur jag ska införa den i min kod. Jag använder ej något recordset.

Smacka in funktionen på din sida och byt ut raden i ditt script:

myString = xmlhttp.responsetext

till:

myString = BinToText(xmlhttp.responseBody,35000)

(Iofs osäker på värdet av intDataSizeInBytes...)

klockrent!
Tack

Klockrent det här... Precis vad man behövde..
Hur går det till igentligen, vad är det som sker och varför i detta fallet blev åäö ett ?...