<%@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 = "http" & "://" & "build.export.gov" & "/build/idcplg"%>
<%visitorIP = Request.ServerVariables("REMOTE_ADDR")%>
<% dim siteURL
siteURL = Request.ServerVariables("server_name")
if siteURL =("export.gov") then
response.Write("")
else
end if
%>
