<% 'Designer: Todd Cutler (317-839-2114) ' Date: 8/21/01 'Copyright 2001-2002 %> <% Response.Buffer = True Response.ExpiresAbsolute = Now() - 1 Response.Expires = 0 Response.CacheControl = "no-cache" Response.CacheControl = "no-store" If Session("FirstTimeToPage") = "Start" and (Len(Request.Form("FormAction")) = 0) or Request.Form("FormAction") = "Start" then 'Session.Abandon() End If If LANGENABLE = 1 Then LangType = CStr(Request.Form("LangType")) If LangType = "" Then LangType = CStr(Request.Querystring("LangType")) If LangType = "" Then LangType = CStr(DEFAULT_LANG_TYPE) End If End If LangStr = " And Lang=" & LangType Else LangType = "0" LangStr = "" End If %> <% signuptype = Request.Form("signuptype") ExtraTitle = "" InHouseFlag = 0 nopwmode = Request.Form("NoPWTracker") If nopwmode = "" Then nopwmode = Request.QueryString("nopw") End If If nopwmode = "1" Then nopwSTR = "&nopw=1" End If If signuptype = "inhouse" Then PaymentVal = Request.Form("Payment") InHouseFlag = 1 ExtraTitle = " In-House " If Session(DSNNAME & "LoginName") <> False Then SignupBy = Session(DSNNAME & "LoginName") Else SignupBy = "Staff" End If Else SignupBy = "Patron" End If pubFilterPub = Request.QueryString("pub") If pubFilterPub = "" Then pubFilterPub = Request.Form("DispPub") End If pubFilterNoPub = Request.QueryString("nopub") If pubFilterNoPub = "" Then pubFilterNoPub = Request.Form("DispNoPub") End If currentPage = Request.QueryString("page") If currentPage = "" Then currentPage = Request.Form("PageTracker") End If perPageDisplayValue = Request.QueryString("pgdisp") If perPageDisplayValue = "" Then perPageDisplayValue = Request.Form("PerPageDispTracker") End If 'Get calendar number from link CalNum = Request.Form("CalNum") If CalNum = "" Then CalNum = "0" End If disptype = Request.QueryString("disptype") DIM errorMSG DIM TotalMain DIM TotalWait DIM Group ReturnStr = Request.QueryString("return") If ReturnStr = "" Then ReturnStr = Request.QueryString("ret") End If If ReturnStr = "" Then ReturnStr = "eventcalendar.asp" End If If InStr(ReturnStr, "?") > 0 Then ReturnStr = ReturnStr & "&" Else ReturnStr = ReturnStr & "?" End If If pointer ="" Then pointer = Request.QueryString("pointer") End If If disptype="info" Then TitleStr = EVENT_INFO_LANG Else TitleStr = EVENT_REG_LANG End If WindowMode = CStr(Request.QueryString("windowmode")) If WindowMode = "" Then WindowMode = Request.Form("WindowMode") End If noheader = Request.QueryString("noheader") If noheader = "" Then noheader = Request.Form("noheader") End If noregistration = Request.QueryString("noregistration") If noregistration = "" Then noregistration = Request.Form("noregistration") End If noattendance = Request.QueryString("noattendance") If noattendance = "" Then noattendance = Request.Form("noattendance") End If LookupAttendeeID = Request.QueryString("lad") NoRefresh = Request.QueryString("norefresh") If NoRefresh = "" Then NoRefresh = Request.Form("norefresh") End If If (Len(Request.Form("FormAction")) = 0) or Request.Form("FormAction") = "Start" Then If session(DSNNAME & "allowevents" & LIBRARYNUMBER) OR session(DSNNAME & "allowevents999") Then If noheader <> "1" Then DisplayMaintHeader TitleStr, TitleStr, NOLIBHEADER, "events", 1 Else DisplayMaintHeader TitleStr, TitleStr, NOLIBHEADER, "events", 0 End If Else DisplayHeader TitleStr, TitleStr, NOLIBHEADER End If 'Call Event Sign Up Routine EventSignUp ElseIf Request.Form("FormAction") = "ValidateEventSignUp" Then %> <% If pointer = "inhouse" Then If noheader <> "1" Then DisplayMaintHeader TitleStr, TitleStr, NOLIBHEADER, "events", 1 Else DisplayMaintHeader TitleStr, TitleStr, NOLIBHEADER, "events", 0 End If Else DisplayHeader TitleStr, TitleStr, NOLIBHEADER End If ValidateEventSignUp ElseIf Request.Form("FormAction") = "ValidatePatron" Then TitleStr = EVENT_REG_LANG If pointer = "inhouse" Then If noheader <> "1" Then DisplayMaintHeader TitleStr, TitleStr, NOLIBHEADER, "events", 1 Else DisplayMaintHeader TitleStr, TitleStr, NOLIBHEADER, "events", 1 End If Else DisplayHeader TitleStr, TitleStr, NOLIBHEADER End If ValidateInfo "eventsignup.asp", "Redirect", EVENT_CALENDAR_LANG , "eventcalendar.asp", "Event" Else TitleStr = EVENT_REG_COMPLETE_LANG If pointer = "inhouse" Then If noheader <> "1" Then DisplayMaintHeader TitleStr, TitleStr, NOLIBHEADER, "events", 1 Else DisplayMaintHeader TitleStr, TitleStr, NOLIBHEADER, "events", 1 End If Else DisplayHeader TitleStr, TitleStr, NOLIBHEADER End If If Session("FirstTimeToPage") = "Start" Then DisplayValidationResult(Session("FirstTimeToPage")) Session("FirstTimeToPage") = "Done" Else DisplayValidationResult(Session("FirstTimeToPage")) End If End If %>