<%@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 IKO
The Indiana/Kentucky/Ohio Chapter was a sponsor of the 2003
Indiana GIS Conference held February 27th and 28th at the Sheraton Hotel in Indianapolis,
Indiana. This is the second year that IKO worked with the Indiana
GIS Initiative (INGISI) to plan and host this annual state wide
conference. The 351 attendees were able to choose from a wide range
of workshops and educational sessions as well as see what the 37
vendors in the exhibit hall had to offer.
The conference began with six concurrent half day workshops. IKO
sponsored the GITA Project Scoping and Tracking workshop lead by
Board member Lisa Swain of PlanGraphics, Inc. IKO Board member Charline
Avey of US Filter Indianapolis Water lead the GPS & GIS Field
Data Collection Workshop and managed to get her group outside for
some hands on data collection.
Thursday
afternoon's session started of with an update of INGISI's activities
and a sneak peak at the upcoming Indiana Geographic Data Explorer
Web Portal. IKO Board members Ron Householder of MapSync, Inc. and
Charline Avey presented two of the 44 educational sessions that
took place over the two days. Fridays Keynote address was given
by Clifford A. Ong, Director of the Indiana Counter-Terrorism and
Security Council (C-TASC) who talked about the contribution that
INGISI and the Indiana GIS Council is making to C-TASC and the importance
of state wide geospatial data to emergency prevention and response
efforts.
IKO
would like to thank INGISI for the opportunity to participate again
this year. IKO would also like to thank the Platinum sponsors, The
Sanborn Map Company, The Schneider Corporation, and Woolpert LLP
for their contributions towards putting on another successful conference.
We look forward to working with you all again next year.
