<%@ Language=VBScript %>
<% Option explicit %>
DCEO - Economic Facts Search
<%
'declare our variables
Dim SQL, all, rs, del, dbsource
Dim dbSubjectCategory, dbStateorRegion
Dim messageId, Message
Dim displayMessage
Dim ServerName, FactEnv
Dim dateFormat, Now, EndYear, EndMonth
EndYear = Year(Date)
EndMonth = Month(Date)
If Request.Querystring("Message") <> "" Then
Message = Request.Querystring("Message")
if Message = "e001" then
displayMessage= "Invalid attempt to view a record. Only records returned by the search may be viewed."
End iF
End If
ServerName = Request.ServerVariables("SERVER_NAME")
if instr(ServerName, "localhost") then
FactEnv = "test"
elseif instr(ServerName, "spicomtest") then
FactEnv = "intranet"
elseif instr(ServerName, "10.55.3.190") then
FactEnv = "intranet"
else
FactEnv = "prod"
end if
Function validateForm()
End Function
Function validateYear(yr)
validateYear = false
if len(yr) = 2 or len(yr) = 4 Then
Else
msgbox("Invalid year, enter as a 2 digit or 4 digit year")
exit function
end if
validateYear = true
End Function
%>
