<%
response.expires=-1
Dim objXmlHttp
Dim url
Dim word
word = Trim(Request("imdb_search_word"))
url = "http://www.imdb.com/find?s=all&q="&word
url = replace(url,"?",chr(63))
url = replace(url,"&",chr(38))
url = replace(url,"=",chr(61))
Set objXmlHttp = Server.CreateObject("MSXML2.ServerXMLHTTP")
objXmlHttp.open "GET", url, False
objXmlHttp.send
x = objXmlHttp.ResponseText
intDummy1=InStr(x,"Media from")
intDummy1=InStr(intDummy1,x,"")
length = intDummy2 - (intDummy1+9)
imdb_url = (mid(x,intDummy1+9,length))
Set objXmlHttp = Nothing
%>