GITA Texas Gulf Coast

<%@LANGUAGE="VBSCRIPT"%> <% response.write session("intialpage") If Request.Form("Action") = "Enter" Then If Request.Form("chkCookie") = "1" Then Response.Cookies( "VO" ).Expires = now() + 365 Response.Cookies("VO")("UserId") = Request("UserId") Response.Cookies("VO")("password") = Request("password") End If Dim rsAdminCheckLogin__vuserid rsAdminCheckLogin__vuserid = "3005" if (Request("UserId") <> "") then rsAdminCheckLogin__vuserid = Request("UserId") Dim rsAdminCheckLogin__vpassword rsAdminCheckLogin__vpassword = "liz" if (Request("password") <> "") then rsAdminCheckLogin__vpassword = Request("password") set rsAdminCheckLogin = Server.CreateObject("ADODB.Recordset") rsAdminCheckLogin.ActiveConnection = MM_ConnGita_STRING rsAdminCheckLogin.Source = "SELECT PersonID, Password FROM passwords WHERE PersonID = " + Replace(rsAdminCheckLogin__vuserid, "'", "''") + " AND Password = '" + Replace(rsAdminCheckLogin__vpassword, "'", "''") + "'" rsAdminCheckLogin.CursorType = 0 rsAdminCheckLogin.CursorLocation = 2 rsAdminCheckLogin.LockType = 3 rsAdminCheckLogin.Open() rsAdminCheckLogin_numRows = 0 'response.write(rsAdminCheckLogin.Source) ' * ' * A little error checking before we go to the db. ' * vErr = 0 If Request.Form("Password") = "" Then vErr = 1 UserMsg = "You must enter a Password." End If If Request.Form("UserId") = "" Then vErr = 1 UserMsg = "You must enter a User Name." End If ' * ' * If it's ok so far, check the db. ' * If vErr = 0 Then If rsAdminCheckLogin.eof Then UserMsg = "Incorrect User Name/Password. Try again." vErr = 1 Else Session("UserId") = rsAdminCheckLogin("PersonID") Session("Password") = rsAdminCheckLogin("Password") End If rsAdminCheckLogin.Close Set rsAdminCheckLogin = Nothing If vErr = 0 Then If request("lsReferer") <> "" Then Response.Redirect ("http://www.gita.org" & request("lsReferer")) Else Response.Redirect ("Welcome.asp") End If End If End If End If %> <% ' ' *** Modifying the Form's Search Scope. ' ' The form will search from the root of your web server's namespace and below ' (deep from "/" ). To search a subset of your server, for example, maybe just ' a PressReleases directory, modify the scope variable below to list the ' virtual path to search. The search will start at the directory you specify ' and include all sub-directories. FormScope = "\" ' ' *** Modifying the Number of Returned Query Results. ' ' You can set the number of query results returned on a single page ' using the variable below. PageSize = 10 ' ' You can set the total number of query results returned using the ' variable below. MaxResults = 300 ' ' *** Setting the Locale. ' ' The following line sets the locale used for queries. In most cases, this ' should match the locale of the server. You can set the locale below. SiteLocale = "EN-US" ' ' *** Enable saving active searches in session variables ' ' The following line enables using session state to save multi-page queries ' and avoid re-executing them when the user presses the Next Page button. ' This should be set FALSE if sessions are disabled using AspAllowSessionState. UseSessions = TRUE ' ********** END QUICK CUSTOMIZATION SECTIONS *********** %> <% ' Set Initial Conditions NewQuery = FALSE UseSavedQuery = FALSE SearchString = "" QueryForm = Request.ServerVariables("PATH_INFO") ' Did the user press a SUBMIT button to execute the form? If so get the form variables. if Request.ServerVariables("REQUEST_METHOD") = "POST" then SearchString = Request.Form("SearchString") Advanced = Request.Form("Advanced") ' NOTE: this will be true only if the button is actually pushed. if Request.Form("submitted") = "Yes" then NewQuery = TRUE RankBase=1000 NextPageNumber = -1 end if end if if Request.ServerVariables("REQUEST_METHOD") = "GET" then SearchString = Request.QueryString("qu") Advanced = Request.QueryString("Advanced") FormScope = Request.QueryString("sc") RankBase = Request.QueryString("RankBase") if Request.QueryString("pg") <> "" then NextPageNumber = Request.QueryString("pg") UseSavedQuery = UseSessions NewQuery = not UseSessions else NewQuery = SearchString <> "" NextPageNumber = -1 end if end if %> GITA Texas Gulf Coast

Listen to the Infrastructure Conference Podcast Now!

Register and book your hotel now for the Geospatial Infrastructure Solutions Conference!

Vendors, exhibit at this conference:
• Reserve Your Booth
• Check out the show floor
• Download the Invitation to Exhibit

Skip the searching. See content relevant to your interests, or download the updated conference program:
• Civil Engineers/Hydraulics
• Electric
• Gas
• GIS 101
• Mobile/AVL
• One Call
• Planning/Design
• Project Management
• Public Sector
• Surveying
• System Integration/Operations Management
• Telecommunications
• Water/Waste Water

Emergency Response Symposium

• Register Now

• Reserve Your Booth

• Get Details on This New Event

• Sign up for E-mail Updates

The Longitude
The Official Newsletter of the Texas Gulf Coast Chapter
Volume 1, Issue 1

Bearings from the Chapter President

Greetings! Welcome to the first issue of The Longitude- an electronic newsletter brought to you by the Texas Gulf Coast Chapter of GITA. This is a free email newsletter sent to individuals interested in GIS, GPS, and mapping technologies. Organizations and individuals working in the geospatial technology field support this newsletter. Our goal is to inform users about the latest news in the geospatial world, with a particular focus on the Texas Gulf Coast area. You are encouraged to send us news about new products, projects, appointments, vacancies and other news that may be of interest to our chapter members.

Ashok Wadwani, President, APPLIED FIELD DATA SYSTEMS, INC.

Sponsors Needed for the Chapter

Sponsors are needed to support this newsletter and other Chapter activities. Please contact us for details.