Nobel Systems - Industry Leaders for all GIS Data Conversion, Application Development and GIS Consulting

Glossary

Download Center

Rancho California Water District in their GIS conversion
and read some of our client references.

Latest News

<% sql="Select Top 1 (Heading),NewsID from tbl_News WHERE Year(DATETIME)=Year(getDate()) or Year(DATETIME)=Year(getDate())-1 order by DateTime DESC" call RunSQL(sql,rsNews) if not rsNews.EOF then %> <% if Len(Trim(rsNews("Heading")))>115 then %> <% else %> <% end if %>

	"><%=Left(Trim(rsNews("Heading")),115)%>...	"><%=Left(Trim(rsNews("Heading")),115)%>

<% else %>

	No News Found.

<% end if %>

<% 'sql="Select TOP 1 * from tbl_Events WHERE Year(StartDate)=Year(getDate()) or Year(StartDate)=Year(getDate())-1 order by EventID DESC" sql="Select TOP 1 * from tbl_Events WHERE (DATEDIFF(DD, StartDate, GETDATE()) >= 0) AND (DATEDIFF(DD, EndDate,GETDATE()) <= 0) or (DATEDIFF(DD, GETDATE(), StartDate)>=0) order by StartDate ASC" call RunSQL(sql,rsNews) 'response.write sql 'response.end %> <% if not rsNews.EOF then %>

Forthcoming event

<% if ((Day(Trim(rsNews("StartDate"))) = 1) or (Day(Trim(rsNews("StartDate"))) = 21) or (Day(Trim(rsNews("StartDate"))) = 31)) then ConnString = "st" elseif ((Day(Trim(rsNews("StartDate"))) = 2) or (Day(Trim(rsNews("StartDate"))) = 22)) then ConnString = "nd" elseif ((Day(Trim(rsNews("StartDate"))) = 3) or (Day(Trim(rsNews("StartDate"))) = 23)) then ConnString = "rd" else ConnString = "th" end if if ((Day(Trim(rsNews("EndDate"))) = 1) or (Day(Trim(rsNews("EndDate"))) = 21) or (Day(Trim(rsNews("EndDate"))) = 31)) then ConnEString = "st" elseif ((Day(Trim(rsNews("EndDate"))) = 2) or (Day(Trim(rsNews("EndDate"))) = 22)) then ConnEString = "nd" elseif ((Day(Trim(rsNews("EndDate"))) = 3) or (Day(Trim(rsNews("EndDate"))) = 23)) then ConnEString = "rd" else ConnEString = "th" end if %>

<% if (Year(Trim(rsNews("StartDate"))) = Year(Trim(rsNews("EndDate")))) then if (Month(Trim(rsNews("StartDate"))) <> Month(Trim(rsNews("EndDate")))) then strDate = MonthName(Month(Trim(rsNews("StartDate")))) & " " & Day(Trim(rsNews("StartDate"))) &"^{"& ConnString &"}"& " " & " -" & " " & MonthName(Month(Trim(rsNews("EndDate")))) & " " & Day(Trim(rsNews("EndDate"))) &"^{"& ConnEString &"}"& "," & " " & Year(Trim(rsNews("EndDate"))) elseif (Month(Trim(rsNews("StartDate"))) = Month(Trim(rsNews("EndDate")))) then strDate = MonthName(Month(Trim(rsNews("StartDate")))) & " " & Day(Trim(rsNews("StartDate"))) &"^{"& ConnString &"}"& " " & " -" & " " & Day(Trim(rsNews("EndDate"))) &"^{"& ConnEString &"}"& "," & " " & Year(Trim(rsNews("EndDate"))) end if if (Month(Trim(rsNews("StartDate"))) = Month(Trim(rsNews("EndDate")))) and (Day(Trim(rsNews("StartDate"))) = Day(Trim(rsNews("EndDate")))) then strDate = MonthName(Month(Trim(rsNews("StartDate")))) & " " & Day(Trim(rsNews("StartDate"))) &"^{"& ConnString &"}"& "," & " " & Year(Trim(rsNews("EndDate"))) end if else strDate = MonthName(Month(Trim(rsNews("StartDate")))) & " " & Day(Trim(rsNews("StartDate"))) &"^{"& ConnString &"}"& " " & "," & " " & Year(Trim(rsNews("StartDate"))) & " -" & " " & MonthName(Month(Trim(rsNews("EndDate")))) & " " & Day(Trim(rsNews("EndDate"))) &"^{"& ConnEString &"}"& "," & " " & Year(Trim(rsNews("EndDate"))) end if %> <%=strDate%>
<% if Trim(rsNews("Organisation")) <> "" then %> <%=Trim(rsNews("Organisation"))%> <% end if %>
Visit us at Booth #<%=Trim(rsNews("BoothNo"))%>
<% Address = Split(Trim(rsNews("Address")),"

") for i=0 to ubound(Address) if i = ubound(Address) then Response.Write Address(ubound(Address)) end if next %>

<% else %>

<% end if %>

Sitemap

Disclaimer