<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252" %> <% Dim scriptname, xmlfilename, doc, temp Dim node, selectednode, optionnodelist, errobj Dim chosenlang, selectednodes, i Dim chosenTekst1 Dim chosenTekstInt Dim chosenTekstExt Dim chosenTekstH3 Dim chosenTekstDetail Dim chosenTekstFinal Dim chosenformcheck 'Hier wordt gekeken welke taal gebruikt wordt, is er geen, dan wordt Engels gebruikt If Request.Form("chosenlang") <> "" Then Session("chosenlang") = Request.Form("chosenlang") ElseIf Session("chosenlang") <> "" Then Session("chosenlang") = Session("chosenlang") Else Session("chosenlang") = "en" End if chosenTekst1 = "Tekst1"& Session("chosenlang") chosenTekstInt = "TekstInt"& Session("chosenlang") chosenTekstExt = "TekstExt"& Session("chosenlang") chosenTekstH3 = "TekstH3"& Session("chosenlang") chosenTekstDetail = "TekstDetail"& Session("chosenlang") chosenTekstFinal = "TekstFinal"& Session("chosenlang") chosenformcheck = "CheckForm" & Session("chosenlang") 'Hier wordt het XML-bestand vermeld xmlfilename = "../Multi/Emailrequest.xml" 'Hier wordt een object aangemaakt die de XML opslaat Set doc = Server.CreateObject("MSXML2.DOMDocument") 'Hier wordt gezegd dat ASP moet wachten tot XML klaar is doc.async = False 'Hier wordt XML geladen en anders komt er een fout-melding If Not Doc.Load(server.MapPath(xmlfilename)) Then Response.Write "Heeft de XML-file niet kunnen laden.
" Response.Write (server.MapPath(xmlfilename)) Response.End End If 'Hier wordt gezegd dat we Xpath gebruiken doc.setProperty "SelectionLanguage", "XPath" 'Hier worden de juiste tags gekozen uit de XML-file Set selectednode = doc.selectSingleNode("/talen/taal[@xml:lang='" & Session("chosenlang") & "']") 'Hier worden alle tags gekozen Set selectednodes = doc.documentElement.selectNodes("/talen/taal") Function getstring(instring) 'Deze functie zorgt ervoor dat de waarde van de tags in instring komt en HTML-klaar is temp = selectednode._ selectSingleNode _ (instring).text getstring = _ server.htmlencode(temp) End Function 'Hier wordt het bestand gemaakt in HTML %> <% ' Hier wordt het object voor de counter gemaakt Dim lngEmailrequestHits Dim objCounter Set objCounter = Server.CreateObject("MSWC.PageCounter") objCounter.PageHit lngEmailrequestHits = objCounter.Hits Set objCounter = Nothing %> <%=getstring("titel")%>

 

             Diseño Poco Loco internet solutions


 

<%=getstring("tekst1")%>

                         <%=getstring("head11")%><%=getstring("head12")%>

  

<%=getstring("tekst2")%>  

  <%=getstring("tekst5")%>   <%=getstring("tekst7")%> <%=getstring("tekst8")%> <%=getstring("tekst9")%> <%=getstring("tekst10")%>

 

<%=getstring("tekst3")%>

   <%=getstring("tekst6")%>           <%=getstring("tekst7")%> <%=getstring("tekst8")%> <%=getstring("tekst9")%> <%=getstring("tekst10")%>

 

<%=getstring("tekst16")%>

   <%=getstring("tekst11")%>

  
<%=getstring("tekst17")%>     "READONLY>  
     

<%=getstring("tekst12")%>

 
"READONLY> ">  "> 
∑ <%=lngEmailrequestHits%> ®2004DiseñoPocoLoco™ ©2004DPL internet solutions