<%@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 Midwest
