Create XSL

Posted on June 28, 2011

'XSL Handling - Create XSL
Public Function createXSL(XslFile As String)
'This code is used to create XSL.
Dim fso As New Scripting.FileSystemObject
Dim objXSL As Object
Dim strTemp As String, strXSL As String
strXSL = XslFile
fso.CreateTextFile strXSL, False
Set objXSL = fso.OpenTextFile(strXSL, ForAppending)
strTemp = "<?xml version=""1.0""?>" _
& vbCrLf & "<xsl:stylesheet version=""1.0"" xmlns:xsl=""http://www.w3.org/1999/XSL/Transform"">" _
& vbCrLf & "<xsl:template match=""/"">" _
& vbCrLf & "<html>" _
& vbCrLf & "<Body>" _
& vbCrLf & "<Table Border=""1"" bordercolor= ""#808080"" cellspacing=""0"" cellpadding=""0"" width=""100%"">" _
& vbCrLf & "<tr style=""background:#999999;font-size:8.0pt; font-family:Tahoma;color:white"" align=""center"">" _
& vbCrLf & "<td width=""13%""><b>Date &amp; Time</b></td>" _
& vbCrLf & "<td width=""10%""><b>User Name</b></td>" _
& vbCrLf & "<td width=""11%""><b>Machine Name</b></td>" _
& vbCrLf & "<td width=""12%""><b>File Name</b></td>" _
& vbCrLf & "<td width=""13%""><b>Procedure Name</b></td>" _
& vbCrLf & "<td width=""6%""><b>Error No</b></td>" _
& vbCrLf & "<td width=""35%""><b>Error Description</b></td></tr>" _
& vbCrLf & "<xsl:for-each select=""ErrorLog/Error"">"
 
strTemp = strTemp & "<xsl:if test=""ErrorDateTime !="""""">" _
& vbCrLf & "<tr style=""font-size:8.0pt;font-family:Tahoma; color:black"" align=""center"">" _
& vbCrLf & "<td width=""13%""><xsl:value-of select=""ErrorDateTime""/></td>" _
& vbCrLf & "<td width=""10%""><xsl:value-of select=""UserName""/></td>" _
& vbCrLf & "<td width=""11%""><xsl:value-of select=""MachineName""/></td>" _
& vbCrLf & "<td width=""12%""><xsl:value-of select=""DocName""/></td>" _
& vbCrLf & "<td width=""13%""><xsl:value-of select=""ProcName""/></td>" _
& vbCrLf & "<td width=""6%""><xsl:value-of select=""ErrNo""/></td>" _
& vbCrLf & "<td width=""35%""><xsl:value-of select=""ErrDesc""/></td></tr>" _
& vbCrLf & "</xsl:if>" _
& vbCrLf & "</xsl:for-each>" _
& vbCrLf & "</Table>" _
& vbCrLf & "</Body>" _
& vbCrLf & "</html>" _
& vbCrLf & "</xsl:template>" _
& vbCrLf & "</xsl:stylesheet>"
objXSL.WriteLine strTemp
objXSL.Close
 
ExitHere:
    Err.Clear
    Set objXSL = Nothing
    Set fso = Nothing
End Function