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?