<%
YouTubeID = "LIaUqO6d6Hs"
Private Function YouTube(URL)
Const adTypeText = 2
Const adReadAll = -1
Set objYouTubeHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP" )
Set objYouTube = Server.CreateObject("ADODB.Stream" )
objYouTubeHTTP.Open "GET" , URL, false
objYouTubeHTTP.sEnd...