<% response.expires=-1 Dim objXmlHttp Dim url Dim film_src film_id = Trim(Request("film_id")) url = Trim(Request("imdb_address")) Set objXmlHttp = Server.CreateObject("MSXML2.ServerXMLHTTP") objXmlHttp.open "GET", url, False objXmlHttp.send x = objXmlHttp.ResponseText intDummy1=InStr(x,"name=""poster""") intDummy1=InStr(intDummy1,x,"src=""") intDummy2=InStr(intDummy1+5,x,"""") length = intDummy2 - (intDummy1+5) film_src = (mid(x,intDummy1+5,length)) intDummy1 = InStr(x,"id=""tn15title""") intDummy1 = InStr(intDummy1,x,"

") intDummy2 = InStr(intDummy1+4,x,"") length = intDummy2 - (intDummy1+4) film_name = (mid(x,intDummy1+4,length)) film_name = Replace(film_name,"'","'") film_name = Replace(film_name,""","") film_name = Replace(film_name,"-","-") intDummy1 = InStr(x,"id=""tn15title""") intDummy1 = InStr(intDummy1,x,"
") intDummy1 = InStr(intDummy1+4,x,""">") intDummy2 = InStr(intDummy1+2,x,"") length = intDummy2 - (intDummy1+2) film_year = (mid(x,intDummy1+2,length)) intDummy1 = InStr(x,"
User Rating:
") intDummy1 = InStr(intDummy1,x,"div class=""meta""") intDummy1 = InStr(intDummy1,x,"") intDummy2 = InStr(intDummy1+3,x,"") length = intDummy2 - (intDummy1+3) user_rating = (mid(x,intDummy1+3,length)) intDummy1 = InStr(x,"
Director:
") intDummy1 = InStr(intDummy1,x,"a href=""") intDummy1 = InStr(intDummy1,x,">") intDummy2 = InStr(intDummy1+1,x,"") length = intDummy2 - (intDummy1+1) director = (mid(x,intDummy1+1,length)) intDummy1 = InStr(x,"
Genre:") intDummy1 = InStr(intDummy1,x,"
") intDummy2 = InStr(intDummy1+5,x,"") intDummy2 = InStr(intDummy1+1,diziGenre(i),"") length = intDummy2 - (intDummy1+1) tempgenre = (mid(diziGenre(i),intDummy1+1,length)) if (genre <> "") then genre = genre & "," & tempgenre else genre = tempgenre end if next SQL="UPDATE filmlerim SET Film_Poster='"&film_src&"', Film_Name='"&film_name&"',"&_ " Film_Year='"&film_year&"', Imdb_Rating='"&user_rating&"', Genre='"&genre&"',"&_ " Film_Owner='"&Session("username")&"', Director='"&director&"' WHERE ID="&film_id&" " conn.execute(SQL) conn.close %>