Tjek url

Jeg går ud fra at det er de første 4 tegn på en ekstern side.
Så skal du først hente indholdet.
Det kan gøres således:
<%
function GetHTML(url)
    Set xmlhttp = Server.CreateObject("MSXML2.ServerXMLHTTP.3.0")
    xmlhttp.open "GET", url, false
    xmlhttp.setRequestHeader "User-Agent","My funky browser."
    xmlhttp.send()
    response.write xmlhttp.status                  ' Add this line.
    If(xmlhttp.status=404) Then
          response.write("Src not found")
    Else
          response.write Len(xmlhttp.responseText)  ' Add this line.
          GetHTML = xmlhttp.responseText
    End If
    If err.number <> 0 then
        response.write "Url not found"
    end if
    Set xmlhttp = nothing
end function

url = "http://localhost/test/test.asp"
theSrc = GetHTML(URL)
response.Write (theSrc)

'de første 4 tegn i kilden
strFoerste4 = left(theSrc,4)
if strFoerste4 = "<img" then
Response.Write "de første 4 er img tag"
else
Response.Write "de første 4 er IKKE img tag"
end if

%>

Håber det virker, for jeg har ikke tjekket det ;-)

Virker perfekt.. tak :)

Smid et svar..

Det var så lidt ;-9