html = "1.html" asp = "1.asp" Set fso = CreateObject("Scripting.FileSystemObject") Set fhtml = fso.OpenTextFile(html, 1) Set fasp = fso.OpenTextFile(asp, 2, true) While fhtml.AtEndOfStream <> true text = fhtml.ReadLine text = "Response.Write "&""""&Replace(text, """", """""")&"""" fasp.WriteLine(text) wend fhtml.close fasp.close set fso = nothing msgbox "success"
