found the solution myself :)
<%
'function for reading "non-english" charachters
Function BinToText(varBi nData, intDataSizeInBy tes)
Dim objRS
Const adFldLong = &H00000080
Const adVarChar = 200
Set objRS = Server.CreateOb ject("ADODB.Rec ordset")
objRS.Fields.Ap pend "txt", adVarChar, intDataSizeInBy tes, adFldLong
objRS.Open
objRS.AddNew
objRS.Fields("t xt").AppendChun k varBinData
BinToText = objRS("txt").Va lue
objRS.Close
Set objRS = Nothing
End Function
Function GetHTML(strURL, strStart,strEnd )
Dim objXMLHTTP, strReturn, strHTML
Set objXMLHTTP = Server.CreateOb ject("Msxml2.Se rverXMLHTTP")
objXMLHTTP.Open "GET", strURL, False
objXMLHTTP.SetR equestHeader "content-type","text/html;charset=IS O-8859-1"
objXMLHTTP.Send
strHTML = BinToText(objXM LHTTP.responseB ody, 4800)
Set objXMLHTTP = Nothing
Dim st,en
st=Instr(strHTM L,strStart)
If st<>0 Then
st=st+Len(strSt art)
en=Instr(st,str HTML,strEnd)
strReturn=Mid(s trHTML, st, en-st)
Else
strReturn="Inge n driftsmeldinger tilgjengelig."
End If
GetHTML = strReturn
End Function
'************** ***----- MY CONFIG SECTION START -----*************** **
dim URLsnatch, HTMLsBlock, HTMLeBlock
'Webpage to scrape
URLsnatch = "http://www.avisa-valdres.no/default.asp"
'Where to start scraping the webpage
HTMLsBlock = "<! Hovedkolonne ->"
'Where to end scraping the webpage
HTMLeBlock = "<! Vertikal skille 2 ->"
'************** ****----- MY CONFIG SECTION END -----*************** ***
'Write it:
Dim grabbedText
grabbedText = GetHTML(URLsnat ch,HTMLsBlock,H TMLeBlock)
%>
<%=grabbedtext% >
"Christophe r Brandsdal" <br*******@bina er.no> wrote in message
news:#B******** ******@TK2MSFTN GP11.phx.gbl...
http://forums.devarticles.com/archive/t-3992
see this link to understand what I mean....
"Evertjan." <ex************ **@interxnl.net > wrote in message
news:Xn******** ************@19 4.109.133.29... Christopher Brandsdal wrote on 13 jul 2004 in
microsoft.publi c.inetserver.as p.general:
When I grab a site containing the norwegian characters æøå, it does
not understand the characters. Is there any way I can get it to
understand æøå?
I do not understand "understand ", since a programme is not understanding
anything.
Perhaps:
s = "æø"
s = replace(s,"æ"," ae")
s = replace(s,"ø","[slashed o]") ' or whatever
--
Evertjan.
The Netherlands.
(Please change the x'es to dots in my emailaddress)
