hh: xsl match apply templates

Beitrag lesen

Besten Dank Dir und Thomas,

das sieht angenehm aus und dürfte keine größeren Probleme geben, meine ASP umzuschreiben, bei mir sieht eine davon ua. so aus (zwei Parameter werden übergeben, die vorher aus einer html datei, die selbst ergebnis eines parsing von xml quelle mit xsl stylesheet und mit post-Methode  ausgelesen und dann wieder in neuem parsing verarbeitet werden.

<% Response.Buffer=True %>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Studie</title>
</head>
<body>
<% Dim xml
   Dim xsl
   Dim template
   Dim processor
'hier die beiden parameter
   Dim menu_name
   Dim language_id

Set xml = Server.CreateObject("MSXML2.FreeThreadedDOMDocument.3.0")
   xml.async = false
   xml.load (Server.MapPath("quelle.xml"))

Set xsl = Server.CreateObject("MSXML2.FreeThreadedDOMDocument.3.0")
   xsl.async = false
   xsl.load (Server.MapPath("quelle.xsl"))

Set template = Server.CreateObject("MSXML2.XSLTemplate")
   template.stylesheet = xsl
   set processor = template.createProcessor()

processor.input = xml

'die Spracheinstellung wird uebergeben

language_id = request.form("Language_Selection")
   if language_id <> "" then
     processor.addParameter "Language", language_id
   end if

'im zweiten Parameter fasse ich alle Werte zusammen die in den
'Menufeldern ausgewaehlt wurden

for counter = 1 to request.form("Selection").count
 layer_id = request.form("Selection")(counter)
 layer = layer & "_" & layer_id
next

if layer <> "" then
     processor.addParameter "Layer", layer
   end if

processor.transform()
   Response.write (processor.output)

Set xml = Nothing
 Set xsl = Nothing
 Set template = Nothing
 Set processor = Nothing
 Set language_id = Nothing
 Set menu_name = Nothing

%>
</body>
</html>