Success!
Nu får jag fram rätt titel, tackar! :)
Ser dock att Å, Ä och Ö inte fungerar på alla siter som jag testar, men det verkar som om jag får leva med det.
Tack!
------------------
~ Mz ~
23 svar · 489 visningar · startad av Mz · sida 2 av 2
Success!
Nu får jag fram rätt titel, tackar! :)
Ser dock att Å, Ä och Ö inte fungerar på alla siter som jag testar, men det verkar som om jag får leva med det.
Tack!
------------------
~ Mz ~
Vide skrev:
Hmm... det är lätt att hjälpa till när man tänker med lilltån, testa detta:
<% Set objHTTP = Server.CreateObject("Microsoft.XMLHTTP") objHTTP.Open "GET", "http://www.webeye.nu/", False objHTTP.Send strHTML=objHTTP.responseText Set objHTTP = Nothing Set objRegExp = New regexp objRegExp.Global = False objRegExp.IgnoreCase = True objRegExp.Pattern = "<title>(.*)</title>" Set myMatches = objRegExp.Execute( strHTML ) For each item in myMatches Response.Write mid( strHTML, item.FirstIndex + 8, item.Length -4 ) Next %>------------------
Doesn't 'expecting the unexpected' make the unexpected expected?
webeye.nu
Får dett felmeddelande på Vides kod
Oj det glömde jag visst.
Feltyp:
msxml3.dll (0xC00CE56E)
Systemfel: -1072896658.
/startsidan/index.asp, line 8