4 svar · 409 visningar · startad av mibbe
Skulle vilja hämta sporttabellen (hela sidan) på http://www.vibf.se/auto_gen/50.html finns det någon enkelt script el. kommando för det? Liknande php-diton enligt nedan;
<?
echo "[";
$sida = "http://www.vibf.se/auto_gen/50.html";
include($sida);
echo "]";
?>
Det klart smidigaste är om du kan lägga in sidan i en iframe i din sida, annars så kan du testa detta:
<%
Dim objXMLHTTP, xml
Set objXML = Server.CreateObject("Microsoft.XMLHTTP")
objXML.Open "GET", "http://www.vibf.se/auto_gen/50.html", False
objXML.Send
Response.Write objXML.responseText
Set objXML = Nothing
%>
Den funkar så till vida att den hämtar och visar och jag kan lägga till en css-fil och det är precis som jag vill ha det. MEN.. å, ä och ö syns inte och så blir det lite andra förskjutningar.
Titta på http://www.ibklidkoping.com/p88/serien0304p88.asp och originalet http://www.vibf.se/auto_gen/50.html
:l
Jesper T: Tusen tack för hjälpen. Nedanstående kod hittade jag i tråden du gav mig. :):)
<%
function BinToText(varBinData, intDataSizeInBytes)
const adFldLong = 128
const adVarChar = 200
set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Fields.Append "txt", adVarChar, intDataSizeInBytes, adFldLong
objRS.Open
objRS.AddNew
objRS.Fields("txt").AppendChunk(varBinData)
tmp = objRS("txt").Value
objRS.Close
BinToText = tmp
end function
Set objHTTP = Server.CreateObject("Microsoft.XMLHTTP")
objHTTP.Open "GET", "http://www.vibf.se/auto_gen/50.html", False
objHTTP.setRequestHeader "Content-type","text/html"
objHTTP.Send
strHTML = BinToText(objHTTP.responseBody,35000)
Set objHTTP = Nothing
response.write strHTML
%>