<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% ' Loads a file and executes it as an ASP file. ' Needed to perform dynamic execution of BSP/FUSE ' and can be useful down the road Function GetFileContentsForExecution(aspFileFragmentPath) Dim oFSO, sContents 'Obtain a reference to the FileSystemObject Set oFSO = Server.CreateObject("Scripting.FileSystemObject") 'Obtain the file contents sContents = oFSO.OpenTextFile(Request.ServerVariables("APPL_PHYSICAL_PATH") & aspFileFragmentPath).ReadAll Set oFSO = Nothing 'reference to the FileSystemObject 'Remove the ASP scripting tags sContents = Replace (sContents, "<" & "%", "") sContents = Replace (sContents, "%" & ">", "") GetFileContentsForExecution = sContents End Function ' Grabs the node value of the responseXML returned ' by the CSWP_DOC_INFO service. This is used to ' display metadata on the confirmation page. Function GetXmlNodeValue(objXmlRowNode, strNodeName) Dim objXmlNode, objXmlNodeValue Set objXmlNode = objXmlRowNode.selectSingleNode("@" & strNodeName) If (objXmlNode Is Nothing) Then Set objXmlNode = objXmlRowNode.selectSingleNode("idc:field[@name='" & strNodeName & "']") End If If (Not (objXmlNode Is Nothing)) Then GetXmlNodeValue = objXmlNode.Text End If End Function %> <%dim instanceName%> <%dim serverAddr%> <%dim visitorIP%> <%dim displayAllBSP%> <%dim fuseType%> <%dim cswpProgram%> <%instanceName = "build"%> <%serverAddr = "https://build.export.gov/build/idcplg"%> <%visitorIP = Request.ServerVariables("REMOTE_ADDR")%>
<% dim pathInfo pathInfo = Request.ServerVariables("PATH_INFO") pathInfo = "/"&Split(pathInfo, "/")(1) virtualDir = Server.MapPath(pathInfo) dim rootLength rootLength = Len(Server.MapPath("/")) virtualDir = Mid(virtualDir, rootLength+2) virtualDir = replace(virtualDir, "\", "/") %>
Local Time in Germany: Print

German Holidays

National and Regional German Public Holidays in 2016:

2016

Date

Weekday

Name of Public German holiday

 

Jan. 01

 

Friday

 

New Year's Day (Neujahrstag)

 

all federal states

Jan. 06

 

Wednesday

 

Epiphany (Heilige Drei Könige)

 

Baden-Wuerttemberg, Bavaria, Saxony-Anhalt

Mar. 25

 

Friday

 

Good Friday (Karfreitag)

 

all federal states

Mar. 28

 

Monday

 

Easter Monday (Ostermontag)

 

all federal states

May 01

 

Sunday

 

Labor Day (Maifeiertag)

 

all federal states

May 05

 

Thursday

 

Ascension Day (Christi Himmelfahrt)

 

all federal states

May 16

 

Monday

 

Whit Monday (Pfingstmontag)

 

all federal states

May 26

 

Thursday

 

Corpus Christi Day (Fronleichnam)

 

Baden-Wuerttemberg, Bavaria, Hesse, North Rhine-Westphalia, Rhineland-Palatinate, Saarland

Aug. 15

 

Monday

 

Assumption Day (Maria Himmelfahrt)

 

Bavaria, Saarland

Oct. 03

 

Monday

 

Day of German Unity (Tag der Deutschen Einheit)

 

all federal states

Oct. 31

 

Monday

 

Reformation Day (Reformationstag)

 

Brandenburg, Mecklenburg-Pomerania, Saxony, Saxony-Anhalt, Thuringia

Nov. 01

 

Tuesday

 

All Saints Day (Allerheiligen)

 

Baden-Wuerttemberg, Bavaria, North Rhine-Westphalia, Rhineland-Palatinate, Saarland

Nov. 16

 

Wednesday

 

Repentance Day (Buß- und Bettag)

 

Saxony

Dec. 25

 

Sunday

 

Christmas (1. Weihnachtstag)

 

all federal states

Dec. 26

 

Monday

 

2nd Christmas Day (2. Weihnachtstag)

 

all federal states


  Notice to Visitors!


  The link you have chosen will take you to a non-U.S. Government website.

  If the page does not appear in 5 seconds, please click this: outside web site

  Export.gov is managed by the International Trade Administration and external links are covered by its website  disclaimer statement.


  Notice to Visitors!


  The link you have chosen will take you to a non-U.S. Government website.

  If the page does not appear in 5 seconds, please click this: outside web site

  BuyUSA.gov is managed by the International Trade Administration and external links are covered by its website disclaimer statement.