Benvenuto nel mio sito
Welcome in my site
<%
Function Traduci(Termine, Lingua)
Dim XMLdom
Set XMLdom = Server.CreateObject("Microsoft.XMLDOM")
XMLdom.async = False
strFile = Server.MapPath("diz_" & lingua & ".xml")
If XMLdom.Load(strFile) Then
Set rXML = XMLdom.selectSingleNode("//translation [@name=""" & Termine & """]")
if NOT rXML is Nothing then
Traduci = rXML.text
else
Traduci = Termine & "-" & Lingua
End if
Set rXML = Nothing
End if
Set XMLdom = Nothing
End function
%>
Testing Page
<%=Traduci("home01","IT")%>