Så här ser min kod ut: ? dyker upp om det är okända tecken.Microsoft.XMLhttp Problem.
<%
Function GetTemp()
Set http = CreateObject("Microsoft.XMLhttp")
Dim boundary(1)
boundary(0) = "CPU Temp: "
boundary(1) = " | Fan Speed:"
http.open "GET","http://chief.mine.nu:800/cureinfo.txt",False
http.send
htmlResult = http.responseText
TempStart = instr( htmlResult, boundary(0) ) + len( boundary(0) )
TempEnd = instr( htmlResult, boundary(1) )
if TempStart > 0 AND TempEnd > 0 then
GetTemp = mid( htmlResult, TempStart, TempEnd-TempStart )
else
GetTemp = "'Error'"
end if
boundary(0) = NULL
boundary(1) = NULL
htmlResult = NULL
TempStart = NULL
TempEnd = NULL
Set http = Nothing
End Function
response.Write GetTemp
%>
Den skall visa 24°C .. men den byter ut ° mot ett ? ... jag är ganska n00b på asp, men jag tror att det e fel på "tolken" som översätter charsen. Har provar att byta till
htmlResult = http.responseBody
och
response.BinaryWrite GetTemp
men då blir det 'error' , så det är väl något mer jag skall ändra antar jag.
//GustavSv: Microsoft.XMLhttp Problem.
Men du behöver ju inte hämta ut tecknet, det räcker väl med ex. 25 så kan du ju lägga till grader tecknet på presentationen istället.
Om du ändå vill hämta ut att så rekomenderar jag ASPTear istället för MSXMLHTTP...
/ Jompa