-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathEnglishPersianWordDatabase.htm
48 lines (37 loc) · 1.03 KB
/
EnglishPersianWordDatabase.htm
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
<HTML xmlns:signature="urn:schemas-microsoft-com:office:access">
<HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html;charset=UTF-8"/>
</HEAD>
<BODY ONLOAD="ApplyTransform()">
</BODY>
<SCRIPT LANGUAGE="VBScript">
Option Explicit
Function ApplyTransform()
Dim objData, objStyle
Set objData = CreateDOM
LoadDOM objData, "EnglishPersianWordDatabase.xml", false
Set objStyle = CreateDOM
LoadDOM objStyle, "EnglishPersianWordDatabase.xsl", true
Document.Open "text/html"
Document.Write objData.TransformNode(objStyle)
End Function
Function CreateDOM()
On Error Resume Next
Dim tmpDOM
Set tmpDOM = Nothing
Set tmpDOM = CreateObject("MSXML2.DOMDocument.6.0")
Set CreateDOM = tmpDOM
End Function
Function LoadDOM(objDOM, strXMLFile, isXSL)
On Error Resume Next
objDOM.Async = False
objDOM.Load strXMLFile
If (objDOM.ParseError.ErrorCode <> 0) Then
MsgBox objDOM.ParseError.Reason
End If
If (isXSL) Then
objDOM.setProperty "AllowXsltScript", true
End If
End Function
</SCRIPT>
</HTML>