How to output an html file using VB script

Greetings,

I have a routine that parses a record set and creates an xml file for each record - see the code below.  Now I need to create an html file that contains links to each of the files that were generated.  How would I include this html file as output so that xml file links appear in the html file?

Notice the line below that reads:

' ******* modify xml file name so that it is written as a link *********

I'm assuming this is the only thing that keeps me from doing what I need.  I can't figure out what is necessary in terms of a file path and/or the link syntax

Thanks!

Set Records = SqlCmd.Execute 
     
	    If Records.EOF Then 
	        MsgBox "No Records returned."
		    strResults = ""
	    Else
  	        Set objFSO1 = CreateObject("Scripting.FileSystemObject")
   	        Set objFSO2 = CreateObject("Scripting.FileSystemObject")
            Set objNewFile1 = objFSO1.CreateTextFile("C:\XmlIndex.html", ForAppending)  ' ********  html file *********
 
            Do Until Records.EOF
              strLine = ""
	            For DataFields = 0 To Records.Fields.Count -1.
		            If DataFields = 0 Then		              
			            
   			    	strNewFile2 = Records.Fields(DataFields).Value & ".xml"        ' ********  xml file name ********
			        strLine = Records.Fields(DataFields).Value
			            
                        	Set objNewFile2 = objFSO2.CreateTextFile("C:\" & strNewFile2, ForWriting)
 
                        	strNewFile2 =   ' ******* modify xml file name so that it is written as a link *********
   			        objNewFile1.WriteLine strNewFile2   ' ********  write to html file using xml file name *********
		            Else
			        strLine = strLine & "," & Records.Fields(DataFields).Value
	                    	objNewFile2.WriteLine strLine
	                    	objNewFile2.Close
		            End If
	            Next        	
	            Records.MoveNext
 
            Loop
            objNewFile1.Close
            Set objFSO1 = Nothing
            Set objFSO2 = Nothing
            Set objNewFile1 = Nothing
            Set objNewFile2 = Nothing

Open in new window

John500Asked:
Who is Participating?
 
DxpertConnect With a Mentor Commented:
Not sure which one you wanted, so I've added both:



Set objNewFile1 = objFSO1.CreateTextFile("C:\XmlIndex.html", ForAppending)  ' ********  html file *********
objNewFile2.WriteLine "<H1>XML File Title</H1>" '** ADDED LINE
 
Do Until Records.EOF
  strLine = ""
		  For DataFields = 0 To Records.Fields.Count -1.
					If DataFields = 0 Then                            
					  strNewFile2 = Records.Fields(DataFields).Value & ".xml"        ' ********  xml file name ********
					  strLine = Records.Fields(DataFields).Value
					  strNewFileFullPath = "C:\" & strNewFile2 '** ADDED LINE
					  strLinkTitle = "XML File Title - " & cstr(date()) '** ADDED LINE
 
					  Set objNewFile2 = objFSO2.CreateTextFile(strNewFileFullPath, ForWriting)
					  objNewFile1.WriteLine "<a href='" &  strNewFileFullPath & "'>" & strLinkTitle & "</a><br />" '** CHANGED LINE
					Else
						  strLine = strLine & "," & Records.Fields(DataFields).Value
						  objNewFile2.WriteLine strLine
						  objNewFile2.Close
					 End If
		  Next                
		  Records.MoveNext
 
Loop

Open in new window

0
 
DxpertCommented:
Are you running this on a intranet?
This code will only work on IE and on the same PC where the XML files are.


If DataFields = 0 Then                            
  strNewFile2 = Records.Fields(DataFields).Value & ".xml"        ' ********  xml file name ********
  strLine = Records.Fields(DataFields).Value
  strNewFileFullPath = "C:\" & strNewFile2  '** NEW LINE

  Set objNewFile2 = objFSO2.CreateTextFile(strNewFileFullPath, ForWriting) '** CHANGED LINE
  objNewFile1.WriteLine "<a href='" &  strNewFileFullPath & "'>" & strNewFile2 & "</a>"  '** CHANGED LINE
Else
...

0
 
John500Author Commented:
Yes - running on an Intranet

Can I throw one more element in there which includes a simple title for the page along with the date it was written?

Thanks!

0
Cloud Class® Course: CompTIA Cloud+

The CompTIA Cloud+ Basic training course will teach you about cloud concepts and models, data storage, networking, and network infrastructure.

 
DxpertCommented:
Not sure I know what you mean. Where do you want to add a Title and Date? To the body of HTML file, or to the LINK?
0
 
John500Author Commented:
I needed the title for the html file.... but thanks for the extra!!
0
 
John500Author Commented:
Thanks again
0
 
DxpertCommented:
Thanks! Glad I could help ;-)
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.