Hi guys,

I have an ActiveX dll that I've written to make a web alternative to crystal reports.

The reports are working fine from the web but instead of having the html embedded in the ActiveX dll I was hoping to write some sort of clever html parsing routine.
Here's an example of one of my subs at the moment. Does anyone have any ideas on how I would make a html parser for this???? Thanks
JK


Code:
Public Sub emtsTotalLine(ByVal filenumber As Integer, ByVal customerName As String, ByVal currentNSC As String, ByVal currentAccount As String, ByVal runningTotal As Double, ByVal currentCurrency As String, ByVal paymentCount As Long, Optional paymentStatus As String)
        
Dim stringTotal As String

    stringTotal = Format(runningTotal, "###,###,##0.00")
    
    
            Print #filenumber, "<TR>"
            Print #filenumber, "<TD BGCOLOR='SILVER'><FONT FACE='ARIAL' SIZE=2 COLOR='BLACK'><STRONG>"
            Print #filenumber, customerName
            Print #filenumber, "</STRONG></FONT></TD>"
            
            Print #filenumber, "<TD BGCOLOR='LIGHTYELLOW'><FONT FACE=ARIAL SIZE=2 COLOR='BLACK'>"
            Print #filenumber, currentNSC
            Print #filenumber, "</FONT></TD>"
    
            Print #filenumber, "<TD BGCOLOR='LIGHTYELLOW'><FONT FACE=ARIAL SIZE=2 COLOR='BLACK'>"
            Print #filenumber, currentAccount
            Print #filenumber, "</FONT></TD>"
    
            Print #filenumber, "<TD BGCOLOR='LIGHTYELLOW' ALIGN=RIGHT><FONT FACE=ARIAL SIZE=2 COLOR='BLACK'>"
            Print #filenumber, stringTotal
            Print #filenumber, "</FONT></TD>"
    
            Print #filenumber, "<TD BGCOLOR='LIGHTYELLOW'><FONT FACE=ARIAL SIZE=2 COLOR='BLACK'>"
            Print #filenumber, currentCurrency
            Print #filenumber, "</FONT></TD>"
            
            If Not IsEmpty(paymentStatus) And Trim(paymentStatus) <> "" Then
                Print #filenumber, "<TD BGCOLOR='LIGHTYELLOW'><FONT FACE=ARIAL SIZE=2 COLOR='BLACK'>"
                Print #filenumber, paymentStatus
                Print #filenumber, "</FONT></TD>"
            End If
            
            Print #filenumber, "<TD BGCOLOR='LIGHTYELLOW'><FONT FACE=ARIAL SIZE=2 COLOR='BLACK'>"
            Print #filenumber, paymentCount
            Print #filenumber, "</FONT></TD>"
            
            
            
    
End Sub