Microsoft.XMLHTTP problem med Ø karakter
Koden jeg bruger<%
Response.Buffer=True
Response.charset = "ISO-8859-1"
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<title>Test</title>
</head>
<body>
<script language=vbscript runat=server>
Function GetHTML(strURL)
On Error Resume Next
Dim objXMLHTTP, strReturn
Set objXMLHTTP = Server.CreateObject("Microsoft.XMLHTTP")
objXMLHTTP.Open "GET", strURL, False
objXMLHTTP.setRequestHeader "CharSet", "ISO-8859-1"
objXMLHTTP.Send
strReturn = objXMLHTTP.responseText
Set objXMLHTTP = Nothing
GetHTML = strReturn
End Function
</script>
<%
Dim htmlurl
htmlurl = trim("www.dr.dk")
//Response.Write InStr("http:\/\/",htmlurl,htmlurl,vbTextCompare)
If InStr(LCase(htmlurl),LCase("http://")) = 0 Then
htmlurl = "http://" & htmlurl
End If
retval = GetHTML(htmlurl)
Response.Write "<base href='" & htmlurl & "'>" & Replace(retval,"Svær","test")
%>
</div>
</body>
</html>
Hvorfor kan jeg ikke replace tekst med æ, ø eller å i ??
jeg har prøvet med ø og %f8 med får samme resultat indeholder teksten noget med æ ø eller å virker det ikke.
