<% '---This code will work as is. Changes that you can make are noted below Set xmlDoc2 = Server.CreateObject("Microsoft.XMLDOM") xmlDoc2.async = false xmlDoc2.setProperty "ServerHTTPRequest", True xmlDoc2.validateOnParse = False xmlDoc2.resolveExternals = False if xmlDoc2.load("http://upload.vidlisting.com/upload/GetDetails.asp?vid=" & request.querystring("vid")) then Set objLst = xmlDoc2.getElementsByTagName("*") For Cs = 0 to objLst.length - 1 Select Case Ucase(objLst.item(Cs).nodeName) Case "XTITLE" xTitle = objLst.item(Cs).text Case "XDESC" xDesc = objLst.item(Cs).text Case "XKEY" xKey = objLst.item(Cs).text End Select Next end if response.write"" response.write"" response.write"" response.write"" response.write"" response.write"" response.write"" '-------Your header code goes here response.write"" '--------Your footer code goes here response.write"" response.write"" %>