tilgå xml-fil med xslt

Hvis jeg har hevet data ud af en db via ASP til en xml-fil ved hjælp af nedenstående kode, hvordan transformerer jeg så XML'en til HTML med XSLT?

__________________________________
<%
Dim objConn, objRS, strXMLData

Set objConn = Server.CreateObject("ADODB.Connection")
Set objRS = Server.CreateObject("ADODB.RecordSet")

'Åbner forbindelse til databasen'strConn skal erstattes med den Connection-string du normalt benytter
objConn.Open(strConn)

'Vælger poster fra databasen, der skal præsenteres
Set objRS = objConn.Execute("SELECT [feltnavne] FROM [tabelnavn] [osv.]")

'Kalder funktionen rs2xml med 3 parametre:'Recordset, root title og children titles
strXMLData = rs2xml(objRS, "links", "link")
Response.Write strXMLData

objRS.Close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing


'Funktioner

Function rs2xml(ByVal rs, ByVal strRootName, ByVal strChildNames)
  Dim strValue
  Response.ContentType = "text/xml"
  Response.CharSet = "ISO-8859-1"
  rs2xml = rs2xml & "<?xml version='1.0' encoding='ISO-8859-1'?>" & vbCrLf
  If Not objRS.EOF Then
      rs2xml = rs2xml & "<" & strRootName & ">" & vbCrLf
      Do While Not objRS.EOF
        rs2xml = rs2xml & vbTab & "<" & strChildNames & ">" & vbCrLf
        For Each objColumn In objRS.Fields
          strValue = objColumn.Value
          If Len(strValue) > 0 Then strValue = Server.HTMLEncode(strValue)
          rs2xml = rs2xml & vbTab & vbTab &_
                  "<" & LCase(objColumn.Name) & ">"
          rs2xml = rs2xml & strValue &_
                  "</" & LCase(objColumn.Name) & ">" & vbCrLf
        Next
        rs2xml = rs2xml & vbTab & "</" & strChildNames & ">" & vbCrLf
        objRS.MoveNext
    Loop
    rs2xml = rs2xml & "</" & strRootName & ">" & vbCrLf
  End If

End Function
%>
----------------------------------
Skal det gøres på samme måde som med en almindelig XML-fil?