Script for exporting the results in HTML Format

Dim FSO, F, WR
Set FSO = CreateObject("Scripting.FileSystemObject")
IF(FSO.FileExists("C:\log.html"))Then
else
FSO.createTextFile("C:\log.html")
End If
html_logger = "C:\log.html"
environment.value("htmllogfile") = html_logger
set f = FSO.getfile("C:\log.html")
set wr = f.OpenAsTextStream(8,-2)
wr.writeline "<A Name="&chr(34)&"Head"&chr(34)&"><h1>Automation Status Summary Report </h1></A>"
wr.writeline <br><br><br><h5><u>Release</u></h5><br>"
wr.writeline "<h5><u>Build</u></h5><br>
wr.writeline "<h5><u> URL </U></h5><br><br>"
wr.writeline "<hr>"
wr.writeline <style type=text/css>"
wr.writeline "body {"