ASP generates static page

<% Dim strUrl, Item_Classid, id, FileName, FilePath, Do_Url, Html_TempHtml_Temp = "

" Html_Temp = Html_Temp & "
• " FileName = "Index.html" FilePath = Server.MapPath ( "/") & "/ "& FileNameHtml_Temp = Html_Temp & FilePath &" "Do_Url =" http: // "Do_Url = Do_Url & Request.ServerVariables (" SERVER_NAME ") &" / index / index.asp "strUrl = Do_Urldim objXmlHttpset objXmlHttp = Server.CreateObject (" Microsoft. XMLHTTP ") objXmlHttp.open" GET ", strUrl, falseobjXmlHttp.send () Dim binFileDatabinFileData = objXmlHttp.responseBodyDim objAdoStreamset objAdoStream = Server.CreateObject (" ADODB.Stream ") objAdoStream.Type = 1objAdoStream.Open () objAdoStream.Write (binFileData ) Objadostream.savetofile filepath, 2 objadostream.close ()

  HTML_TEMP = HTML_TEMP & "

  "%>

  <% Response.write ("successfully generated file:") Response.write ("
  ") response.write html_temp%>