tjek fil hentes fra anden end egen server

Fandt dette jeg kan bruge

<%
dim ref,pos1,pos2
  ref = Request.ServerVariables("HTTP_REFERER")
  response.write ref & "<br>"
  pos1 = instr(1,ref,"/")
  if pos1>0 then
    response.write pos1 & "<br>"
    pos1 = instr(pos1+1,ref,"/")
    response.write pos1 & "<br>"
    pos2 = instr(pos1+1,ref,"/")
    response.write pos2 & "<br>"
    response.write mid(ref,pos1+1,pos2-pos1-1) & "<br>"
  else
    response.write "No referer<br>"
  end if
 
  strRef = mid(ref,pos1+1,pos2-pos1-1)
 
  if strRef = "smileys.lund.dk" or strRef = "www.smileys.lund.dk" or strRef = "kevin" then
  response.write "Intern<br>"
  else
  response.write "extern<br/>"
  end if
%>