Hejsan, Jag hittar inte källa till denna funktionen nu, men vet att jag sett den i något inlägg här. Man behöver "konvertera" resultatet från XMLHTTP när vissa tecken finns med. Här kommer en del av en funktion jag använder: Jippi! Tack Johan, men din funktion (direkt kopierad) fungerar det alldeles utmärkt. Problemet med alla frågetecken pga av svenska tecken mm löste sig direkt.Frågetecken går inte att ta bort
har problem med att få bort ett frågetecken i min text.
Att köra Replace(strText,"?","") fungerar ej.
Antar att det finns en character code eller något tecken för frågetecken.
Måste ha hjälp, kan inte formatera min text annars.
Tack på förhand.Sv: Frågetecken går inte att ta bort
<code>
Function SimpleBinaryToString(Binary)
'SimpleBinaryToString converts binary data (VT_UI1 | VT_ARRAY Or MultiByte string)
'to a string (BSTR) using MultiByte VBS functions
Dim I, S
For I = 1 To LenB(Binary)
S = S & Chr(AscB(MidB(Binary, I, 1)))
Next
SimpleBinaryToString = S
End Function
Dim objXMLHttp, HTML, Fel
Set objXMLHttp = Server.CreateObject("Microsoft.XMLHTTP")
objXMLHttp.Open "GET", "http://hemsida.se/" ,False,"",""
objXMLHttp.Send
If Err.Number = 0 Then
If objXMLHttp.Status = 200 then
HTML = SimpleBinaryToString(objXMLHttp.ResponseBody)
Else
Fel = objXMLHttp.Status
End if
Else
Fel = Err.Description
End If
</code>
/JohanSv:Frågetecken går inte att ta bort
Varför visste jag inte detta innan :) Mycket jobb helt i onödan, forumet är helt enkelt underbart att ha.
Tack så jättemycket alla som hjälpt till.